• Lenguaje

    Pascal

  • Descripción

    Tres alumnos desean saber cuál será su promedio general en las tres materias más difíciles que cursa y cuál será la calificación que obtendrá en cada una de ellas. Estas materias se evalúan como se muestra a continuación:

    La calificación de Matemáticas se obtiene de la siguiente manera:
    Un examen del 90%
    Promedio de tareas 10%
    En esta materia se pidió un total de tres tareas.

    La calificación de Física se obtiene de la siguiente manera:
    Examen 80%
    Promedio de tareas 20%
    En esta materia se pidió un total de dos tareas.

    La calificación de Química se obtiene de la siguiente manera:
    Examen 85%
    Promedio de tareas 15%
    En esta materia se pidió un promedio de tres tareas.

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
40
41
42
43
44
program PromedioDeLasMateriasMasDificiles;
uses crt;

var i : integer;
var calificacion_de_fisica, calificacion_de_matematicas, calificacion_de_quimica, examen_de_fisica, examen_de_matematicas : real;
var examen_de_quimica, promedio_general, tarea_de_fisica_1, tarea_de_fisica_2, tarea_de_matematicas_1 : real;
var tarea_de_matematicas_2, tarea_de_matematicas_3, tarea_de_quimica_1, tarea_de_quimica_2, tarea_de_quimica_3 : real;
begin
    for i:=1 to 3 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de examen de fisica: ');
        readln (examen_de_fisica);
        write ('Ingresa el valor de examen de matematicas: ');
        readln (examen_de_matematicas);
        write ('Ingresa el valor de examen de quimica: ');
        readln (examen_de_quimica);
        write ('Ingresa el valor de tarea de fisica 1: ');
        readln (tarea_de_fisica_1);
        write ('Ingresa el valor de tarea de fisica 2: ');
        readln (tarea_de_fisica_2);
        write ('Ingresa el valor de tarea de matematicas 1: ');
        readln (tarea_de_matematicas_1);
        write ('Ingresa el valor de tarea de matematicas 2: ');
        readln (tarea_de_matematicas_2);
        write ('Ingresa el valor de tarea de matematicas 3: ');
        readln (tarea_de_matematicas_3);
        write ('Ingresa el valor de tarea de quimica 1: ');
        readln (tarea_de_quimica_1);
        write ('Ingresa el valor de tarea de quimica 2: ');
        readln (tarea_de_quimica_2);
        write ('Ingresa el valor de tarea de quimica 3: ');
        readln (tarea_de_quimica_3);
        calificacion_de_matematicas := examen_de_matematicas*0.9+0.1*(tarea_de_matematicas_1+tarea_de_matematicas_2+tarea_de_matematicas_3)/3;
        calificacion_de_fisica := examen_de_fisica*0.8+0.2*(tarea_de_fisica_1+tarea_de_fisica_2)/2;
        calificacion_de_quimica := examen_de_quimica*0.85+0.15*(tarea_de_quimica_1+tarea_de_quimica_2+tarea_de_quimica_3)/3;
        promedio_general := (calificacion_de_matematicas+calificacion_de_fisica+calificacion_de_quimica)/3;
        writeln ('Valor de calificacion de fisica: ', calificacion_de_fisica:0:6);
        writeln ('Valor de calificacion de matematicas: ', calificacion_de_matematicas:0:6);
        writeln ('Valor de calificacion de quimica: ', calificacion_de_quimica:0:6);
        writeln ('Valor de promedio general: ', promedio_general:0:6);
        writeln;
    end;
end.