-
Lenguaje
Pascal
-
Descripción
Una bomba de agua puede extraer 800 litros de agua por hora. Calcule el tiempo necesario para extraer todo el líquido de un tanque del que se saben sus medidas: altura y radio (éstas se ingresarán por teclado).
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 BombaDeAgua;
uses crt, math;
var altura_en_metros, capacidad_en_litros, radio_en_metros, tiempo_en_horas : real;
begin
write ('Ingresa el valor de altura en metros: ');
readln (altura_en_metros);
write ('Ingresa el valor de radio en metros: ');
readln (radio_en_metros);
capacidad_en_litros := PI*radio_en_metros*radio_en_metros*altura_en_metros*100;
tiempo_en_horas := capacidad_en_litros/800;
writeln ('Valor de capacidad en litros: ', capacidad_en_litros:0:6);
writeln ('Valor de tiempo en horas: ', tiempo_en_horas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var altura_en_metros, capacidad_en_litros, radio_en_metros, tiempo_en_horas : real;
begin
write ('Ingresa el valor de altura en metros: ');
readln (altura_en_metros);
write ('Ingresa el valor de radio en metros: ');
readln (radio_en_metros);
capacidad_en_litros := PI*radio_en_metros*radio_en_metros*altura_en_metros*100;
tiempo_en_horas := capacidad_en_litros/800;
writeln ('Valor de capacidad en litros: ', capacidad_en_litros:0:6);
writeln ('Valor de tiempo en horas: ', tiempo_en_horas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.