case

Pascalzim

case

Possibilita a escolha de um conjunto de comandos que serão executados, dentre várias alternativas de escolha.

Sintaxe


case selector of

  lista de constantes : comandos ;

  lista de constantes : comandos ;

  ...

  lista de constantes : comandos ;

  else comandos ;

end ;


Onde:


  • seletor é uma expressão do tipo integer ou char ;


  • lista de constantes é uma sequência de constantes do tipo integer ou char, separadas por vírgula (ao invés de uma constante é possível usar um intervalo de constantes, que consiste em duas constantes separadas por um par de pontos)


  A cláusula else não é obrigatória, e os comandos associados a essa cláusula serão executados somente se nenhuma outra opção do case foi selecionada ;



Exemplo


  Program PascalZIM ;

    Var

      opcao : integer ;


    Begin

      write ( 'Entre com uma opcao: ' );

      readln ( opcao );


      // escolha da opcao

     case opcao of

      1 : writeln( 'Você escolheu a opção 1...' );

      2 : writeln( 'Você escolheu a opção 2...' );

      3 : writeln( 'Você escolheu a opção 3...' );

      else writeln( 'Você escolheu uma opção diferente de 1, 2, 3...' );

     end ;

   End.



Exemplo


  Program PascalZIM ;

    const

       opSoma = '+' ;

       opSubtracao = '-' ;

       opProduto = '*' ;

       opDivisao = '/' ;


    Var

      opcao : char ;


    Begin

      write ( 'Entre com um operador: ' );

      readln ( opcao );


      // escolha da opcao

     case opcao of

      opSoma : writeln( 'Você escolheu soma... ' );

      opSubtracao : writeln( 'Você escolheu subtracao...' );

      opProduto : writeln( 'Você escolheu produto...' );

      opDivisao: writeln( 'Você escolheu divisao...' );

     end ;

   End.



Exemplo


  Program PascalZIM ;

    Var

      opcao : integer ;


    Begin

      write ( 'Entre com uma opcao: ' );

      readln ( opcao );


      // escolha da opcao

     case opcao of

      1, 2 : writeln( 'Você escolheu a opção 1 ou 2...' );

      3 : writeln( 'Você escolheu a opção 3...' );

      else writeln( 'Você escolheu uma opção diferente de 1, 2, 3...' );

     end ;

   End.



Exemplo


  Program PascalZIM ;

    Var

      c: char;


    Begin

      write( 'Digite um caracte: ' );

      readln( c );


      case c of

        'A'..'Z', 'a'..'z': writeln( '=> Você digitou uma letra!' );

        '0'..'9':           writeln( '=> Você digitou um digito!' );

        '+', '-', '*', '/': writeln( '=> Você digitou um operador!' );

      else

        writeln( '=> Você digitou um caractere!' );

      end;

   End.


Created with the Freeware Edition of HelpNDoc: Free HTML Help documentation generator