Pascal/Turbo Pascal - POR FAVOR AYUDA CON PASCAL

Como podria desarrollar en Pascal este problema (no soy experto en este programa):

Aqui el Problema propuesto

El departamento academico de Matematica, desea conocer el promedio final de los alumnos, de la seccion 15, para lo cual cuenta con la siguiente informacion:

*Las notas de cada una de las 2 practicas calificadas, de las cuales se elimina la nota mas baja.

* La nota del examen parcial

* La nota del examen final

*La nota dele xamen de subsanacion

Considerar:

PF= PC+Ep+EF

3





si el promedio final PF es menor a 10.5 , emitir un mensaje que indique que, el alumno esta DESAPROBADO y reemplazar el promedio FINAL con la nota del examen de SUBSANACION, en caso contrario dar el mensaje de APROBADO con su nota respectiva.



Gracias amigos por su valiosa ayuda.

Seria mejor que aclares que tema estas viendo, porque la informacion la podes tener en distintas esctructura (listas, Archivos) y varia mucho de uno a otro la forma de hacer el ejercicio...

No entiendo lo que me dices, solo que esta escrito como está, y me piden que realice un programa que al momento de poner RUN funcione y arroje lo que me estan pidiendo, estamos trabajando con TURBO PASCAL
Espero me puedas ayudar amigo
desde ya muchisimas gracias
Raúl

Si no sabes hacer un ejercicio a mano (papel y lapiz) de seguro que no sabrás hacerlo bajo ningún lenguaje de programación por muy facil que este sea.

he leido el enunciado y veo que faltan datos yo no puedo asumir el valor de las notas ya que no estoy en tu entorno y no sé lo que significan datos que tu das por entendido carecen de sentido para mi.

Deberias cambiar el enunciado (notas 1..10 por ejemplo) relee tu enunciado
y mira si eres capaz de hacerlo bajo un papel y un lapiz si puedes dar datos en concreto.
Como puede ser un promedio de 10.5 en un maximo de calificacion de 10(por defecto metodo de calificacion que conozco)
pepe 10, 10, 10, promedio 10+10+10/3= 10 (de donde sale 10.5?)
juan 10, 5, 1 , promedio 10+5+1/3= 5.3 (de donde sale 10.5?)

Saludos y espero haberme explicado bien.

mira haber si he hecho bien el promedio , es lo que yo creo haber entendido
promedio suma/3 ya que en los parciales se desecha el valor mas bajo
en la const min_x_aprobar he propuesto un 7.5 puedes cambiar este valor
tambien el maximo de alumnos que por facilidad he propuesto solo 3
espero que lo entiendas , cualquier duda postea , ah por cierto no te acostumbres a que te den todo echo , simplemente hoy me sentia inspirado.
SALUDOS.
__________________________________________________

{promedio final de los alumnos: PF si <10.5 desaprobado y EF=ESU si >10.5 aprobado
2 practicas calificadas :PC - se elimina la mas baja
- nota del examen parcial :Ep
- nota del examen final :EF
- nota del examen de subsanacion :ESU
{}
uses crt;
var a:integer;
Promedio_final:real;
practica_1_o_2:real;
estado:string;
const min_x_aprobar:real=7.5;
type
R_alumnos=record
nombre:string;
val_practica1:real;
val_practica2:real;
val_Exa_parcial:real;
val_Exa_Final :real;
val_Exa_Subsanacion:real;
end;

const max_alumnos=3;
var alumno:array[1..max_alumnos]of R_alumnos;

{-------------- programa principal _________________}
begin
clrscr;

{ Recogida de datos }
for a:=1 to max_alumnos do begin
gotoxy(1,1);
writeln('introducca datos del alumno', a:3 );

write('Nombre :');
readln(alumno[a].nombre);

write('puntuacion obtenida en la practica 1:');
readln(alumno[a].val_practica1);

write('puntuacion obtenida en la practica 2:');
readln(alumno[a].val_practica2);

write('puntuacion obtenida en el Examen Parcial:');
readln(alumno[a].val_Exa_parcial);

write('puntuacion obtenida en el Examen Final:');
readln(alumno[a].val_Exa_Final);

write('puntuacion obtenida en el Examen de Subsanacion:');
readln(alumno[a].val_Exa_Subsanacion);
clrscr;

end;

{ calculo de promedio final por alumno y muestra por pantalla }

for a:=1 to max_alumnos do begin
{ desechamos el valor mas bajo de las dos practicas,
nos quedamos con el mas alto }
if ( alumno[a].val_practica1 > alumno[a].val_practica2) then
practica_1_o_2:=alumno[a].val_practica1 else
practica_1_o_2:=alumno[a].val_practica2;


Promedio_final:=(practica_1_o_2 +
alumno[a].val_Exa_parcial+
alumno[a].val_Exa_Final)/ 3;

if ( promedio_final > min_x_aprobar )
then estado:='APROBADO ' else
begin
estado:='SUSPENSO ';
promedio_final:=alumno[a].val_Exa_Subsanacion{}
end;

write (' el Alumno ',alumno[a].nombre ,
' con un promedio de :',Promedio_final:2:1);
writeln( ' est  ',estado );
end;


readln;
end.