Repeat - Pascal

Instrução repeat...until


Esta estrutura caracteriza-se por efetuar um teste lógico no final de um looping,
sendo parecida com a estrutura while...do. Seu funcionamento é controlado também por
decisão. Esta instrução irá efetuar a execução de um conjunto de instruções pelo menos
uma vez antes de verificar a validade da condição estabelecida.
Desta forma, repeat irá processar um conjunto de instruções, no mínimo uma
vez, até que a condição se torne verdadeira. Para a estrutura repeat um conjunto de
instruções é executado enquanto a condição se mantém falsa e até que se torne
verdadeira.

program EXEMPLO_REPEAT1;
var
A,B,R,I: integer;
begin
    I := 1;
    repeat
        write('Entre um valor para A: ');
        readln(A);
        write('Entre um valor para B: ');
        readln(B);
        writeln;
        R := A + B;
        writeln('O resultado corresponde a: ',R);
        writeln;
        I := I + 1;
    until (I > 5);
end.

Exercício

Respostas


01 02 03 04 05 06 07 08 11 12

Categories: Pascal , Programação