PROGRAMA OPERACIONES BASICAS

HOLA BUENO AKI LES DEJO UN PROGRAMITA MAS.

PROGRAM EJER2B;

       USES CRT;

       VAR x,y:REAL;

       VAR suma,rest,mult:REAL;

       VAR divi:REAL;

BEGIN

       WRITELN ('Este programa suma,resta,multiplica y divide:');

       WRITELN ('Escriba dos numeros reales');

       WRITELN (' ');

       READ (x);

       READ (y);

       suma:=x + y;

       rest:=x - y;

       mult:=x * y;

       divi:=x / y;

       ClrScr;

       WRITE ('SUMA:');                              WRITELN (suma:3:0);

       WRITE ('RESTA:');                             WRITELN (rest:3:0);

       WRITE ('MULTIPLICACION:');        WRITELN (mult:3:0);

       WRITE ('DIVISION:');                        WRITE (divi:5:2);

        READLN;

END.

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.

PROGRAMA TURBO PASCAL

HOLA BUENO PUES ESTE ES MI PRIMER POST.

BUENO PUES ANTES QUE NADA LES DEJO EL PROGRAMA TURBO PASCAL 

AQUI LES DEJO EL LINK.