TURBO PASCAL

BUENO AQUI ESTA OTRO PROGRAMA.

PROGRAM EJER11;
       USES CRT;
       VAR radio,altura:REAL;
       VAR area,volumen:REAL;

BEGIN
       radio:=3;
       altura:=6;

       area:= (2 * (3.1416 * radio * radio)) + ((2 * 3.1416 *
radio) * altura);
       volumen:= (3.1416 * radio * radio) * altura;

{podriamos cambiar "radio*radio" por "sqr(radio)" para hacer el
cuadrado del radio}

       ClrScr;

       WRITE ('AREA DEL CILINDRO:'); WRITE (area); WRITELN (' m2');
       WRITE ('VOLUMEN DEL CILINDRO:'); WRITE (volumen); WRITE (' m3');
        READ

END.



ESPERO Y LES SEA UTIL.



NO SELES OLVIDE COMENTAL.

TURBO PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER21;
       USES CRT;

       VAR T1,T2:REAL;
       VAR T1C,T2F:REAL;
BEGIN
       T1:=32;
       T2:=10;
       T1C:=T1 - 32;
       T2F:=T2 + 32;

       ClrScr;

       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T1:3:0);  WRITE ('º Fahrenheit - ');
       WRITE (T1C:3:0); WRITELN ('º Celsius');
       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T2:3:0);  WRITE ('º Celsius - ');
             WRITE (T2F:3:0); WRITE ('º Fahrenheit');
        READ

END.



ESPERO Y ESTE ESPACIO LES SEA UTIL.

GRACIAS!!

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.