Determina el area de un triangulo dada la base y altura
pascal:
{
Descripcion: Determina el area de un triangulo dada la base y altura
www.mis-algoritmos.com
}
uses
crt; {Cargamos librerias de la pantalla}
var
base, altura : integer;
area : real;
begin
clrscr; {Limpiamos pantalla}
writeln('base y altura: ');{Salida en pantalla}
readln(base,altura);{Entrada desde el teclado}
area:=(base*altura)/2;{evaluamos altura}
writeln('Area: ',area:0:2);{Salida en pantalla}
readkey; {Esperamos una tecla para finalizar}
end.
Descripcion: Determina el area de un triangulo dada la base y altura
www.mis-algoritmos.com
}
uses
crt; {Cargamos librerias de la pantalla}
var
base, altura : integer;
area : real;
begin
clrscr; {Limpiamos pantalla}
writeln('base y altura: ');{Salida en pantalla}
readln(base,altura);{Entrada desde el teclado}
area:=(base*altura)/2;{evaluamos altura}
writeln('Area: ',area:0:2);{Salida en pantalla}
readkey; {Esperamos una tecla para finalizar}
end.