L'instruction repeat .... until

Il s'agit d'une variante de la boucle while.

repeat
instruction1;
......
instructionn;
until test;

Les différences sont les suivantes :

• Le test est effectué à la fin de la boucle donc la séquence s'effectue au moins une fois.
• L'arrêt de la boucle correspond à la valeur true pour le repeat, à la valeur false pour le while.

program serie;
(* calcul de H(n)=1+1/2+1/3+......+1/n *)
var 
    n : integer;
    H : real;
begin
    writeln('n = ');
    readln(n);
    H:=0;
    repeat
         H:=H+1/n;
         n:=n-1;
    until n<0;
    writeln('H = ',H);
end.