tengo un eror en sentencia y no doy donde esta
Publicado por Juan (1 intervención) el 30/01/2012 06:01:01
Buenas por favor tengo un error en sentencia (113. Error in statement) que no doy en que parte de mi programa se encuentra. ayudenme porfavor a ubicarlo.
var
opcion:Char;
.
.
.
.
repeat
begin
clrscr;
gotoxy(20,5);write('M E N U P R I N C I P A L');
gotoxy(15,15);write('1.CONSUTA DE DATOS DE TODOS LOS ESTUDIANTES');
gotoxy(15,17);write('2.CONSULTAR DATOS POR ESTUDIANTE');
gotoxy(15,19);write('3.SALIR');
gotoxy(15,22);write('INTRODUZCA LA OPCION:');
gotoxy(38,22);read(opcion);
case opcion of
'1':
Begin
writeln('aqui va un procedimiento')
end;
'2':
Begin
clrscr;
writeln('INGRESE EL CODIGO DEL ESTUDIANTE:');
readln(cd);
For I:=1 to 18 do
begin
If (cd=Vcodi[I]) then
Begin
writeln('EL NOMBRE ES:',Vnom[I]);
writeln('EL CODIGO ES:',Vcodi[I]);
For J:=1 to 6 do
begin
writeln('HORAS TRABAJADAS DEL MES :',J,':',Mhoras[I,J])
end;
writeln('PAGO SEMESTRAL:',Vsuel[I]:2:2)
end;{fin del ciclo for I}
end;
until(opcion='3');
var
opcion:Char;
.
.
.
.
repeat
begin
clrscr;
gotoxy(20,5);write('M E N U P R I N C I P A L');
gotoxy(15,15);write('1.CONSUTA DE DATOS DE TODOS LOS ESTUDIANTES');
gotoxy(15,17);write('2.CONSULTAR DATOS POR ESTUDIANTE');
gotoxy(15,19);write('3.SALIR');
gotoxy(15,22);write('INTRODUZCA LA OPCION:');
gotoxy(38,22);read(opcion);
case opcion of
'1':
Begin
writeln('aqui va un procedimiento')
end;
'2':
Begin
clrscr;
writeln('INGRESE EL CODIGO DEL ESTUDIANTE:');
readln(cd);
For I:=1 to 18 do
begin
If (cd=Vcodi[I]) then
Begin
writeln('EL NOMBRE ES:',Vnom[I]);
writeln('EL CODIGO ES:',Vcodi[I]);
For J:=1 to 6 do
begin
writeln('HORAS TRABAJADAS DEL MES :',J,':',Mhoras[I,J])
end;
writeln('PAGO SEMESTRAL:',Vsuel[I]:2:2)
end;{fin del ciclo for I}
end;
until(opcion='3');
Valora esta pregunta
0