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