Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Procedure

Pascal/Turbo Pascal - Procedure

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de JUAN

Procedure

Publicado por JUAN (11 intervenciones) el 17/06/2013 10:52:33
Tengo que hacer un programa que invoque un PROCEDURE a partir de estos datos:

Codifique un procedimiento que presente un menú de opciones por pantalla y devuelva la opción elegida por el usuario. Las opciones que presentará son:
1. Abrir cesta de compra existente.
2. Comenzar cesta de compra nueva.
3. Añadir producto a la cesta.
4. Eliminar producto de la cesta.
5. Guardar cesta.
6. Pedir cesta.
7. Salir del programa.

Una vez que el usuario elija una opción en el procedimiento se comprueba si es válida, es decir si es un número entre 1 y 7. En caso de que la opción no sea válida, se volverá a repetir la presentación del menú hasta que el usuario pulse una opción válida. Para depurar el procedimiento deberá incluirlo en un sencillo programa que simplemente invoque el procedimiento y compruebe que el resultado devuelto es el correcto.
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

Procedure

Publicado por ramon (2158 intervenciones) el 17/06/2013 13:11:59
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
{Algo como esto}
 
program pruemenu;
 uses
      crt;
 
procedure menu;
  var
     sal : boolean;
     ted, tec : char;
  begin
     sal := false;
    repeat
       clrscr;
       writeln('     ****** Menu General ******');
       writeln;
       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('      >>> Elija Opcion <<<');
       repeat
           tec := readkey;
        if tec in['1','2','3','4','5','6','7'] then
        begin
        end
    else
          begin
                 writeln('  Eleccion Erronea pulse una tecla');
                  readkey;
           end;
       until tec in['1','2','3','4','5','6','7'];
       clrscr;
   case tec of
 '1' : begin
           writeln('  Elecion = ',tec);
             writeln('   pulse una tecla');
             readkey;
       end;
 '2' : begin
           writeln('  Elecion = ',tec);
            writeln('   pulse una tecla');
             readkey;
       end;
 '3' : begin
          writeln('  Elecion = ',tec);
          writeln('   pulse una tecla');
             readkey;
       end;
 '4' : begin
          writeln('  Elecion = ',tec);
           writeln('   pulse una tecla');
             readkey;
       end;
 '5' : begin
          writeln('  Elecion = ',tec);
            writeln('   pulse una tecla');
             readkey;
       end;
 '6' : begin
          writeln('  Elecion = ',tec);
           writeln('   pulse una tecla');
             readkey;
       end;
 '7' : sal := true;
    end;
    until sal = true;
  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
1
Comentar
Imágen de perfil de JUAN

Procedure

Publicado por JUAN (11 intervenciones) el 17/06/2013 13:21:29
Muchas gracias Ramón, me estas ayudando bastante. Gracias!!!
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