• Lenguaje

    Pascal

  • Descripción

    Tenemos dos alumnos A y B. El alumno A del curso de Introducción a la Programación, obtiene durante el semestre 3 evaluaciones, las cuales tienen una ponderación de 25%, 35% y 40% respectivamente, paralelamente el alumno B del mismo curso rinde las mismas evaluaciones con la misma escala de ponderación. Calcule el promedio de ambos estudiantes y señala cuál de los dos obtiene el mejor promedio ponderado.

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

var evaluacion_1_A, evaluacion_1_B, evaluacion_2_A, evaluacion_2_B, evaluacion_3_A : real;
var evaluacion_3_B, promedio_A, promedio_B : real;
begin
    write ('Ingresa el valor de evaluacion 1 A: ');
    readln (evaluacion_1_A);
    write ('Ingresa el valor de evaluacion 1 B: ');
    readln (evaluacion_1_B);
    write ('Ingresa el valor de evaluacion 2 A: ');
    readln (evaluacion_2_A);
    write ('Ingresa el valor de evaluacion 2 B: ');
    readln (evaluacion_2_B);
    write ('Ingresa el valor de evaluacion 3 A: ');
    readln (evaluacion_3_A);
    write ('Ingresa el valor de evaluacion 3 B: ');
    readln (evaluacion_3_B);
    promedio_A := evaluacion_1_A*0.25+evaluacion_2_A*0.35+evaluacion_3_A*0.4;
    promedio_B := evaluacion_1_B*0.25+evaluacion_2_B*0.35+evaluacion_3_B*0.4;
    if promedio_A>promedio_B then
        begin
            writeln ('El alumno A obtiene el mejor promedio ponderado.');
        end;
    if promedio_B>promedio_A then
        begin
            writeln ('El alumno B obtiene el mejor promedio ponderado.');
        end;
    writeln ('Valor de promedio A: ', promedio_A:0:6);
    writeln ('Valor de promedio B: ', promedio_B:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.