Índice de Aulas   Próxima Aula  Aula Anterior   Página Principal

Aula 4

Laços de Repetição

Repeat ( repetir ) ... Until ( até )

Com este laço podemos repetir um bloco de comandos até que uma condição seja satisfeita.

Sintaxe

Repeat
< Bloco de comandos >
Until < condição >

Exemplo

Program Mengo; { cabeçalho }

Uses  crt;

Var

Nome: string; { Guarda o nome de um time }

Begin

Clrscr;
Repeat
Writeln (' Qual o melhor time do mundo ? ( flamengo) ');
readln(nome);
if   nome<>'flamengo'    then
                                      begin
                                      Writeln (nome,' é o pior time do mundo');
                                      end;
Until  nome = 'flamengo' ;

Writeln ('Parabéns!! Já vi que você entende de futebol');

End.

While ( Equanto )  ... Do ( faça )

O laço While permite que um bloco de comandos repita-se enquanto uma condição for verdadeira.

Observação: O repeat executa o bloco de comandos para depois verificar a condição. O while verifica  a condição antes de executar o bloco de comandos

Sintaxe

While < condição >  Do
                                 begin
                                 <bloco de comandos >
                                end;

Exemplo

Program Mengo; { cabeçalho }
 

Uses  Crt;

Var

nome: string; { Guarda o nome de um time }

Begin

Clrscr;
While  nome<>'flamengo' Do
                                        begin
                                         Writeln ('Qual o melhor time do mundo ? (flamengo) ');
                                         readln(nome);
                                        if   nome<>'flamengo'  then
                                                                            begin
                                                                           Writeln (nome,' é o pior time do mundo');
                                                                           end;
                                        end; { Fim do While }

Writeln ('Parabéns!! Já vi que você entende de futebol');

End.

For ( para ) ... to/downto ( até ) ... do ( faça )

O For permite que um bloco de comandos seja executado um certo número de vezes. Este número depende de uma variável que sai  de valor inicial e atinge de forma crecente ou decescente um valor final. Quando a variável atinge o valor final o bloco de comandos para de ser repetido.

Sintaxe 01 ( A variável é crescente )
 

For  variável:=<valor incial>  To  variável:=<valor final> Do
                                                                                    begin
                                                                                  <bloco de comandos >
                                                                                   end;
 
 
Sintaxe 02  ( A variável é decrescente )
 

For  variável:=<valor incial>  Downto  variável:=<valor final> Do
                                                                                             begin
                                                                                           <bloco de comandos >
                                                                                            end;

Exemplos:

Exemplo da Sintaxe 01

Program exemplo;

Uses crt;

Var

i:integer;

Begin
Clrscr;
For  i:=1 To 10  Do
                        begin
                         writeln(' Mengooo!!!');   { este bloco de comandos será repetido 10 vezes }
                         writeln('O valor atual da variável de controle  I é ', I);
                        end;
End.

Exemplo da Sintaxe 02

Program exemplo2;

Uses crt;

Var

i:integer;

Begin
clrscr;
For  i:=10 downtoDo
                              begin
                               writeln(' Mengooo!!!'); {este comando será repetido 4 vezes}
                               writeln('O valor de I é ', I); {este também}
                             end;
End.



Índice de Aulas  Próxima Aula  Aula Anterior  Página Principal