Pascal/Turbo Pascal - tengo un eror en sentencia y no doy donde esta

   
Vista:

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');
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

tengo un eror en sentencia y no doy donde esta

Publicado por ramon (2072 intervenciones) el 30/01/2012 18:10:19
{Es tu fragmento de programa corregido}

uses
crt;

var
opcion:Char;
cd : word;
j, i : integer;
Vcodi : array[1..18] of integer;
Vnom : array[1..18] of integer;
Vsuel : array[1..18] of real;
Mhoras : array[1..18,1..6] of integer;

begin
repeat
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;
end;
end;
until(opcion='3');
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