Exercício 13 Funções e Procedimentos - Pascal

13) Crie um programa que receba o valor da base e da altura de um triângulo. Chame uma função que calcule a área desse triângulo. Ao final, mostre o resultado.

Program Fun13;
var  
 base,altura:integer; 

function area(base,altura:integer):real; 
 Begin        
    area:=(base*altura)/2;            
 End;
 
{Main} 
 Begin
  Writeln('AREA DO TRIANGULO');      
  Write('Informe Base  : ');
  readln(base); 
  Write('Informe Altura: ');
  readln(altura);     
  Writeln('Area: ',area(base,altura):0:2);        
  Writeln('            by Marcus Vinicius');       
 End.

Categories: Pascal , Programação