Autor Tema: Crear Un Menu De Varias Opciones (Leído 2696 veces)

JamiroCB · « **en:** Miércoles 9 de Abril de 2008, 01:27 »

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;
BEGIN
WRITELN ('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.

SoloCodigo

Autor Tema: Crear Un Menu De Varias Opciones (Leído 2696 veces)

JamiroCB

Crear Un Menu De Varias Opciones

Enko

Re: Crear Un Menu De Varias Opciones

JamiroCB

Re: Crear Un Menu De Varias Opciones

Enko

Re: Crear Un Menu De Varias Opciones