-
Lenguaje
Pascal
-
Descripción
El presidente de la república ha decidido estimular a todos los estudiantes de una universidad mediante la asignación de becas mensuales, para esto se tomarán en consideración los siguientes criterios:
Para alumnos mayores de 18 años con promedio mayor o igual a 4.5, la beca será de $200.000; con promedio mayor o igual a 3.5, de $100.000; para los promedios menores de 3.5 pero mayores o iguales a 3.0, de $50.000; a los demás se les enviará una carta de invitación incitándolos a que estudien más en el próximo ciclo escolar.
Permita identificar cuanto recibe un estudiante becado de acuerdo a su promedio académico.
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 BecasMensualesAsignadasPorElPresidente3;
uses crt;
var beca, edad, promedio : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de promedio: ');
readln (promedio);
beca := 0;
if (edad>18) and (promedio>=4.5) then
begin
beca := 200000;
end;
if (edad>18) and (promedio>=3.5) and (promedio<4.5) then
begin
beca := 100000;
end;
if (edad>18) and (promedio>=3) and (promedio<3.5) then
begin
beca := 50000;
end;
if (edad>18) and (promedio<3) then
begin
writeln ('Se env'#161'a carta de invitaci'#162'n a estudiar m'#160's.');
end;
writeln ('Valor de beca: ', beca:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var beca, edad, promedio : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de promedio: ');
readln (promedio);
beca := 0;
if (edad>18) and (promedio>=4.5) then
begin
beca := 200000;
end;
if (edad>18) and (promedio>=3.5) and (promedio<4.5) then
begin
beca := 100000;
end;
if (edad>18) and (promedio>=3) and (promedio<3.5) then
begin
beca := 50000;
end;
if (edad>18) and (promedio<3) then
begin
writeln ('Se env'#161'a carta de invitaci'#162'n a estudiar m'#160's.');
end;
writeln ('Valor de beca: ', beca:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.