Case

[Sota]

Boas pessoal tou ocm uma duvida eu quero fazer um case no meu programa e caso fosse por exemplo tecla = p que ele me fizesse varios procedimentos como fasso isso ?

eu tenho

case tecla of 
'p': selecionarproduto, moedas(), inserirmoedas, vermoedas(x), apresentartroco(x,y);
end ;

[Triton]

A tua dúvida é como verificar se a tecla foi pressionada? 👍

[Swimmer]

Porque não fazes algo deste genero:

PROCEDURE Operacao(Op2:Char);
BEGIN
   IF (Op2='P') OR (Op2='p') THEN
      ComprarProduto;
   IF (Op2='C') OR (Op2='c') THEN
      MostrarCofre;
   clrscr;

end;

[maiden]

Para executares mais do que uma operação tens de utilizar um begin e o respectivo end. Por exemplo:

program xpto;
uses crt;
var opc:char;

begin
      clrscr;
      writeln('Introduza a opcao ');
      opc:=upcase(readkey); {Atribui 'a variavel opc a maiuscula do caracter lido do teclado}
      case opc of
      'P': begin
                 selecionarproduto;
                 moedas();
                 etc;
      end;
      'O': writeln('xyz');
      end;
end.

Espero ter ajudado.

Cumps,

[Sota]

thx pessoal era mm isso que faltava begin e end 😛

[Cypher]

lol !!!