PROGAM FAKTORIAL

PROGAM FAKTORIAL

FAKTORIAL 

Dalam matematika, faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial.

Sebagai contoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040. 

Dan kali ini kita akan mencoba mengerjakan dalam sebuah progam daari delphi7, dan progam faktorial ini ada 2 macam, yaitu :

1.  model pertama seperti gambar dibawah ini

    2. Dan gambar ini model yang kedua

dan bisa di coba dengan script nya di bawah ini :

1. model 1

program faktorial_nyu;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure faktorial(var fak, hasil:integer);

    var

      a:integer;

    begin

      hasil:=1;

      for a := 2 to fak do

      hasil:=hasil*a;

    end;

    var

      b,c:integer;

begin

  writeln ('Nama : Maisirotul Rizka');

  writeln ('NIM  : 114224022');

  writeln;

  writeln ('  =================================');

  writeln ('    Penulisan Procedure Faktorial');

  writeln ('  =================================');

  writeln ('');

  write('Berapa Faktorial ? '); readln(b);

  faktorial(b,c);

  writeln(b ,' Faktorial = ', c);

  readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

2. Model 2

program faktoriiaalllll;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure faktorial(var fak, hasil:integer);

    var

      a:integer;

    begin

      hasil:=1;

      for a := 2 to fak do

      hasil:=hasil*a;

    end;

    var

      b,c,nminr:integer;

      f1,f2,f3:integer;

      x:real;

begin

  writeln;

  writeln('Nama  : Maisirotul Rizka');

  writeln('Nim   : 114224022');

  writeln;

  writeln ('================================');

  writeln ('CONTOH PENULISAN RUMUS FAKTORIAL');

  writeln ('================================');

  writeln ('');

  write('Masukkan N = '); readln(b);

  write('Masukkan R = '); readln(c);

  faktorial(b,f1);

  nminr:=b-c;

  faktorial(nminr,f2);

  faktorial(c,f3);

  x:=f1/f2*f3;

  writeln('Hasil      = ', x:3:2);

  readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Silahkan dan selamat mencoba gays ^^