Número efectivo de horas de un profesor en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una institución educativa contrata docentes para sus programas académicos y desea conocer el número efectivo de horas que trabaja un profesor, si tiene varios cursos de 20 estudiantes cada uno. Los criterios a tener en cuenta son:
- Por cada 2 horas de clase, un docente invierte una hora en prepararla.
- Existen cursos de tipo A con 32 horas por semestre, de tipo B con 48 horas por semestre y tipo C con 64 horas por semestre.
- En cada curso se realizan 5 evaluaciones y el docente se tarda 24 horas en revisar y calificar trabajos en cada evaluación.
Los resultados esperados son: número de horas dictadas y número de horas reales invertidas por el docente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program NumeroEfectivoDeHorasDeUnProfesor;

uses crt;

var cantidad_de_cursos_de_tipo_A, cantidad_de_cursos_de_tipo_B, cantidad_de_cursos_de_tipo_C, horas_de_evaluacion, horas_de_preparacion : real;

var numero_de_horas_dictadas, numero_de_horas_reales : real;

begin

    write ('Ingresa el valor de cantidad de cursos de tipo A: ');

    readln (cantidad_de_cursos_de_tipo_A);

    write ('Ingresa el valor de cantidad de cursos de tipo B: ');

    readln (cantidad_de_cursos_de_tipo_B);

    write ('Ingresa el valor de cantidad de cursos de tipo C: ');

    readln (cantidad_de_cursos_de_tipo_C);

    numero_de_horas_dictadas := cantidad_de_cursos_de_tipo_A*32+cantidad_de_cursos_de_tipo_B*48+cantidad_de_cursos_de_tipo_C*64;

    horas_de_evaluacion := 24*5*(cantidad_de_cursos_de_tipo_A+cantidad_de_cursos_de_tipo_B+cantidad_de_cursos_de_tipo_C);

    horas_de_preparacion := numero_de_horas_dictadas/2;

    numero_de_horas_reales := numero_de_horas_dictadas+horas_de_evaluacion+horas_de_preparacion;

    writeln ('Valor de horas de evaluacion: ', horas_de_evaluacion:0:6);

    writeln ('Valor de horas de preparacion: ', horas_de_preparacion:0:6);

    writeln ('Valor de numero de horas dictadas: ', numero_de_horas_dictadas:0:6);

    writeln ('Valor de numero de horas reales: ', numero_de_horas_reales:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.