Pascal/Turbo Pascal - TURBO PSACAL

   
Vista:

TURBO PSACAL

Publicado por URGETNTE (1 intervención) el 11/12/2009 16:12:18
NECESITO URGENTEMENTE QUE ME AYUDEN CON UN PRGRAMA QUE CONTENGO UN MENU
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

RE:TURBO PSACAL

Publicado por edwin (71 intervenciones) el 12/12/2009 07:50:32
program menufacil;
uses crt;
var
opcion:Char;
Begin
Repeat
clrscr;
Gotoxy(30,10);write('Opcion ..... [1]');
Gotoxy(30,11);write('Opcion ..... [2]');
Gotoxy(30,12);write('Opcion ..... [3]');
Gotoxy(30,13);write('Opcion ..... [4]');
Gotoxy(30,14);write('Salir ..... [5]');
Opcion:=readkey;
Case Opcion Of
'1':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 1');
readkey;
End;
'2':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 2');
readkey;
End;
'3':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 3');
readkey;
End;
'4':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 4');
readkey;
End;

End;{Case}
Until Opcion ='5';
GotoXy(30,16);Write('Elegiste la opcion salir');
readkey;

end.
deposita a la cuenta
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