-
Lenguaje
Pascal
-
Descripción
El programa debe preguntar el nombre, edad, sexo y estudios cursados (0:sin estudios, 1: primaria, 2:secundaria, 3: terciario, 4:universitario, 5: posgrado)
Con los datos ingresados, debe decidir e informar al usuario las ofertas laborales que coinciden con su perfil (con los datos ingresados).
El sistema tiene ingresado las siguientes ofertas laborales:
Podrá ser profesor de Educación Física, las siguientes condiciones: que sea varón, por lo menos terciario en curso o completo y edad entre 18 y 35 años.
Podrá ser Secretaria, las siguientes condiciones: que sea mujer, por lo menos secundario completo, y edad entre 18 y 60 años.
Podrá ser Docente, las siguientes condiciones: que sexo indistinto, sòlo secundario completo, y edad mayor a 18 años.
Si no encaja en ninguna de estas ofertas debe imprimir un mensaje que le diga [nombre de la persona] “, no se encontraron empleos aún, vuelva a consultar en unos días. Saludos. Equipo de RRHH"
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
var edad, empleos_encontrados, estudios_cursados, sexo : integer;
var nombre : string;
begin
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de edad: ');
readln (edad);
empleos_encontrados := 0;
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- mujer');
writeln (' 2.- var'#162'n');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
writeln ('Selecciona el valor de estudios cursados.');
writeln (' 1.- primaria');
writeln (' 2.- secundaria');
writeln (' 3.- terciario');
writeln (' 4.- universitario');
writeln (' 5.- posgrado');
write (' : ');
repeat
readln (estudios_cursados);
if (estudios_cursados<1) or (estudios_cursados>5) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (estudios_cursados>=1) and (estudios_cursados<=5);
if (sexo=2) and (estudios_cursados>=3) and (edad>=18) and (edad<=35) then
begin
writeln ('Podr'#160' ser profesor de Educaci'#162'n F'#161'sica');
empleos_encontrados := empleos_encontrados+1;
end;
if (sexo=1) and (estudios_cursados>=2) and (edad>=18) and (edad<=60) then
begin
writeln ('Podr'#160' ser Secretaria');
empleos_encontrados := empleos_encontrados+1;
end;
if (estudios_cursados>=2) and (edad>18) then
begin
writeln ('Podr'#160' ser Docente');
empleos_encontrados := empleos_encontrados+1;
end;
if empleos_encontrados then
begin
writeln ('No se encontraron empleos a'#163'n, vuelva a consultar en unos d'#161'as.');
writeln ('Saludos.');
writeln ('Equipo de RRHH');
end;
writeln ('Nombre: ', nombre);
writeln ('Valor de empleos encontrados: ', empleos_encontrados);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.