Case... of...

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.

 Vamos para o que interessa:

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.

By Ítalo Tabosa with No comments