Crie um algoritmo que calcule a área de um triângulo e exiba o resultado
Pseudocódigo:
programa exercicio3
var
base, altura, area : real;
inicio
leia base;
leia altura;
area ← (base * altura) / 2;
escreva area;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 25/02/2010
program exercicio3;
uses crt;
var base,altura,area:real;
begin
writeln('Digite a base');
readln(base);
writeln('Digite a altura');
readln(altura);
area := (base*altura)/2;
writeln('A area = ', area:5:0);
writeln('Pressione para fechar');
readkey;
end.
Veja também: