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.