-
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
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.
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.