Programación General > Pascal
Crear Un Menu De Varias Opciones
(1/1)
JamiroCB:
Pues eso mismo, deseo crear un menu de 5 opciones y una opcion mas para salir, que cuando de por ejemplo a la tecla "1" Me muestre una cosa, "2" otra y asi... Pero despues de elejir una opcion en el submenu poder volver a el menu principal...
Por ejemplo asi
--- Código: Text ---PROGRAM ASD;USES CRT;BEGINWRITELN ('1.- Para ver mi fecha de nacimiento');WRITELN ('2.- Ver mi numero de telefono');WRITELN ('3.- OTRA OPCION');WRITELN ('4.- SALIR');
Pero lo que no se hacer es que cuando presionen el 1 muestre algo y asi, segun se es con "PROCEDURE", pero no se como se utiliza.. Me podrian ayudar?
Saludos y gracias
Enko:
usar procedimientos no es obligatorio.
Puedes hacer algo así:
--- Código: Text --- var Option,SubOption: byte;begin repeat WRITELN ('1.- Para ver mi fecha de nacimiento'); WRITELN ('2.- Ver mi numero de telefono'); WRITELN ('3.- OTRA OPCION'); WRITELN ('4.- SALIR'); ReadLn(Option); case Option of 1: begin repeat WriteLn('1 sub opcion A'); Writeln('2 sub opcion B'); Writeln('3 VOLVER MENU PRINCIPAL') Readln(SubOption); case SubOption of 1: begin end; 2: begin end; end; until SubOption = 3; end; 2: begin end; 3:begin end; end; until Option=4; Saludos.
JamiroCB:
Hola, gracias por la respuesta... Me sirvio mucha
Pero ahora otra duda
Cuando hago multiplicaciones de grandes numeros me sale un error cuando use el INTEGER, pero no deseo usar el REAL, xq me lo pone en exponente y lo quiero en numero completo...
Gracias por su ayuda...
Saludos
Enko:
Prueba usar Real y formateando la salida:
--- Código: Text --- R: Real;begin R := sqrt(2); WriteLn(R:0:0); Readln;end; El primer "0" es para ver cuantos espacios en blanco dejas. El segundo "0" para ver cuantos numeros decimales se muestran.
Navegación
Ir a la versión completa