Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut:

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.

Time limit is exhausted. Please reload the CAPTCHA.

Beritahu saya melalui email jika ada balasan komentar di artikel ini. Anda juga dapat berlangganan tanpa harus memberi komentar.