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.

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.

Posted

Delphi – Lazarus, Pemrograman, Semua, Tutorial

Sulhan Setiawan

Tags:

Delphi – Lazarus

Program faktorial dengan repeat until

Comments

Tinggalkan Balasan Batalkan balasan