error desconocido
Publicado por nathacha (2 intervenciones) el 18/03/2005 12:20:35
║Uses Crt;
║Var
║ X:integer;
║ Begin
║ ClrScr;
║ GotoXY(60,40);
║ WriteLn('Menu');
║ WriteLn(' 1. Inicializa Archivo');
║ WriteLn(' 2. Captura Datos');
║ WriteLn(' 3. Salir');
║ Write('Escriba una Opción del 1 al 3:');
║ X:=ReadKey;WriteLn; (ESTA PARTE DEL PROGRAMA ME DA ERROR)
║ case X of
║ '1':writeLn('Selecciono la opción 1')
║ '2':writeLn('Selecciono la opción 2')
║ ´3´:writeLn('Selecciono la opción 3')
║ else
║ writeLn(escriba un numero del 1 al 3')
║ end;
║ ReadKey
║ end.
la parte que señale arriba me da error, agradezco a quien me pueda hechar una mano, soy nueva en esto, gracias.
║Var
║ X:integer;
║ Begin
║ ClrScr;
║ GotoXY(60,40);
║ WriteLn('Menu');
║ WriteLn(' 1. Inicializa Archivo');
║ WriteLn(' 2. Captura Datos');
║ WriteLn(' 3. Salir');
║ Write('Escriba una Opción del 1 al 3:');
║ X:=ReadKey;WriteLn; (ESTA PARTE DEL PROGRAMA ME DA ERROR)
║ case X of
║ '1':writeLn('Selecciono la opción 1')
║ '2':writeLn('Selecciono la opción 2')
║ ´3´:writeLn('Selecciono la opción 3')
║ else
║ writeLn(escriba un numero del 1 al 3')
║ end;
║ ReadKey
║ end.
la parte que señale arriba me da error, agradezco a quien me pueda hechar una mano, soy nueva en esto, gracias.
Valora esta pregunta


0