Bem, já vimos if...then, case... of, e a primeira parte da estrutura de repetição, for e repeat. Agora chegou a vez do while.

While em inglês significa "enquanto". Ou seja, enquanto uma condição for verdadeira, o programa executará a tarefa novamente. Exemplo: Você pode pedir uma senha, e para o acesso ser permitido, a senha tem que ser = 123:




program exe3;



var

senha: integer;



begin

 writeln('Digite sua senha');

  readln(senha);



while (senha <> 123) do

 begin

  writeln('A senha esta errada, digite novamente');

  writeln('');

  writeln('Digite a senha novamente');

  readln(senha);

 end;



 writeln('Acesso permitido');

readln;

end.





--

Que ficará assim:






--



Outro exemplo seria um programa que pedisse o nome e a altura de uma moça inscrita para algum concurso de beleza, e até o usuário não digitar "fim", ele continuará pedindo novos nomes e alturas. No final ele dirá o nome e quanto mede a moça mais alta e o número de candidatas inscritas:




program ex05;



var

 op, nom1, nom: string;

 cont1, maior, alt1, alt: real;



begin

maior:= -1;

 while (op <> 'fim') do

begin

 writeln('Digite nome');

 readln(nom);

 writeln('');

 writeln('Digite sua altura');

 readln(alt);

 if (alt > maior) then

begin

maior:=alt;

nom1:=nom;

end;

 writeln('');

 writeln('Digite "fim" p/ sair');

 readln(op);

 cont1:=cont1+1;

end;



 writeln('Nome: ', nom1, ' e sua altura: ', maior:0:2);

 writeln('Numero de inscritos: ', cont1:0:2);

readln;

end.



--

Ficará assim:






--

Até a próxima!

Até agora, depois que a gente executava o programa e digitava o que ele pedia, ele dava o resultado e fechava. Com os comando de repetição a coisa começa a mudar.



Começando pelo For... to... do. Este comando permite que quem está programando defina o número de vezes que o comando será rodado.








Exemplo:



program altura;



var

 m, cm, cf: integer;

 perc, alt, maior, menor: real;

 sexo: char;



begin

 maior:= -1;

 menor:= 999;

 cm:= 0;

 cf:= 0;

 writeln('M para Masculino. F para Feminino');

 for m:= 1 to 3 do

begin

 writeln('Altura');

 readln(alt);

 writeln('Sexo:');

 readln(sexo);

 writeln('');



if (sexo = 'M') then

 cm:= cm+1;



if (sexo = 'F') then

 cf:= cf+1;



if (alt > maior) then

 maior:=alt;



if (alt < menor) then

 menor:=alt;



end;



perc:= (cf*100)/(cf+cm);



writeln('Quantidade de homens eh:', cm);

writeln('Quantidade de mulheres eh:', cf);

writeln('Percentual de mulheres eh: ', perc:0:2);

writeln('A pessoa mais alta tem: ', maior:0:2);

writeln('A pessoa mais baixa tem: ', menor:0:2);



readln;



end.

-



O programa irá pedir a altura e o sexo do "entrevistado" 3 vezes. Note que o for to é seguido de um begin, que é o comando que será repetido, e no final dos contadores temos um end;



O segundo comando de repetição é o until(até). Ou seja, o programa ficará se repetindo até que o usuário digite um comando pedido pelo usuário. Um exemplo seria repetir o programa até o que usuário digite "fim" para sair.



Exemplo:





Program ex02;



var

 ref, nr, cr1, cr2, cr3, ct: integer;

 op: string;

begin

cr1:=0;

cr2:=0;

cr3:=0;



 repeat

  writeln('Numero de refeicoes:');

  readln(ref);



if (ref < 10) then

 cr1:= cr1+1



else if ((ref >= 10) and (ref <= 20)) then

 cr2:= cr2+1



else

 cr3:= cr3+1;



 writeln('fim - para encerrar');

 readln(op);



 ct:= ct+1;

until (op = 'fim');



 writeln('Numero de entrevistados: ', ct);

 writeln('Numero <10:', cr1);

 writeln('10 < Numero < 20:', cr2);

 writeln('Numero > 20:', cr3);



readln;



end.



-



O programa pedirá o número de refeições feitas pelo usuário em um mês. O programa só irá parar de se repetir quando o usuário digitar "fim" quando for pedido. No final ficaria assim:









O programa irá dizer o número de entrevistados, de acordo com o contador(ct:= ct+1;), quantas vezes você fez menos de 10 refeições no mês, quantas vezes você fez entre 10 e 20 refeições e quantas vezes você fez mais de 20 refeições no mês.



O último e próximo comando de repetição é o while, que deve ser dado na próxima aula!

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.