• Lenguaje

    Pascal

  • Descripción

    Lea el número de alumnos que aprobaron, perdieron y se retiraron del curso, y nos devuelva: El porcentaje de alumnos que aprobaron, perdieron y se retiraron.

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
program AlumnosQueAprobaronPerdieronYRetirados;
uses crt;

var alumnos_que_aprobaron, alumnos_que_perdieron, alumnos_que_se_retiraron, porcentaje_aprobaron, porcentaje_perdieron : real;
var porcentaje_se_retiraron, total_de_alumnos : real;
begin
    write ('Ingresa el valor de alumnos que aprobaron: ');
    readln (alumnos_que_aprobaron);
    write ('Ingresa el valor de alumnos que perdieron: ');
    readln (alumnos_que_perdieron);
    write ('Ingresa el valor de alumnos que se retiraron: ');
    readln (alumnos_que_se_retiraron);
    total_de_alumnos := alumnos_que_aprobaron+alumnos_que_perdieron+alumnos_que_se_retiraron;
    if total_de_alumnos=0 then
        begin
            porcentaje_aprobaron := 0;
            porcentaje_perdieron := 0;
            porcentaje_se_retiraron := 0;
        end
    else
        begin
            porcentaje_aprobaron := 100.0*alumnos_que_aprobaron/total_de_alumnos;
            porcentaje_perdieron := 100.0*alumnos_que_perdieron/total_de_alumnos;
            porcentaje_se_retiraron := 100.0*alumnos_que_se_retiraron/total_de_alumnos;
        end;
    writeln ('Valor de porcentaje aprobaron: ', porcentaje_aprobaron:0:6);
    writeln ('Valor de porcentaje perdieron: ', porcentaje_perdieron:0:6);
    writeln ('Valor de porcentaje se retiraron: ', porcentaje_se_retiraron:0:6);
    writeln ('Valor de total de alumnos: ', total_de_alumnos:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.