Ventas de una caja en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un cajero abre la caja a las 6:00 a.m., realiza sus ventas durante todo el día, a medida que va vendiendo artículos el sistema siempre le pregunta si desea hacer el cierre de la caja, supóngase que el cajero ha realizado ventas durante todo el día, al cabo del cual debe imprimir el total vendido en dicha caja.

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

program VentasDeUnaCaja;

uses crt;

var cantidad_de_articulos, costo_del_articulo, total_vendido, venta : real;

var tecla_repetir : char;

begin

    total_vendido := 0;

    repeat

        clrscr;

        write ('Ingresa el valor de cantidad de articulos: ');

        readln (cantidad_de_articulos);

        write ('Ingresa el valor de costo del articulo: ');

        readln (costo_del_articulo);

        venta := costo_del_articulo*cantidad_de_articulos;

        total_vendido := total_vendido+venta;

        writeln ('Valor de venta: ', venta:0:6);

        writeln;

        write (#168'Deseas repetir el proceso? (S/N): ');

        repeat

            tecla_repetir := readkey;

        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');

    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');

    writeln ('Valor de total vendido: ', total_vendido:0:6);

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

    readkey;

end.