-
Lenguaje
Pascal
-
Descripción
El señor Juan Pérez es un viajero constante y registra en su libreta lo que le cuesta cada pasaje de cada trayecto en pesos. Necesita calcular cuánto dinero gasta al final de mes, en N trayectos. El debe registrar inmediatamente termina cada trayecto el valor gastado en él.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program CostoDeViajes;
uses crt;
var i, n : integer;
var costo_del_pasaje, gasto_final : real;
begin
gasto_final := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de costo del pasaje: ');
readln (costo_del_pasaje);
gasto_final := gasto_final+costo_del_pasaje;
writeln;
end;
writeln ('Valor de gasto final: ', gasto_final:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var costo_del_pasaje, gasto_final : real;
begin
gasto_final := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de costo del pasaje: ');
readln (costo_del_pasaje);
gasto_final := gasto_final+costo_del_pasaje;
writeln;
end;
writeln ('Valor de gasto final: ', gasto_final:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.