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