-
Lenguaje
Pascal
-
Descripción
Obtener el grado de eficiencia de un operario de una fábrica de tornillos de acuerdo a las siguientes condiciones:
- Menos de 200 tornillos defectuosos.
- Más de 10,000 tornillos producidos.
El grado de eficiencia se determina de la siguiente manera:
- Si no cumple ninguna de las condiciones, grado 5.
- Si sólo cumple la primera condición, grado 6.
- Si sólo cumple la segunda condición, grado 7.
- Si cumple las dos condiciones, grado 8.
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 GradoDeEficiencia;
uses crt;
var grado, tornillos_defectuosos, tornillos_producidos : integer;
begin
write ('Ingresa el valor de tornillos defectuosos: ');
readln (tornillos_defectuosos);
write ('Ingresa el valor de tornillos producidos: ');
readln (tornillos_producidos);
grado := 0;
if (tornillos_defectuosos>=200) and (tornillos_producidos<=10000) then
begin
grado := 5;
end;
if (tornillos_defectuosos>200) and (tornillos_producidos<=10000) then
begin
grado := 6;
end;
if (tornillos_defectuosos>=200) and (tornillos_producidos>10000) then
begin
grado := 7;
end;
if (tornillos_defectuosos<200) and (tornillos_producidos>10000) then
begin
grado := 8;
end;
writeln ('Valor de grado: ', grado);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var grado, tornillos_defectuosos, tornillos_producidos : integer;
begin
write ('Ingresa el valor de tornillos defectuosos: ');
readln (tornillos_defectuosos);
write ('Ingresa el valor de tornillos producidos: ');
readln (tornillos_producidos);
grado := 0;
if (tornillos_defectuosos>=200) and (tornillos_producidos<=10000) then
begin
grado := 5;
end;
if (tornillos_defectuosos>200) and (tornillos_producidos<=10000) then
begin
grado := 6;
end;
if (tornillos_defectuosos>=200) and (tornillos_producidos>10000) then
begin
grado := 7;
end;
if (tornillos_defectuosos<200) and (tornillos_producidos>10000) then
begin
grado := 8;
end;
writeln ('Valor de grado: ', grado);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.