-
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
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.
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.