Pascal/Turbo Pascal - Hacer un programa con Procedure

   
Vista:
Imágen de perfil de mgo

Hacer un programa con Procedure

Publicado por mgo (34 intervenciones) el 23/04/2015 02:08:36
hacer un programa con Procedure...

Necesito crear un programa, uno solo, que haga barias operaciones, un menú Principal que con tenga la opción MRU, CAIDA LIBRE y salir. cuando ingresan la opción 1 Que seria de MRU o Movimiento Rectilíneo Uniforme aparecería un sub-menu con las opciones de calculo de mru, Velocidad, Distancia, Tiempo y Salir, Si ingresa la opción salir o 4.1 tiene que regresar al menú principal, si ingresa la opción 2 en el menú principal tendría que hacerme la ponderación caída libre, Si ingresa la opcion 3 en el menú principal Finaliza el programa End. todos los demás al ingresar la opción salir tiene que regresar al menú principal, les adjunto un Diagrama y un ejemplo de como funcionaria en código pascal.

modular
procedure14

Desde ya les agradesco por su apoyo
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

Hacer un programa con Procedure

Publicado por ramon (2072 intervenciones) el 23/04/2015 23:57:52
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
77
78
79
80
81
82
83
84
85
{Espero esto te sirva}
 
program menusmuliples;
   uses
      crt;
    var
      tecla : char;
      sal : boolean;
   procedure mru;
   begin
      writeln('  MRU Pulse Una Tecla');
      readkey;
   end;
 
   procedure velocidad;
   begin
      writeln('  Velocidad  Pulse Una Tecla');
      readkey;
   end;
 
   procedure distancia;
   begin
      writeln('  Distancia  Pulse Una Tecla');
      readkey;
   end;
 
   procedure Tiempo;
   begin
      writeln('  Tiempo  Pulse Una Tecla');
      readkey;
   end;
 
 
   procedure menu;
   var
     pulsa : char;
     fin : boolean;
   begin
       sal := false;
     repeat
         clrscr;
         writeln('   **** Menu Principal ****');
         writeln;
         writeln('  1 = MRU ');
         writeln('  2 = Caida Libre');
         writeln('  3 = Salir');
         writeln;
         writeln('   Elija Opcion');
         repeat
            tecla := readkey;
         until tecla in['1','2','3'];
     case tecla of
  '1' : mru;
  '2' : begin
            fin := false;
          repeat
              clrscr;
              writeln('   **** Menu Secundario ****');
              writeln;
              writeln('  1 =  Velocidad');
              writeln('  2 =  Distancia');
              writeln('  3 =  Tiempo');
              writeln('  4 =  Salir');
              writeln;
              writeln('   Elija Opcion');
              repeat
                  pulsa := readkey;
              until pulsa in['1','2','3','4'];
              clrscr;
        case pulsa of
   '1' : velocidad;
   '2' : distancia;
   '3' : Tiempo;
   '4' : fin := true;
     end;
          until fin = true;
        end;
  '3' : 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