Ajuda em recursividade no Free Pascal

[Marcelo_Pereira]

Ola pessoal. Estou tendo dificuldades em criar uma rotina que acione opções de legenda.

Por exemplo, num programinha para calcular uma equação do segundo grau. Insiro os coeficientes e logo em seguida, retorna com as raízes. Gostaria de dar segmento ao programa, dando opções no final, tais como:

digite 1- para fazer novo calculo; 2- para sair.

Parece brincadeira, mas estou tendo dificuldades para encontrar o "pulo do gato". Não sei se faço com for, while..do, repeat ou if...then.

Se alguém puder dar um força, eu agradeço.

[Simon Viegas]

Olá,

Primeiramente eu não entendi exatamente o que você quer. Mas de cara acho que não tem haver com recursividade.

"Recursão é um método de programação no qual uma função pode chamar a si mesma."

Se for simplesmente colocar "legendas' eu aprendi, e ensino, como "Menu", ou seja, simplesmente uma abstração para selecionar alguma coisa ("Menu" = "Cardápio")....

Como funciona:

1) Lista as opções e informa como escolhê-las.

2) Cria uma estrutura para obter a opção e encaminha/executar a opção escolhida.

Ex.

repeat
  writeln('   GERENCIADOR AUTOMOVEIS    ');
  writeln;
  writeln(' [C]adastrar');
  writeln(' [A]lterar
  writeln(' [P]esquisar');
  writeln(' [S]AIR');
  readln(opcao);
  opcao:=UpCase(opcao);

  case opcao of
    'C' : cadastrar(automoveis);
    'A' : alterar(automoveis);
    'P' : pesquisar(automoveis);
    'S' : writeln(' Obrigado por usar meu programa');
    else
      writeln(' Codigo invalido');
until opcao='S' ;

Poderia ser também

  writeln(' 1 - Cadastrar');
  writeln(' 2 - Alterar
  ....

Por ai vai...

Atc,

EstilingueAtomico