Program faktorial dengan repeat until

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.

Apakah Anda menyukai post ini? Mengapa tidak memberikan komentar di bawah dan melanjutkan perbincangan, atau berlangganan my feed dan dapatkan artikel semacam ini yang dikirm secara otomatis feed reader Anda.
Harap diperhatikan bahwa komentar atau pertanyaan yang disampaikan haruslah sesuai dengan topik yang sedang dibahas. Komentar atau pertanyaan yang tidak sesuai dengan topik akan kami hapus :!:

Tinggalkan komentar

Sebelum membuat komentar, pastikan Anda telah membaca komentar-komentar sebelumnya. Jangan membuat pertanyaan yang telah ditanyakan. Perhatikan pula link-link dalam artikel. Lihatlah link tersebut sebelum membuat pertanyaan, karena mungkin penjelasan dari pertanyaan Anda telah di jawab dalam link tersebut.

Komentar yang tidak mengikuti aturan ini akan dihapus!

(wajib)

(wajib)


Time limit is exhausted. Please reload the CAPTCHA.