Pascal/Turbo Pascal - Error 85 en el END final,soy nueva en esto AYUDA!!

   
Vista:

Error 85 en el END final,soy nueva en esto AYUDA!!

Publicado por Andrea (2 intervenciones) el 25/08/2013 05:48:39
Hola no se que es lo que le pasa pero me sale el error 85 en el end final,ya todo lo demas parece estar bien,pero no se que le pasa,este es el segundo programa que intento hacer en pascal,soy estudiante nueva asi q porfa alguien q me ayude
Program curso;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Uses
crt;
 
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');

end
else

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error 85 en el END final,soy nueva en esto AYUDA!!

Publicado por DriverOp (282 intervenciones) el 25/08/2013 17:55:56
Cuenta cuántos "begin" tienes y cuántos "end" tienes. Si no coinciden, entonces te sobra un "begin" o te falta un "end".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error 85 en el END final,soy nueva en esto AYUDA!!

Publicado por Christian Garay cgaray2002@hotmail.com (8 intervenciones) el 25/08/2013 19:10:38
Tienes un Begin demás despues de la línea de lectura readln(E1,E2);
lo veo sin utilidad elimina esa sentencia y haz correr tu programa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error 85 en el END final,soy nueva en esto AYUDA!!

Publicado por Christian cgaray2002@hotmail.com (8 intervenciones) el 26/08/2013 06:52:57
Te envío el programa corregido

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Program notas;
Uses crt;
var
    CARNET,NOMBRE,APROBADO,APLAZADO,REPROBADO,SIGUE:CHAR;
    {aprobado,aplazado,reprobado no estan usandose}
    PQ,Q1,Q2,Q3,Q4:REAL;
    PT,T1,T2,T3,T4:REAL;
    PE,E1,E2:REAL;
    PF,TP,PG:REAL;         {TP, PG no estan usandose}
Begin
       Repeat
            clrscr;
            write('Digite Nombre: ');
            readln(nombre);
            write('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}   {Este begin esta demas}
 
            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');
            end
            else
            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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar