Blog en Blogger Perfil en Slideshare Bookmarks en Delicious Perfil el Facebook Perfil en Twitter Fotos en Flickr Página en MySpace Canal en YouTube Perfil en Google Perfil en Google
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.

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.