Pascal/Turbo Pascal - pascal, notas, promedios

Saludos maestros, vengo a molestar con un ejercicio urgente, si me ayudan a resolverlo, les estaría eternamente agradecido ;) de antemano muxas gracias

almacene 7 notas (4 controles que corresponden al 15%,
2 cátedras, cada una el 25%, y 1 examen equivalente al 35%,

De 1 alumno calcule, si el alumno aprueba o no el ramo e
imprima si aprobó o no, con su respectiva nota final,
Utilice arreglos.20 puntos.

Ok, ¿qué llevas hecho hasta ahora?.

seria algo mas menos como esto

program alumnos (input,output);
type
contol=array [1..4] of real
catedras=array [1..2] of real
var
con:control
cat:catedra
examen,promcon,promcat,promexa,final:real

begin
writeln('ingrese nombre del alumno');
readln(alumno);
writeln('ingrese las 4 notas de controles');
readln(con);
writeln('ingrese las 2 notas de catedra');
readln(cat);
writeln('ingrese la nota del examen');
readln(examen);
promcon:=((con[1]+con[2]+con[3]+con[4])*0.15);
promcat:=((cat[1]+cat[2])*0.50);
promexa:=(examen*0.35);
final:=(promcon+promcat+promexa)
if (final<4) then
writeln('el alumno reprobo el ramo con nota ',final);
else
writeln('el alumno aprobo el ramo con nota ',final);
end.
x favor corrijan si es posible

Bien, no me aclara mucho. El código fuente tiene unos cuantos errores de sintaxis, faltan algunos punto y coma y al menos un identificador está mal escrito.

Pero la lógica del programa no la entiendo ya desde el enunciado:

Supongamos que trabajamos con un solo alumno. De ese alumno hay que almacenar 7 notas (acá hay que poner un array de 7 posiciones), 4 de ellas representan el 15% de la nota final, 2 notas representan el 25% y la restante el 35%. ¿Cómo hago 100% con estos número?:

(15*4)+(25*2)+35=145 (mal)

o bien:

15+25+35=75 (mal)

o bien:

15+(25*2)+35=100 (bien)

----*El enunciado está mal expresado*----

Ahora bien ¿qué nota corresponde a qué porcentaje?. Voy a suponer que le pido al usuario que primero ingrese las 4 notas que todas juntas son el 15%, luego que ingrese las dos notas que cada una de ellas representan el 25% y por último la nota que es el 35%.

Luego de esto hay que determinar si aprobó o no, pero ¿qué quiterio uso?, ¿cómo se sabe que un alumno aprueba o no?, ¿aprueba con más de 5, con más de 6? (¿qué calificación se usa?).

Ok, veamos que sale de todo esto:

type

TNotas=Array[1..7] of real;

TAlumno=record
Nombre: string;
Notas: TNotas;
end;
var

Alumno: TAlumno;

procedure Ingreso(A: TAlumno);
var
i: integer;
begin
WriteLn('Ingrese el nombre del alumno: ');
ReadLn(A.Nombre);

WriteLn('A continuación ingrese las cuatro notas que juntas representan el 15%');
for i:=1 to 4 do
ReadLn(A.Notas[i]);

WriteLn('A continuación ingrese las dos notas que cada una representan el 25%');
for i:=5 to 6 do
ReadLn(A.Notas[i]);

WriteLn('A continuación ingrese la nota que representa el 35%');
ReadLn(A.Notas[7]);

end;

function Promedio(A: TAlumno): real;
begin
Promedio:=((A.Notas[1]+A.Notas[2]+A.Notas[3]+A.Notas[4])*0.15)+(A.Notas[5]*.0.25)+(A.Notas[6]*.0.25)+(A.Notas[7]*.0.35);
end;

begin
Ingreso(Alumno);
WriteLn('La nota final de ',Alumno.Nombre,' es ',Promedio(Alumno):5:2);
end.

Hasta acá puedo llegar.

maestro, corrijo, las 4 notas hacen el 15 %, a+b+c+d/4*0.15 sorry por expresarme mal y muxas gracias x la ayuda, creanme q lo valoro

realizar el promedio de 3 notas en pascal

y la nota para aprobar es 4.0

esto seria lo ultimo, me asalta la ultima duda, en la parte del promedio las 4 notas d controles despues d sumarlas no se tendrian q dividir por 4 antes d multiplicar por 0.15. al = q las catedras despues d sumarlas dividirlas por 2 para luego multiplicarlas por 0.50, de ser asi como kedarias mas menos, muxas gracias d nuevo

Pues agrega la división donde sea necesario.

buenas amigos necesito ayuda para pasar un programa a pascal yo no tengo muchos conocimientos sobre eso y necesito su ayuda aqui les dejo el programa.


Desarrollar un programa que permita leer las notas de 50 alumnos de una asignatura y evaluar cuantos aprobaron y cuantos fueron aplazados considerando que la nota minima aprobatoria es 10 elaborar analisis, algoritmo y diagrama de flujo.