-
Lenguaje
Pascal
-
Descripción
En una fábrica se desea calcular el peso de la mercancía a embarcarse. En cada embarque viajarán 15 cajas y se debe registrar el peso de cada una para obtener el peso total del embarque.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program PesoDeLaMercanciaAEmbarcarse;
uses crt;
var i : integer;
var peso_de_la_caja, peso_total : real;
begin
peso_total := 0;
for i:=1 to 15 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de peso de la caja: ');
readln (peso_de_la_caja);
peso_total := peso_total+peso_de_la_caja;
writeln;
end;
writeln ('Valor de peso total: ', peso_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var peso_de_la_caja, peso_total : real;
begin
peso_total := 0;
for i:=1 to 15 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de peso de la caja: ');
readln (peso_de_la_caja);
peso_total := peso_total+peso_de_la_caja;
writeln;
end;
writeln ('Valor de peso total: ', peso_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.