• Lenguaje

    Pascal

  • Descripción

    A un digitador le pagan 0.50 soles por cada hoja que digita, 1.00 soles por cada hoja que imprime en blanco y negro y 2.00 soles por cada hoja que imprime a color. Si un día digita X hojas de las cuales solamente Y deben imprimirse a color y Z en blanco y negro. El resto de páginas no se imprime. ¿Por qué gana más? ¿por digitar o por imprimir?.

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

var X_hojas, Y_hojas, Z_hojas, ganancias_por_digitar, ganancias_por_imprimir : real;
begin
    write ('Ingresa el valor de X hojas: ');
    readln (X_hojas);
    write ('Ingresa el valor de Y hojas: ');
    readln (Y_hojas);
    write ('Ingresa el valor de Z hojas: ');
    readln (Z_hojas);
    ganancias_por_digitar := 0.50*X_hojas;
    ganancias_por_imprimir := 1.0*Z_hojas+2.0*Y_hojas;
    if ganancias_por_digitar>ganancias_por_imprimir then
        begin
            writeln ('Gana m'#160's por digitar.');
        end;
    if ganancias_por_digitar<ganancias_por_imprimir then
        begin
            writeln ('Gana m'#160's por imprimir.');
        end;
    if ganancias_por_digitar=ganancias_por_imprimir then
        begin
            writeln ('Gana lo mismo por digitar e imprimir.');
        end;
    writeln ('Valor de ganancias por digitar: ', ganancias_por_digitar:0:6);
    writeln ('Valor de ganancias por imprimir: ', ganancias_por_imprimir:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.