-
Lenguaje
Pascal
-
Descripción
Una empresa X trabaja con láminas de hierro para fabricar una pieza. Se conoce que (a) la lámina mide en promedio 4 metros de largo por 1.5 metros de ancho; (b) la pieza a fabricar consume 0.5 metros en total. Se requiere que calcule y muestre cuántas piezas se fabrican con una lámina y cuánto será el desperdicio.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program LaminasDeHierro;
uses crt, math;
var desperdicio, metros_cuadrados, piezas_fabricadas : real;
begin
metros_cuadrados := 4.0*1.5;
piezas_fabricadas := floor(metros_cuadrados/0.5);
desperdicio := piezas_fabricadas*0.5-metros_cuadrados;
writeln ('Valor de desperdicio: ', desperdicio:0:6);
writeln ('Valor de metros cuadrados: ', metros_cuadrados:0:6);
writeln ('Valor de piezas fabricadas: ', piezas_fabricadas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var desperdicio, metros_cuadrados, piezas_fabricadas : real;
begin
metros_cuadrados := 4.0*1.5;
piezas_fabricadas := floor(metros_cuadrados/0.5);
desperdicio := piezas_fabricadas*0.5-metros_cuadrados;
writeln ('Valor de desperdicio: ', desperdicio:0:6);
writeln ('Valor de metros cuadrados: ', metros_cuadrados:0:6);
writeln ('Valor de piezas fabricadas: ', piezas_fabricadas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.