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