case 2

program casos;
uses wincrt;
var
 opcion, opcion2, i, n:integer;
 nombre: string;
 nota1, nota2, suma, promedio, total, final: real;
 horas_nocturnas, horas_diurnas, totalD, totalN, valor_diur, valor_noct, TOTALM: real;
 respuesta: char;
 valor1, valor2, suma2, resta, multiplicacion: real;


begin
Writeln ('Menu de Casos');
writeln ('');
writeln ('');
writeln ('Ingrese 1 para calcular Notas de alumnos');
Writeln ('Ingrese 2 para calculo de horas trabajadas');
writeln ('Ingrese 3 para Operaciones Matematicas ');
readln (opcion);
clrscr;

case opcion of

1: begin
 writeln (' Calculo Notas de alumnos');
 Repeat
 begin
 i:=i+1;
 writeln ('Ingrese el nombre del Alumno');
 readln (nombre);
 writeln ('Ingrese Nota1');
 readln (nota1);
 writeln ('Ingrese Nota2');
 readln (nota2);
 suma:= nota1+nota2;
 promedio:= suma/2;
 clrscr;
 writeln ('El promedio de', nombre ,' es: ', promedio:5:2);
 total:= total+promedio;
 writeln ('');
 writeln ('Desea agregar otro alumno');
 readln (respuesta);
 end;
 until respuesta='N';
 clrscr;
 final:= total/i;
 writeln ('El promedio total entre los alumnos es: ', final:5:2);
  end;

 2:
Begin
writeln ('          Calculo horas Trabajadas');
writeln ('');
writeln ('');
writeln (' ¿Cuantos Trabajadores tiene la Empresa? ');
readln (n);
clrscr;

for i:=1 to n do
begin
writeln ('Introduzca el numero de horas diurnas trabajadas ');
readln (horas_diurnas);
writeln ('Introduzca el valor de horas diurnas ');
readln (valor_diur);
writeln ('Introduzca el numero de horas nocturnas trabajadas');
readln (horas_nocturnas);
writeln ('Introduzca el valor de horas nocturnas ');
readln (valor_noct);
clrscr;
totalD:=(horas_diurnas*valor_diur);
totalN:= (horas_nocturnas*valor_noct);
TOTALM:= (totalD+totalN);
writeln ('');
writeln ('Total del Trabajador numero ', i);
writeln ('');
writeln ('El total segun las horas diurnas trabajas es: ', totalD:5:2);
writeln ('El total segun las horas nocturnas es: ', totalN:5:2);
writeln ('');
writeln ('El total de todas las horas trabajadas es: ', TOTALM:5:2);
writeln ('');
writeln ('');
end;
end;


3:Begin
clrscr;
writeln ('Menu Matematico');
writeln ('');
writeln ('Presione 1 para sumar');
writeln ('Presione 2 para restar');
writeln ('Presione 3 para multiplicar');
readln (opcion2);
clrscr;
if opcion2=1 then
begin
Writeln ('programa de Suma');
writeln ('');
writeln ('introduzcas numero uno');
readln (valor1);
writeln ('introduzcas numero dos');
readln (valor2);
suma2:= valor1+valor2;
writeln ('el resultado es:', suma:5:2);
end
 else
if opcion2 =2 then
begin
writeln ('programa de Resta');
writeln ('');
writeln ('introduzcas numero uno');
readln (valor1);
writeln ('introduzcas numero dos');
readln (valor2);
resta:= valor1-valor2;
writeln ('el resultado es:', resta:5:2);
end
 else
if opcion2=3 then
begin
writeln ('Programa de multiplicacion');
writeln ('');
writeln ('introduzcas numero uno');
readln (valor1);
writeln ('introduzcas numero dos');
readln (valor2);
multiplicacion:= valor1*valor2;
writeln ('el resultado es:', multiplicacion:5:2);
end
end;




end;

if (opcion<>1) and (opcion<>2) and (opcion<>3) then
writeln ('Opcion Invalida');

end.