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