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 downto
7 Do
begin
writeln('
Mengooo!!!'); {este comando será repetido 4 vezes}
writeln('O
valor de I é ', I); {este também}
end;
End.