Registro de ventas en lenguaje Pascal

Lenguaje

Pascal
Descripción

Suponga que tiene usted una tienda y desea registrar las ventas en su computadora. Diseñe un algoritmo que lea por cada cliente, el monto total de su compra. Al final del día que escriba la cantidad total de ventas y el número de clientes atendidos.

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 RegistroDeVentas;

uses crt;

var clientes_atendidos : integer;

var total_de_la_compra, total_de_ventas : real;

var tecla_repetir : char;

begin

    clientes_atendidos := 0;

    total_de_ventas := 0;

    repeat

        clrscr;

        write ('Ingresa el valor de total de la compra: ');

        readln (total_de_la_compra);

        total_de_ventas := total_de_ventas+total_de_la_compra;

        clientes_atendidos := clientes_atendidos+1;

        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 clientes atendidos: ', clientes_atendidos);

    writeln ('Valor de total de ventas: ', total_de_ventas:0:6);

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

    readkey;

end.