• Lenguaje

    Pascal

  • Descripción

    Una fotocopiadora cobra 100 pesos por cada fotocopia si el número de copias es menor a 50, 80 pesos si se solicitan entre 50 y 100 copias, 65 pesos si el número de copias es mayor a 100 y menor a 200 y 50 pesos si el número de copias es superior a 200. Esta promoción aplica independientemente de sí las copias son o no del mismo original. Desarrollar un algoritmo que permita determinar el valor que debe pagar una persona que manda a fotocopiar un libro para sus compañeros. El usuario deberá ingresar el número de hojas del libro y el número total de copias del libro que se desea realizar.

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
program PromocionEnUnaFotocopiadora;
uses crt;

var copias_del_libro, costo_por_fotocopia, numero_de_copias, pago : integer;
begin
    write ('Ingresa el valor de copias del libro: ');
    readln (copias_del_libro);
    write ('Ingresa el valor de numero de copias: ');
    readln (numero_de_copias);
    costo_por_fotocopia := 0;
    if numero_de_copias<50 then
        begin
            costo_por_fotocopia := 100;
        end;
    if (numero_de_copias>=50) and (numero_de_copias<=100) then
        begin
            costo_por_fotocopia := 80;
        end;
    if (numero_de_copias>100) and (numero_de_copias<=200) then
        begin
            costo_por_fotocopia := 65;
        end;
    if numero_de_copias>200 then
        begin
            costo_por_fotocopia := 50;
        end;
    pago := costo_por_fotocopia*numero_de_copias*copias_del_libro;
    writeln ('Valor de costo por fotocopia: ', costo_por_fotocopia);
    writeln ('Valor de pago: ', pago);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.