-
Lenguaje
Pascal
-
Descripción
Dada la cantidad expresada en euros y otra en soles, determine la suma, pero convertida a dólares, a marcos, soles, y a yenes.
Considere las siguientes equivalencias:
1 dolar = 0.76 euros
1 dolar = 1.45 marcos
1 dolar = 3.35 soles
1 dolar = 0.075 yenes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program ConversionDeEurosYSolesADolaresMarcosSolesYYenes;
uses crt;
var cantidad_en_euros, cantidad_en_soles, suma_en_dolares, suma_en_marcos, suma_en_soles : real;
var suma_en_yenes : real;
begin
write ('Ingresa el valor de cantidad en euros: ');
readln (cantidad_en_euros);
write ('Ingresa el valor de cantidad en soles: ');
readln (cantidad_en_soles);
suma_en_dolares := cantidad_en_euros/0.76+cantidad_en_soles/3.35;
suma_en_marcos := suma_en_dolares*1.45;
suma_en_soles := suma_en_dolares*3.35;
suma_en_yenes := suma_en_dolares*0.075;
writeln ('Valor de suma en dolares: ', suma_en_dolares:0:6);
writeln ('Valor de suma en marcos: ', suma_en_marcos:0:6);
writeln ('Valor de suma en soles: ', suma_en_soles:0:6);
writeln ('Valor de suma en yenes: ', suma_en_yenes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_en_euros, cantidad_en_soles, suma_en_dolares, suma_en_marcos, suma_en_soles : real;
var suma_en_yenes : real;
begin
write ('Ingresa el valor de cantidad en euros: ');
readln (cantidad_en_euros);
write ('Ingresa el valor de cantidad en soles: ');
readln (cantidad_en_soles);
suma_en_dolares := cantidad_en_euros/0.76+cantidad_en_soles/3.35;
suma_en_marcos := suma_en_dolares*1.45;
suma_en_soles := suma_en_dolares*3.35;
suma_en_yenes := suma_en_dolares*0.075;
writeln ('Valor de suma en dolares: ', suma_en_dolares:0:6);
writeln ('Valor de suma en marcos: ', suma_en_marcos:0:6);
writeln ('Valor de suma en soles: ', suma_en_soles:0:6);
writeln ('Valor de suma en yenes: ', suma_en_yenes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.