TURBO PASCAL AREA DE UN TRIANGULO

HOLA BUENO AQUI LES TRAIGO OTRO PROGRAMITA PARECIDO AL ANTERIOR.

BUENO PUES EMPEZAMOS.

PROGRAM EJER04;

       USES CRT;

       VAR base,altura:REAL;

       VAR area:REAL;

BEGIN

       base:=7;

       altura:=4;

       area:=(base * altura) / 2;

       ClrScr;

               WRITE ('AREA DEL TRIANGULO: ');  WRITE (area:5:2);

      {:5:2 sirve para dar el formato de salida al numero, 5

posiciones y 2 decimales}

        READLN;

        

END.

BUENO PUES INSISTO SI ALGUIEN LE INTERESA APRENDER MAS SOBRE ESTO, CON TODA CONFIANZA PUEDE PREGUNTAR.