• Lenguaje

    Pascal

  • Descripción

    Calcular la capacidad en litros de un tambo de forma cilíndrica, datos el radio y la altura. Convertir de metros cúbicos a litros.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CapacidadDeUnTamboCilindrico;
uses crt, math;

var altura_en_m, capacidad_en_l, capacidad_en_m3, radio_en_m : real;
begin
    write ('Ingresa el valor de altura en m: ');
    readln (altura_en_m);
    write ('Ingresa el valor de radio en m: ');
    readln (radio_en_m);
    capacidad_en_m3 := PI*radio_en_m*radio_en_m*altura_en_m;
    capacidad_en_l := capacidad_en_m3*100;
    writeln ('Valor de capacidad en l: ', capacidad_en_l:0:6);
    writeln ('Valor de capacidad en m3: ', capacidad_en_m3:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.