-
Lenguaje
Pascal
-
Descripción
Usted fue elegido para la creación de una aplicación, para el calculo de las notas de una universidad, la boleta de la nota debe llevar el número de cedula del estudiante y el nombre, además se deben de ingresar las 4 calificaciones para el cálculo del promedio, la aplicación debe de ser capaz de realizar lo siguiente:
Calcular el promedio de un solo estudiante.
Calcular el promedio de N cantidad de estudiantes y mostrar si está aprobado o reprobado.
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
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
program NotasDeUnaUniversidad;
uses crt;
var i, n : integer;
var calificacion_1, calificacion_2, calificacion_3, calificacion_4, promedio : real;
var numero_de_cedula, nombre : string;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de cedula: ');
readln (numero_de_cedula);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de calificacion 1: ');
readln (calificacion_1);
write ('Ingresa el valor de calificacion 2: ');
readln (calificacion_2);
write ('Ingresa el valor de calificacion 3: ');
readln (calificacion_3);
write ('Ingresa el valor de calificacion 4: ');
readln (calificacion_4);
promedio := (calificacion_1+calificacion_2+calificacion_3+calificacion_4)/4;
if promedio>=7 then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Reprobado');
end;
writeln ('Numero de cedula: ', numero_de_cedula);
writeln ('Nombre: ', nombre);
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
end;
end.
uses crt;
var i, n : integer;
var calificacion_1, calificacion_2, calificacion_3, calificacion_4, promedio : real;
var numero_de_cedula, nombre : string;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de cedula: ');
readln (numero_de_cedula);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de calificacion 1: ');
readln (calificacion_1);
write ('Ingresa el valor de calificacion 2: ');
readln (calificacion_2);
write ('Ingresa el valor de calificacion 3: ');
readln (calificacion_3);
write ('Ingresa el valor de calificacion 4: ');
readln (calificacion_4);
promedio := (calificacion_1+calificacion_2+calificacion_3+calificacion_4)/4;
if promedio>=7 then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Reprobado');
end;
writeln ('Numero de cedula: ', numero_de_cedula);
writeln ('Nombre: ', nombre);
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
end;
end.