Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | program HitungFaktorial4; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write('Masukkan sebuah bilangan: '); Readln(n); faktorial:=1; if (n<>0) then begin i:=1; repeat faktorial:=faktorial*i; i:=i+1; until (i>n); end; Write('Faktorial dari ',n); Writeln(' adalah ',faktorial); Writeln('Tekan Enter'); Readln; end. |
Perhatikan bahwa kita tidak membutuhkan begin dan end; untuk membuat statemen majemuk di dalam perulangan yang menggunakan repeat until.
Sama dengan while do, perubahan variabel pada repeat until juga tidak selalu selisih 1.