PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER13;
       USES CRT;
       VAR l1,l2,l3:REAL;
       VAR area,volumen:REAL;

BEGIN
       l1:=3;
       l2:=6;
       l3:=4;

       area:=2 * (l1 * l2)+(2 * (l1 * l3)) + (2* (l2 * l3));
       volumen:= l1 * l2 * l3;

       ClrScr;

       WRITE ('AREA DEL PRISMA:');     WRITELN(area);
                WRITE ('VOLUMEN DEL PRISMA:');   WRITE (volumen);
        READ

  END.

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.