Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio > Ejercicios > Pascal > Entrada y salida estándar > 1 > Solución

Solución del Ejercicio 1 - Área de un triángulo (Entrada y salida estándar - Pascal)
program AES11011;

uses Crt;

var Altura, Area, Base : Real;

begin
   ClrScr;
   Write( 'Introduzca base: ' );
   ReadLn( Base );
   Write( 'Introduzca altura: ' );
   ReadLn( Altura );

   Area := Base * Altura / 2;

   Write( 'El area del triangulo es: ', Area:0:2 );
end.

Una segunda solución es:
program AES11012;

uses Crt;

var Altura, Base : Real;

begin
   ClrScr;
   Write( 'Introduzca base: ' );
   ReadLn( Base );
   Write( 'Introduzca altura: ' );
   ReadLn( Altura );

   Write( 'El area del triangulo es: ', Base * Altura / 2:0:2 );
end.

(Véase el apartado 1.9 Entrada y salida estándar del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinograma y lenguaje C.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.