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

	Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

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.

Programa (.PAS): Área de un triángulo (Solución 1)

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.

Programa (.PAS): Área de un triángulo (Solución 2)

(Véase el apartado 1.9 Entrada y salida estándar del Curso de Pascal).