O uso do CASE em Pascal é bem interessante, pois o comando faz com que possamos criar um "menu", evitando assim o uso do IF várias vezes. Porém, as únicas variáveis do comando CASE são integer e char.

Exemplo 1- Fazer o usuário digitar "2" para masculino e "1" para feminino:

-



 program ex1;



var

 sexo: integer;



begin

 writeln('1-Feminino');

 writeln('2- Masculino');

 writeln('Escolha sua opcao');

 readln(sexo);



 case sexo of

  1:writeln('Feminino');

  2:writeln('Masculino');

  else writeln('Outros');

 end;



readln;



end.



-

O resultado:




























Exemplo 2 - O usuário poderá fazer alguma operação matemática:

-



program ex2;



var

 n1, n2: integer;

 operacao: char;



begin

 writeln('Considere:');

 writeln('+ sendo adicao');

 writeln('/ sendo divisao');

 writeln('* sendo multiplicacao');

 writeln('- sendo subtracao');

 writeln('');





 writeln('Digite o primeiro numero: ');

 readln(n1);

 writeln('Digite o segundo numero: ');

 readln(n2);

 writeln('Digite a operacao:' );

 readln(operacao);



case operacao of

 '+': writeln('A adicao foi ', n1+n2);

 '/': writeln('A divisao foi ', n1 div n2);

 '*': writeln('A multiplicacao foi ', n1*n2);

 '-': writeln('A subtracao foi: ', n1-n2);

 else writeln('Outros');



 end;



-

O resultado:





-





Agora quem quiser fazer a lista 3, pode baixar clicando aqui.





01)



O 1º como exemplo:



program ex1;



var

 menu: integer;



begin

 writeln('1- Saudacao');

 writeln('2- Bronca');

 writeln('3- Felicitacao');

 writeln('0- Fim');

 readln(menu);



case menu of



 1:writeln('Ola. Como vai?');

 2:writeln('Vamos estudar mais');

 3:writeln('Meus Parabens!');

 0:writeln('Fim de servico');

 else writeln('Digite um numero valido');

 end;



readln;



end.



-



Por hoje é só. Semana que tem teremos a estrutura de repetição.