• Lenguaje

    Pascal

  • Descripción

    En un supermercado una ama de casa pone en su carrito los artículos que va tomando de los estantes. La señora quiere asegurarse de que el cajero le cobre bien lo que ella ha comprado, por lo que cada vez que toma un artículo anota su precio junto con la cantidad de artículos iguales que ha tomado y determina cuánto dinero gastara en ese artículo; a esto le suma lo que ira gastando en los demás artículos, hasta que decide que ya tomo todo lo que necesitaba. Ayúdale a esta señora a obtener el total de sus compras.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program TotalDeUnSupermercado;
uses crt;

var cantidad_de_articulos, precio_del_articulo, total : real;
var tecla_repetir : char;
begin
    total := 0;
    repeat
        clrscr;
        write ('Ingresa el valor de cantidad de articulos: ');
        readln (cantidad_de_articulos);
        write ('Ingresa el valor de precio del articulo: ');
        readln (precio_del_articulo);
        total := total+precio_del_articulo*cantidad_de_articulos;
        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: ', total:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.