• 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
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.