Total de una caja registradora en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se desea saber el total de una caja registradora de un almacén, se conoce el número de billetes y monedas, así como su valor. Realice un algoritmo para determinar el total.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

program TotalDeUnaCajaRegistradora;

uses crt;

var billetes_de_100, billetes_de_1000, billetes_de_20, billetes_de_200, billetes_de_50 : integer;

var billetes_de_500, monedas_de_1, monedas_de_10, monedas_de_2, monedas_de_20 : integer;

var monedas_de_5, total : integer;

begin

    write ('Ingresa el valor de billetes de 100: ');

    readln (billetes_de_100);

    write ('Ingresa el valor de billetes de 1000: ');

    readln (billetes_de_1000);

    write ('Ingresa el valor de billetes de 20: ');

    readln (billetes_de_20);

    write ('Ingresa el valor de billetes de 200: ');

    readln (billetes_de_200);

    write ('Ingresa el valor de billetes de 50: ');

    readln (billetes_de_50);

    write ('Ingresa el valor de billetes de 500: ');

    readln (billetes_de_500);

    write ('Ingresa el valor de monedas de 1: ');

    readln (monedas_de_1);

    write ('Ingresa el valor de monedas de 10: ');

    readln (monedas_de_10);

    write ('Ingresa el valor de monedas de 2: ');

    readln (monedas_de_2);

    write ('Ingresa el valor de monedas de 20: ');

    readln (monedas_de_20);

    write ('Ingresa el valor de monedas de 5: ');

    readln (monedas_de_5);

    total := billetes_de_1000*1000+billetes_de_500*500+billetes_de_200*200+billetes_de_100*100+billetes_de_50*50+billetes_de_20*20+monedas_de_20*20+monedas_de_10*10+monedas_de_5*5+monedas_de_2*2+monedas_de_1;

    writeln ('Valor de total: ', total);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.