Pascal/Turbo Pascal - ejercicio 4 actividad 2

   
Vista:

ejercicio 4 actividad 2

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 12/03/2014 17:58:20
hola, queria hacer lo siguiente:

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.

gracias de antemano
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

ejercicio 4 actividad 2

Publicado por XfontanillsX adrianrifonta@gmail.com (5 intervenciones) el 12/03/2014 20:51:45
Esto es lenguaje c no?
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

ejercicio 4 actividad 2

Publicado por XfontanillsX adrianrifonta@gmail.com (5 intervenciones) el 12/03/2014 21:36:26
Vamos a explicartelo rapidamente con el metodo case

primero como ya debes saber declararas la variables que vas utilizar no?.Si no bueno me lo haces saber.
Aqui esta lo primero que debes hacer:

Declaras tu (begin) como normalmente haces colocas un ciclo (repeat) esto para cuando se eliga una opcion equivocada se vuelva a repetir el menu como pides. Luego el (clrscr) para borrar pantalla cada vez que se repita, el (writeln) para mostrar en pantalla las opciones. Luego (read) esto para leer la opcion que el usuario eliga, esto con la variable (num) pero puede ser cualquiera que tu desees. La variable (num) esta declara como de tipo (char) .

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
repeat
clrscr;
writeln('1) Incluir');
writeln('2) Consultar');
writeln('3) Modificar');
writeln('4) Eliminar');
writeln('5) Reporte de estadisticas');
writeln('6) Salida');
writeln;
writeln('Coloque la opcion que desee realizar');
read(num);
repeat-----pendiente aqui
until num in ['1','2','3','4','5','6','7'];

continuando..
debajo de todo aquello colocas:

El (repeat) para salir El (case) es el comando para invocar las opciones que coloque el usuario. (num) es la variable como ya te explique char.

Nota: las opciones 1 2 que ves entre comillas es porque la variable num es de tipo char y como es un caracter para que lo lea el compilador debe estar entre comillas. Luego (begin) depues del numero 1 para empezar el proceso correspondiente a esa opcion, al igual que 2 y asi sucesivamente con las opciones que vayas a colocar. haora la opcion 3 que esta de ultimo es para salir y la variable que ves alli que es (salir) esta declara como de tipo (boolean) asi mismo se escribe en la declaracion, esto para que cuando lo lee el ciclo repeat que invoque donde te puse (pendiente aqui) se salga del comando (case).

Nota: Cualquier cosa me avisas estare pendiente.

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
case num of
'1': begin
writeln('Consulta entre numero de matricula');
writeln;
write(' Numero : ');
readln(nume);
for nn:=1 to length(nume) do
nume[nn]:= upcase(nume[nn]);
nn:=0;
enco:=false;
repeat
if vehiculo[nn].placa=nume
writeln('Placa del Vehiculo: ',vehiculo.placa,'');
writeln;
writeln('Numero de pasajeros: ',vehiculo.pasajeros,'');
writeln;
writeln('Alcabala: ',vehiculo.alcabala,'');
writeln;
writeln('Fecha: ',vehiculo.fecha,'');
writeln;
writeln('Tipo de vehiculo: ',vehiculo.carro,'');
writeln;
writeln('Sale/Entra: ',vehiculo.accion,'');
writeln;
writeln('Presione enter para continuar');
readln(enter);
read(num2);
end;
 
'2': begin
writeln('Modificar: 1) Placa del vehiculo');
writeln;
writeln('Modificar: 2) Numero de pasajeros');
writeln;
writeln('Modificar: 3) Alcabala');
writeln;
writeln('Modificar: 4) Fecha');
writeln;
writeln('Modificar: 5) Tipo de Vehiculos');
writeln;
writeln('Coloque la opcion');
readln(num3);
end;
'3': salir:=true;
end;
until salir=true;
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

ejercicio 4 actividad 2

Publicado por ramon (2072 intervenciones) el 13/03/2014 00:30:09
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
procedure menu;
 var
   rt, tre : char;
   salir : boolean;
 begin
    salir := false;
   repeat
       clrscr;
       writeln('***** Menu Jeneral *****');
       writeln;
       writeln('   1 = altas');
       writeln('   2 = baja');
       writeln('   3 = Modificacion');
       writeln('   4 = Consulta');
       writeln('   5 = Listados');
       writeln('   6 = Salir');
       writeln;
       writeln('   Elija Opcion ');
       repeat
           tre := readkey;
       until tre in['1','2','3','4','5','6'];
       clrscr;
   case tre of
 '1' : begin
          writeln('   1 ');
          readkey;
       end;
 '2' : begin
          writeln('   2 ');
          readkey;
      end;
 '3' : begin
         writeln('   3 ');
         readkey;
      end;
 '4' : begin
         writeln('   4 ');
         readkey;
      end;
 '5' : begin
         writeln('   5 ');
        readkey;
      end;
 '6' : salir := true;
   end;
   until salir = true;
 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