Pascal/Turbo Pascal - Bucle case - off

   
Vista:

Bucle case - off

Publicado por axel (11 intervenciones) el 31/10/2007 15:45:50
Hola, necesito hacer un programa que mediante un menu hecho con un bucle case off, segun lo que se introduzca por teclado ( tipo integer ) haga un procedimiento u otro, los procedimientos ya los tengo hechos, pero no se como hacer el bucle, ademas se tiene que repetir hasta que se seleccione el numero de la opcion salir.

Supongo q para que se repita, con un bucle "repeat - until num=4" si la opcion salir es la cuarta, valdria, mi problema es como diseñar el bucle case off, he escrito esto, pero no funciona:

repeat
read(num);
case num of
1: nombreprocedimiento;
2: nombreprocedimiento;
3: writeln ( ' Salir ');
end;
until num=3;

Muchas gracias por las posibles respuestas.

Salu2
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

RE:Bucle case - off

Publicado por Mechanic (181 intervenciones) el 31/10/2007 21:24:14
Hola Axel ! Examiné tu código y creo que funciona aunque le hice algunas modificaciones para hacerlo sencillo..

uses crt;
var num : integer;

begin
Writeln('Escriba un n£mero de opci¢n (1,2) o 3 para salir:');
repeat
read(num);
case num of
1: writeln('Porcedure 1');
2: writeln('Procedure 2');
3: writeln ( ' Salir ');
end;

until num=3;
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

RE:Bucle case - off

Publicado por axel (11 intervenciones) el 01/11/2007 07:32:38
Muchas gracias por la ayuda Mechanic.

Salu2
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

RE:Bucle case - off

Publicado por Mechanic (181 intervenciones) el 01/11/2007 21:22:59
De nada axel..
Para eso estamos aquí!
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

RE:Bucle case - off

Publicado por axel (11 intervenciones) el 14/11/2007 17:59:26
Buenas, aqui estoy de nuevo con esta misma duda, no habia tenido ocasion de probarlo en condiciones por que el resto del programa no funcionaba al 100 %

A ver, escribo el bucle asi:

repeat
read(num);
case num of
1 : begin
assign(fe, 'c:/prcA.txt);
reset(fe);
dim:=4;
leermat(m,fe,dim);
matrix(fe,dim,m);
close(fe);
end;
2 : begin;
assign(fe, 'c:/prcB.txt');
reset(fe);
dim:=6;
leermat(m,fe,dim);
matrix(fe,dim,m);
close(fe);
end;

end;
until num=3;
end.

En principio, pienso que esta bien, falla al entrar en el procedimiento llamado matrix, el cual si lo ejecuto en el programa principal no me da ningun problema, pero dentro del CASE me da error, ¿existe alguna restriccion dentro de este tipo de bucles?

A ver si alguien me puede hechar una mano ; )

Muchas gracias a todos
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