-
Lenguaje
Pascal
-
Descripción
Leer los datos de entrada de un grupo de 30 alumnos. Los datos son los siguientes:
Nombre, calif1, calif2, calif3, examen_F y trabajoFinal
Obtener la calificación final del curso por cada alumno, tomando en cuenta que el 80% de la calificación final es el promedio de las 3 calificaciones parciales, el 15% es el exámen_F, y el 5% es el trabajo final. Utilice la técnica del contador.
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
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
program CalificacionFinalDe30Alumnos;
uses crt;
var i : integer;
var calif1, calif2, calif3, calificacion_final, examen_F : real;
var trabajoFinal : real;
var Nombre : string;
begin
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el Nombre: ');
readln (Nombre);
write ('Ingresa el valor de calif1: ');
readln (calif1);
write ('Ingresa el valor de calif2: ');
readln (calif2);
write ('Ingresa el valor de calif3: ');
readln (calif3);
write ('Ingresa el valor de examen F: ');
readln (examen_F);
write ('Ingresa el valor de trabajoFinal: ');
readln (trabajoFinal);
calificacion_final := (calif1+calif2+calif3)0.8+examen_F*0.15+trabajoFinal*0.05;
writeln ('Nombre: ', Nombre);
writeln ('Valor de calificacion final: ', calificacion_final:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var calif1, calif2, calif3, calificacion_final, examen_F : real;
var trabajoFinal : real;
var Nombre : string;
begin
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el Nombre: ');
readln (Nombre);
write ('Ingresa el valor de calif1: ');
readln (calif1);
write ('Ingresa el valor de calif2: ');
readln (calif2);
write ('Ingresa el valor de calif3: ');
readln (calif3);
write ('Ingresa el valor de examen F: ');
readln (examen_F);
write ('Ingresa el valor de trabajoFinal: ');
readln (trabajoFinal);
calificacion_final := (calif1+calif2+calif3)0.8+examen_F*0.15+trabajoFinal*0.05;
writeln ('Nombre: ', Nombre);
writeln ('Valor de calificacion final: ', calificacion_final:0:6);
writeln;
end;
end.