-
Lenguaje
Pascal
-
Descripción
Una empresa constructora tiene serios problemas para poder calcular los metros cúbicos de concreto, arena y piedra que necesitará para techar, le piden construir un algoritmo que le permita sistematizar dicho proceso. Para poder calcular los metros cúbicos, deberá ingresar las medidas del techo en metros: largo x ancho x altura. Se sabe que por cada metro cúbico necesitará 2.5 bolsas de cemento, 1.5 bolsas de arena y 2 bolsas de piedra. Además, por cada 10 metros cúbicos necesitaremos la ayuda de 5 personas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program BolsasDeCementoPiedraYArena;
uses crt, math;
var altura, ancho, bolsas_de_arena, bolsas_de_cemento, bolsas_de_piedra : real;
var largo, metros_cubicos, personas : real;
begin
write ('Ingresa el valor de altura: ');
readln (altura);
write ('Ingresa el valor de ancho: ');
readln (ancho);
write ('Ingresa el valor de largo: ');
readln (largo);
metros_cubicos := largo*ancho*altura;
bolsas_de_cemento := metros_cubicos*2.5;
bolsas_de_arena := metros_cubicos*1.5;
bolsas_de_piedra := metros_cubicos*2;
personas := floor(metros_cubicos/10)*5;
writeln ('Valor de bolsas de arena: ', bolsas_de_arena:0:6);
writeln ('Valor de bolsas de cemento: ', bolsas_de_cemento:0:6);
writeln ('Valor de bolsas de piedra: ', bolsas_de_piedra:0:6);
writeln ('Valor de metros cubicos: ', metros_cubicos:0:6);
writeln ('Valor de personas: ', personas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var altura, ancho, bolsas_de_arena, bolsas_de_cemento, bolsas_de_piedra : real;
var largo, metros_cubicos, personas : real;
begin
write ('Ingresa el valor de altura: ');
readln (altura);
write ('Ingresa el valor de ancho: ');
readln (ancho);
write ('Ingresa el valor de largo: ');
readln (largo);
metros_cubicos := largo*ancho*altura;
bolsas_de_cemento := metros_cubicos*2.5;
bolsas_de_arena := metros_cubicos*1.5;
bolsas_de_piedra := metros_cubicos*2;
personas := floor(metros_cubicos/10)*5;
writeln ('Valor de bolsas de arena: ', bolsas_de_arena:0:6);
writeln ('Valor de bolsas de cemento: ', bolsas_de_cemento:0:6);
writeln ('Valor de bolsas de piedra: ', bolsas_de_piedra:0:6);
writeln ('Valor de metros cubicos: ', metros_cubicos:0:6);
writeln ('Valor de personas: ', personas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.