|
8.2.2 Case (Seleção Múltipla)
Case
<expressão> of
<lista de valores>:
<comandos>
<lista de valores>:
<comandos>
:
:
End |
Exemplo
Case NUMDIA of
1:Write (‘Domingo’);
2:Write (‘Segunda’);
3:Write (‘Terça’)
4:Write (‘Quarta’)
5:Write (‘Quinta’)
6:Write (‘Sexta’)
7:Write (‘Sábado’)
End;
Case DIA of
Dom: Write (‘Domingo’)
Seg: Write (‘Segunda’)
Ter: Write (‘Terça’)
Qua: Write (‘Quarta’)
Qui: Write (‘Quinta’)
Sex.: Write (‘Sexta’)
Sáb: Write (‘Sábado’)
End;
Case VALOR of
100,200,300: Begin
Write (‘Valor foi’);
Write (‘100 ou 200 ou 300’);
End
400..500:
Write (‘Valor entre 400 e 500’);
End;
-
Obs.: Em Pascal, se o
valor da expressão não tem equivalente, o resultado do Case
é indefinido. Em TURBO-PASCAL
é executado o comando seguinte ao Case
ou usada a cláusula Then.
|