Soy nueva en pascal,este es mi segundo programa y me sale error 85 en el end final y no se a q corresponde
Program curso;
Usescrt;
var CARNET,NOMBRE,APROBADO,APLAZADO,REPROBADO,SIGUE:CHAR; PQ,Q1,Q2,Q3,Q4:REAL; PT,T1,T2,T3,T4:REAL; PE,E1,E2:REAL; PF,TP,PG:REAL;
Begin Repeat clrscr; writeln('Digite Nombre'); readln(nombre); writeln(´Digite su número de carnet'); readln(carnet); gotoxy(10,10);writeln('Digite la nota del Quiz 1,2,3 y 4 seguido de enter'); readln(Q1,Q2,Q3,Q4); gotoxy(10,17);writeln('Digite la nota de la Tarea 1,2,3 y 4 seguido de enter'); readln(T1,T2,T3,T4); gotoxy(10,23);writeln('Digite la nota del Examen 1y2 seguido de enter'); readln(E1,E2);Begin
PQ:=((Q1+Q2+Q3+Q4)*0.25);PT:=((T1+T2+T3+T4)*0.30);PE:=((E1+E2)*0.45);
PF:=PQ+PT+PE;
writeln('El promedio Final del estudiante es:',PF:7:2);readln;
If(PF>=70)Then
Begin
Writeln('La condicion del estudiante es:APROBADO');
end else
If (PF>=50) and (PF<70) Then
Begin
Writeln('La condicion del estudiante es:APLAZADO');
endelse
If (PF<50)Then
Begin
Writeln('La condicion del estudiante es:REPROBADO');
end;
Writeln('desea continuar S/N?');Sigue:=readkey;until(sigue='N')or(sigue='n');writeln('Presione cualquier tecla para salir');readkey;

End.




1

Respuestas

2013-08-26T23:34:26+02:00
Hola, acabo de ver tu ejercicio y te corregi los siguientes errores:

-- writeln(´Digite su número de carnet'); --> Al lado del Digite, tenias una tilde en vez de un apostrofe.




Tenias un begin de mas en esta parte:

writeln('Digite la nota del Examen 1y2 seguido de enter');
readln(E1,E2);
Begin --> Este era el begin de mas.



Y un detalle no menor, tenias muchas variables de mas, y son las siguientes:

APROBADO, APLAZADO, REPROBADO, TP, PG


Aca te dejo el programa en limpio sin errores en formato txt.


Saludos desde Argentina.