Select Case no Pascal

[carnivore 0]

Boa tarde ..

 

Bem, tenho 1 pequeno problema..

é o seguinte:

 

Gostaria de criar um menuzinho no pascal usando o select case, se for possivel

 

1 - cadastro

2 - consulta

3 - Exclusao

4 - alteração

5 - sair

 

entenderam?

 

como eu poderia começar isso?

 

obrigado a todos.

[Beraldo 864]

Basicamente é isto:

 

Program menu;

Var
	i : integer;

Begin

	Writeln('[1] Opção 1');
	Writeln('[2] Opção 2');
	Write('Escolha: ');
	read(i);
	
	case i of
		1 : Writeln('Você escolheu a opção 1');
		2 : Writeln('Você escolheu a opção 2');
	end;

End.

Mais em:

http://www.eng.uerj.br/~marcelo/msx/cursos/pascal10.html

http://www.freepascal.org/docs-html/ref/refsu40.html

 

[]s

Beraldo