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;
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
0
