Pascal/Turbo Pascal - menu pascal mediante procedimiento

   
Vista:

menu pascal mediante procedimiento

Publicado por davo (26 intervenciones) el 28/11/2012 21:56:30
hola a todos, ¿podria decirme alguien si este codigo esta bien?, intento hacer mediante un procedimiento un menu y que funcionen las diferentes opciones, Gracias por vuestro tiempo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program menu_general;
 
Var
opcion:integer;
 
procedure menu(opcion:integer);
 
begin
 repeat
 
writeln ('------ Menu General------');
writeln (' 1. Abrir cesta de compra existente.');
writeln ('2. Comenzar cesta de compra nueva.');
writeln ('3. Añadir producto a la cesta.');
writeln ('4. Eliminar producto de la cesta.');
writeln ('5. Guardar cesta.');
writeln ('6. Pedir cesta.');
writeln('7. Salir del programa.');
writeln;
 Writeln('Introduzca una opcion del menu');
readln(opcion);
 
 
 
 
case (opcion)of
1: writeln('1.Abrir cesta de la compra existente');
2:writeln('2.Comenzar cesta de la compra nueva.');
3:writeln ('3. Añadir producto a la cesta.');
4:writeln ('4. Eliminar producto de la cesta.');
5:writeln ('5. Guardar cesta.');
6:writeln ('6. Pedir cesta.');
7:writeln('7. Salir del programa.');
 
end;
     until (opcion>=1) or (opcion<8)
 
 
 end;
 
 begin
 
 menu (opcion);
 
end.
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Listas dobles
- Music Maker
- Serpiente

menu pascal mediante procedimiento

Publicado por ramon (2072 intervenciones) el 28/11/2012 22:42:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
{Mira es lo tuyo corregido un poco prueba lo y decide}
 
 program menu_general;
uses
   crt;
Var
   opcion : char;
 
 
  procedure menu;
  begin
    repeat
    clrscr;
      writeln ('------ Menu General------');
      writeln ('1. Abrir cesta de compra existente.');
      writeln ('2. Comenzar cesta de compra nueva.');
      writeln ('3. Añadir producto a la cesta.');
      writeln ('4. Eliminar producto de la cesta.');
      writeln ('5. Guardar cesta.');
      writeln ('6. Pedir cesta.');
      writeln('7. Salir del programa.');
      writeln;
      Writeln('Introduzca una opcion del menu');
      repeat
         opcion := readkey;                {Nos aseguramos que entra una opcion}
      until opcion in['1','2','3','4','5','6','7'];
      clrscr;
   case opcion of
 '1' : writeln('1.Abrir cesta de la compra existente');
 '2' : writeln('2.Comenzar cesta de la compra nueva.');
 '3' : writeln ('3. Añadir producto a la cesta.');
 '4' : writeln ('4. Eliminar producto de la cesta.');
 '5' : writeln ('5. Guardar cesta.');
 '6' : writeln ('6. Pedir cesta.');
 end;
   if opcion in['1','2','3','4','5','6'] then
   begin
   writeln;
   writeln('Pulsa [Enter]');
   readln;
   end;
 until opcion = '7';
end;
 
begin
menu;
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

menu pascal mediante procedimiento

Publicado por davo (26 intervenciones) el 29/11/2012 18:05:20
Gracias por tu ayuda y tiempo, al final he usado del tuyo y el mio y me ha quedado bien.
Gracias de nuevo.
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