Pascal/Turbo Pascal - duda con procedura menu. crear programa k a mtrs.

   
Vista:

duda con procedura menu. crear programa k a mtrs.

Publicado por wind (26 intervenciones) el 14/03/2014 19:26:15
Me gustaría crear un programa para convertir de Kilómetro a Metro y viceversa.
Deseo crear un menú, según lo que yo investigué, se debe usar un procedure menu.
me explico:

(**menu**)
1. convertir kilometros a metros
2. convertir metros a kilometros.

Seleccione una opcion: (bloquear el uso de letras, solo numeros)

(si selecciono la opcion 1, me calcula el resultado ¿cierto?, busco además una opcion que me permite volver al menú anterior, es decir volver al inicio, presionando una tecla.)

(**inicio**)
1. convertir kilometros a metros
2. convertir metros a kilometros.

(si es posible, explicar el codigo )
Muchas gracias.
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

duda con procedura menu. crear programa k a mtrs.

Publicado por ramon (2072 intervenciones) el 15/03/2014 01:02:07
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
procedure menu;
var
   tecla : char;
    salir : boolean;
 begin
      salir := false;
   repeat
         clrscr;
         writeln('   Nenu ');
         writeln;
         writeln('   1 = convertir kilometros a metros');
         writeln('   2 = convertir metros a kilometros');
         writeln('   3 = Salir');
         writeln;
         writeln('   Elija Opcion');
       repeat
            tecla := readkey;
        until tecla in['1','2','3'];
        clrscr;
   case tecla of
  '1' : aqui los procedimientos 1,
  '2' : aqui los procedimientos 2;
  '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