-
Lenguaje
Pascal
-
Descripción
Se desea conocer una serie de datos de una empresa con 50 empleados:
1. ¿Cuántos empleados ganan más de $300.000 al mes?
2. ¿Cuántos empleados ganan entre $100.000 y $300.000 al mes?
3. ¿Cuántos empleados ganan menos de $100.000 al mes.
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
34
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
34
program GanaciasDe50Empleados;
uses crt;
var i, resultado_1, resultado_2, resultado_3 : integer;
var salario : real;
begin
resultado_1 := 0;
resultado_2 := 0;
resultado_3 := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de salario: ');
readln (salario);
if salario>300000 then
begin
resultado_1 := resultado_1+1;
end;
if (salario=>100000) and (salario<=300000) then
begin
resultado_2 := resultado_2+1;
end;
if salario<100000 then
begin
resultado_3 := resultado_3+1;
end;
writeln;
end;
writeln ('Valor de resultado 1: ', resultado_1);
writeln ('Valor de resultado 2: ', resultado_2);
writeln ('Valor de resultado 3: ', resultado_3);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, resultado_1, resultado_2, resultado_3 : integer;
var salario : real;
begin
resultado_1 := 0;
resultado_2 := 0;
resultado_3 := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de salario: ');
readln (salario);
if salario>300000 then
begin
resultado_1 := resultado_1+1;
end;
if (salario=>100000) and (salario<=300000) then
begin
resultado_2 := resultado_2+1;
end;
if salario<100000 then
begin
resultado_3 := resultado_3+1;
end;
writeln;
end;
writeln ('Valor de resultado 1: ', resultado_1);
writeln ('Valor de resultado 2: ', resultado_2);
writeln ('Valor de resultado 3: ', resultado_3);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.