-
Lenguaje
Pascal
-
Descripción
Recibir una cantidad de monedas en denominaciones de centavo, cinco, diez, veinticinco y de dólar. Luego calcule y muestre en pantalla el valor total en dólares.
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 CentavosDeDolar;
uses crt;
var dolares, monedas_de_centavo, monedas_de_cinco, monedas_de_diez, monedas_de_dólar : real;
var monedas_de_veinticinco : real;
begin
write ('Ingresa el valor de monedas de centavo: ');
readln (monedas_de_centavo);
write ('Ingresa el valor de monedas de cinco: ');
readln (monedas_de_cinco);
write ('Ingresa el valor de monedas de diez: ');
readln (monedas_de_diez);
write ('Ingresa el valor de monedas de d'#162'lar: ');
readln (monedas_de_dólar);
write ('Ingresa el valor de monedas de veinticinco: ');
readln (monedas_de_veinticinco);
dolares := monedas_de_centavo*0.01+monedas_de_cinco*0.05+monedas_de_diez*0.1+monedas_de_veinticinco*0.25+monedas_de_dólar;
writeln ('Valor de dolares: ', dolares:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dolares, monedas_de_centavo, monedas_de_cinco, monedas_de_diez, monedas_de_dólar : real;
var monedas_de_veinticinco : real;
begin
write ('Ingresa el valor de monedas de centavo: ');
readln (monedas_de_centavo);
write ('Ingresa el valor de monedas de cinco: ');
readln (monedas_de_cinco);
write ('Ingresa el valor de monedas de diez: ');
readln (monedas_de_diez);
write ('Ingresa el valor de monedas de d'#162'lar: ');
readln (monedas_de_dólar);
write ('Ingresa el valor de monedas de veinticinco: ');
readln (monedas_de_veinticinco);
dolares := monedas_de_centavo*0.01+monedas_de_cinco*0.05+monedas_de_diez*0.1+monedas_de_veinticinco*0.25+monedas_de_dólar;
writeln ('Valor de dolares: ', dolares:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.