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
0