-
Lenguaje
Pascal
-
Descripción
Una escuela primaria va a formar un equipo de basquetball y un equipo de gimnasia. Para esto requiere la siguiente información de los estudiantes: nombre completo, edad, estatura (cm), sexo y promedio.
Si el alumno quiere formar parte del equipo de basquetball, deberá cumplir con los requisitos:
- Tener entre 9 y 11 años.
- Si es niño deberá medir más de 150 cm.
- Si es niña su estatura deberá ser mayor a 140 cm.
Si el alumno quiere formar parte del equipo de gimnasia, los requisitos son:
- Tener entre 6 y 10 años.
- Pero si su promedio es menor que 85 no podrá formar parte de ningún equipo.
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
35
36
37
38
39
40
41
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
program EquiposDeBasquetballYGimnasia;
uses crt;
var disciplina, edad, estatura, genero, promedio : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de estatura: ');
readln (estatura);
write ('Ingresa el valor de promedio: ');
readln (promedio);
writeln ('Selecciona el valor de disciplina.');
writeln (' 1.- Basquetball');
writeln (' 2.- Gimnasia');
write (' : ');
repeat
readln (disciplina);
if (disciplina<1) or (disciplina>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (disciplina>=1) and (disciplina<=2);
writeln ('Selecciona el valor de genero.');
writeln (' 1.- Ni'#164'o');
writeln (' 2.- Ni'#164'a');
write (' : ');
repeat
readln (genero);
if (genero<1) or (genero>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (genero>=1) and (genero<=2);
if (promedio>=85) and (((disciplina=1) and (((genero=1) and (estatura>150)) or ((genero=2) and (estatura>140)))) or ((disciplina=2) and (edad>=9) and (edad<=11))) then
begin
writeln ('Aceptado');
end
else
begin
writeln ('Rechazado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var disciplina, edad, estatura, genero, promedio : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de estatura: ');
readln (estatura);
write ('Ingresa el valor de promedio: ');
readln (promedio);
writeln ('Selecciona el valor de disciplina.');
writeln (' 1.- Basquetball');
writeln (' 2.- Gimnasia');
write (' : ');
repeat
readln (disciplina);
if (disciplina<1) or (disciplina>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (disciplina>=1) and (disciplina<=2);
writeln ('Selecciona el valor de genero.');
writeln (' 1.- Ni'#164'o');
writeln (' 2.- Ni'#164'a');
write (' : ');
repeat
readln (genero);
if (genero<1) or (genero>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (genero>=1) and (genero<=2);
if (promedio>=85) and (((disciplina=1) and (((genero=1) and (estatura>150)) or ((genero=2) and (estatura>140)))) or ((disciplina=2) and (edad>=9) and (edad<=11))) then
begin
writeln ('Aceptado');
end
else
begin
writeln ('Rechazado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.