-
Lenguaje
Pascal
-
Descripción
Los ingenieros civiles requieren una calculadora específica para cada tipo de obra y así puedan estimar la cantidad de materiales. Para éste caso se le solicita que elabore un algoritmo que permita calcular el N° de ladrillos huecos por metro cuadrado para losa aligerada.
La fórmula que se aplica es:
Cantidad_Ladrillo = 1/((a+v)*l)
Donde:
(a) Ancho del ladrillo hueco.
(v) Ancho de la vigueta.
(l) Longitud del ladrillo colocado.
Nota: Todas las medidas se ingresan en metros.
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 CalculadoraParaCadaTipoDeObra;
uses crt;
var ancho_de_la_vigueta, ancho_del_ladrillo, cantidad_ladrillos, longitud_del_ladrillo : real;
begin
write ('Ingresa el valor de ancho de la vigueta: ');
readln (ancho_de_la_vigueta);
write ('Ingresa el valor de ancho del ladrillo: ');
readln (ancho_del_ladrillo);
write ('Ingresa el valor de longitud del ladrillo: ');
readln (longitud_del_ladrillo);
cantidad_ladrillos := 1.0/((ancho_del_ladrillo+ancho_de_la_vigueta)*longitud_del_ladrillo);
writeln ('Valor de cantidad ladrillos: ', cantidad_ladrillos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ancho_de_la_vigueta, ancho_del_ladrillo, cantidad_ladrillos, longitud_del_ladrillo : real;
begin
write ('Ingresa el valor de ancho de la vigueta: ');
readln (ancho_de_la_vigueta);
write ('Ingresa el valor de ancho del ladrillo: ');
readln (ancho_del_ladrillo);
write ('Ingresa el valor de longitud del ladrillo: ');
readln (longitud_del_ladrillo);
cantidad_ladrillos := 1.0/((ancho_del_ladrillo+ancho_de_la_vigueta)*longitud_del_ladrillo);
writeln ('Valor de cantidad ladrillos: ', cantidad_ladrillos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.