• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sota

Case

6 mensagens neste tópico

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 ;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora