-
Lenguaje
Pascal
-
Descripción
Usted es seleccionado para analizar un problema que permita identificar de 120 estudiantes, cuántos de ellos han pasado un curso (superior o = a 3), deben habilitar (superior a 2) y cuantos definitivamente los han perdido (inferior a 2.0), además cual es el promedio del total del curso.
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
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
program PromedioDe120Estudiantes;
uses crt;
var habilitados, i, pasados, perdidos : integer;
var calificacion, promedio : real;
begin
habilitados := 0;
pasados := 0;
perdidos := 0;
promedio := 0;
for i:=1 to 120 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
promedio := promedio+calificacion;
if calificacion>=3 then
begin
pasados := pasados+1;
end;
if (calificacion=>2) and (calificacion<3) then
begin
habilitados := habilitados+1;
end;
if calificacion<2 then
begin
perdidos := perdidos+1;
end;
writeln;
end;
promedio := promedio/120;
writeln ('Valor de habilitados: ', habilitados);
writeln ('Valor de pasados: ', pasados);
writeln ('Valor de perdidos: ', perdidos);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var habilitados, i, pasados, perdidos : integer;
var calificacion, promedio : real;
begin
habilitados := 0;
pasados := 0;
perdidos := 0;
promedio := 0;
for i:=1 to 120 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
promedio := promedio+calificacion;
if calificacion>=3 then
begin
pasados := pasados+1;
end;
if (calificacion=>2) and (calificacion<3) then
begin
habilitados := habilitados+1;
end;
if calificacion<2 then
begin
perdidos := perdidos+1;
end;
writeln;
end;
promedio := promedio/120;
writeln ('Valor de habilitados: ', habilitados);
writeln ('Valor de pasados: ', pasados);
writeln ('Valor de perdidos: ', perdidos);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.