Estrutura REPEAT ou REPITA

Olá pessoal agora falaremos da estrutura de repetição REPEAT ou REPITA ela difere da ultima que vimos porque nesse caso a seqüência é executada, e depois testa-se a condição da repetição, da seguinte forma:

REPITA
[COMANDOS CASO A CONDIÇÃO SEJA FALSA]
ATÉ CONDIÇÃO


Podemos por exemplo criar um algoritmo para verificar se um número lido via teclado é Par, caso seja par o programa devera solicitar a leitura de outro número, caso este número seja impar o programa devera informar a mensagem “é impar” e sair do processamento.
Em pascal

ALGORITMO EXEMPLO:
VAR
NUMERO:REAL
INICIO
REPITA
ESCREVA “DIGITE UM NÚMERO:”
LEIA NUMERO
ATE (NUMERO MOD 2) <> 0
ESCREVA “O NÚMERO É IMPAR”
FIM

Em pascal vemos assim:

PROGRAM EXEMPLO;
USES CRT;
VAR
NUMERO:REAL;
BEGIN
CLRSCR;
REPEAT
WRITE(‘DIGITE UM NÚMERO:’);READLN(NUMERO);
UNTIL (NUMERO MOD 2) <> 0;
WRITELN(‘O NÚMEWRO É IMPAR’);
READKEY;
END.

Esta foi uma síntese da estrutura de repetição REPEAT ou REPITA e uma de suas aplicações praticas. Fiquem ligados na próxima semana tem mais!

Frase da semana
”O Homem aprendeu a escrever os defeitos no bronze e as virtudes na água” [Ludwig Van Beethoven]