-
Lenguaje
Pascal
-
Descripción
Ingresar un valor y dar su clasificación.
- 1 a 2.99 es Bajo.
- 3 a 4.99 es Regular.
- 5 a 6.99 es Medio.
- 7 a 8.99 es Bueno.
- 9 a 10 es Excelente.
Controle en el caso de valores negativos, cero o mayores a 10 que esta fuera de rango.
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
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
program ClasificacionDeUnValor;
uses crt;
var un_numero : real;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
if (un_numero<1) or (un_numero>10) then
begin
writeln ('Fuera de rango');
end;
if (un_numero>=1) and (un_numero<3) then
begin
writeln ('Bajo');
end;
if (un_numero>=3) and (un_numero<5) then
begin
writeln ('Regular');
end;
if (un_numero>=5) and (un_numero<7) then
begin
writeln ('Medio');
end;
if (un_numero>=7) and (un_numero<9) then
begin
writeln ('Bueno');
end;
if (un_numero>=9) and (un_numero<=10) then
begin
writeln ('Excelente');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var un_numero : real;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
if (un_numero<1) or (un_numero>10) then
begin
writeln ('Fuera de rango');
end;
if (un_numero>=1) and (un_numero<3) then
begin
writeln ('Bajo');
end;
if (un_numero>=3) and (un_numero<5) then
begin
writeln ('Regular');
end;
if (un_numero>=5) and (un_numero<7) then
begin
writeln ('Medio');
end;
if (un_numero>=7) and (un_numero<9) then
begin
writeln ('Bueno');
end;
if (un_numero>=9) and (un_numero<=10) then
begin
writeln ('Excelente');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.