• 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
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.