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.

 Segunda, na aula de LPA 1, aprendemos um novo comando! É o "if ... then". Ou seja, SE algo for verdadeiro ENTÃO o programa vai mostrar certa mensagem. E se algo for falso, o programa vai mostrar outra mensagem. Um exemplo? A quarta questão da segunda lista de exercício, que pode ser baixado clicando aqui:



4º) Escreva um programa que verifique a validade de uma senha fornecida pelo usuário.  A senha válida é o número 1234. Devem ser impressas as seguintes mensagens:



ACESSO PERMITIDO caso a senha seja válida.

ACESSO NEGADO caso a senha seja inválida.



Começando com o comando program e uma variável para ser a senha. A variável será integer pois a senha não poderá ser 1234.4, ou seja, ter "virgula".



program senha;



var

 n1: integer;



begin

 writeln('Digite sua senha: ');

 readln(n1);

 writeln('');



if (n1 = 1234) then

 writeln('Acesso liberado')



else

 writeln('Acesso negado');



readln;



end.





O "else" é usado para se você não digitar o que foi pedido, ou seja, senha(n1) = 1234, a mensagem digitada seja acesso negado. E se você digitar como senha 1234, o programa dirá que o acesso foi liberado, como na imagem ao lado.



E por essa semana foi isso, qualquer dúvida é só comentar. E se quiser a primeira lista de exercício é só clicar aqui.

Olá pessoas, hoje tive minha primeira aula de Lógica de Programação e Algoritmos(LPA 1), que era para ter sido segunda-feira da semana passada, com a professora Roberta.



Bem, como estou no 1º período a primeira linguagem de programação que aprenderei é Pascal, uma linguagem criada na década de 70.



E para a aula de hoje, fiz meu primeiro programa! Claro, foi uma coisa bem simples: Digitar sua idade, então aparecia "Sua idade eh: tal" (não tem acento em Pascal!), digitar seu nome, então aparecia "Seu nome eh: fulano" e por fim "qual sua nota?". Enfim, esse a gente fez junto com a professora. Depois ela pediu para a gente fazer um que somasse dois números, aí eu me embolotei! Fiz quase tudo certo, mas faltou o ";" sempre necessário depois da variável e eu coloquei o nome do programa o mesmo de uma variável, e não pode!(não posso esquecer disso!). Tirando isso, ficou faltando o "soma:= n1+n2;", que eu não sabia que era para colocar(também, a professora não tinha dito!).



Aquela sensação de quando o programa não compila porque tem algum erro... enfim, a melhor sensação é quando compila, executa e tudo funcionou beleza.



Aqui está a imagem do Dev-Pascal(onde fazemos o programa):







Agora vou partir para os exercícios que a professora passou. Alguém afim de fazer programa?!