KODING FAKTORIAL DARI BERBAGAI PROGRAM

1. VISUAL BASIC
   
   
   1. Klue : Jika kita masukkan angka dalam txt_angka.text kemudian kita klik cmd_hitung_click( ) maka hasilnya akan muncul message box.
      Kondisi :
      1. Jika angka < = 0 maka pesannya “Maaf, tidak ada factorial yang bernilai negative"
      2. Jika angka = 1 maka pesannya “Hasil Faktorialnya = 1”
         
      3. Jika angka > 0 maka pesannya “Hasil Faktorialnya = …”
      
      
      
      ini adalah kode programnya :
      
      Private Sub cmd_hitung_Click()
      
      Dim i As Integer
      Dim Faktor As Integer
      Faktor = 1
      Angka = Val(txt_angka.Text)
      
      If Angka <= 0 Then MsgBox "Maaf, tidak ada faktorial yang bernilai negatif" Else If Angka = 1 Then MsgBox "Hasil Faktorial I = 1" Else If Angka > 0 Then
      For i = 1 To Angka
      Faktor = Faktor * i
      Next
      MsgBox "Hasil Faktorial" + "=" + CStr(Faktor)
      End If
      End Sub
      
      
      NB :
      1. label1(name) = Masukkan Angka(Caption)
         
      2. txt_angka(name)= textbox buat masukkan angka
         
      3. cmd_hitung = commandbutton buat hitung
         
      
      
      
   2. Klue : Jika kita masukkan angka dalam text1.text kemudian kita klik command1_click( ) maka hasilnya akan muncul message box
   
   Kondisi :
   1. Jika angka < = 0 maka pesannya “Maaf, tidak ada factorial yang bernilai negative
   2. Jika angka = 1 maka pesannya “Hasil Faktorialnya = 1”
   3. Jika angka > 0 maka hasilnya akan muncul di text2.text
   
   
   
   Ini kode programnya :
   
   Private Sub Command1_Click()
   Dim i As Integer
   Dim Faktor As Double
   Faktor = 1
   Angka = Val(Text1.Text)
   If Angka <= 0 Then MsgBox “Maaf, tidak ada faktorial yang bernilai negatif” Else If Angka = 1 Then MsgBox “Hasil Faktorial I = 1″ Else If Angka > 0 Then
   For i = 1 To Angka
   Faktor = Faktor * i
   Next
   Text2.Text = CStr(Faktor)
   End If
   End Sub
   
   
   
2. C++
Klue : Misalnya 4!, itu berarti 4 x 3 x 2 x 1. Di bawah adalah source code Faktorial, kalo ada yang salah mohon koreksinya :

#include
#include
long int faktorial(int n)
{
if (n==0 || n==1)
return 1;
else
return n*faktorial(n-1);
}
int main()
{
int bil, n;
long int hasil;
cout << n =" ">> n;
hasil = faktorial(n);
cout <<>



3. DELPHI
1. Klue : Sediakan sebuah Edit dengan nama edFaktorial, Sebuah Button dengan nama Button1, dan sebuah Label dengan nama lbHasil. Kemudian ketikkan script berikut pada Button1 dengan event click :
   
   procedure TForm1.Button1Click(Sender: TObject);
   
   var
   bil,i,a:integer;
   
   begin
   bil:=strtoint(edFaktorial.Text);
   a:=1;
   for i:=1 to bil do
   a:=a*i;
   lbHasil.Caption:=floattostr(a);
   end;
   
   
2. Klue : dengan menggunakan function, kodingnya adalah sebagai berikut :
   
   Function
   Faktorial(A: Integer): LongInt;
   Var B: Integer;
   
   begin
   Result:=1;
   if A=0 then Exit;
   for B:=1 to n do
   Result:=Result*B;
   end;
   
   atau dengan koding seperti ini :
   
   
   Function
   faktorial(number:integer):LongInt;
   
   begin
   result:=number;
   if result >1 then
   result:=number * faktorial(number-1)else
   
   begin
   result:=number;
   end;
   end;



4. FOXPRO
Klue :Jika kita masukkan angka dalam text1.text kemudian kita klik command1_click( ) maka hasilnya akan muncul message box
Kondisi :
1. Jika angka < = 0 maka pesannya “Maaf, tidak ada faktorial yang bernilai negative”
2. Jika angka = 1 maka hasilnya akan muncul di text2.text
   
3. Jika angka > 0 maka hasilnya akan muncul di text2.text
   
   


ini adalah kode programnya :

thisform.text2.Enabled = .T.
n = VAL(thisform.text1.Value)
fak = 1
IF n <= 0 MESSAGEBOX("Maaf, tidak ada faktorial yang bernilai negatif",64, "Peringatan") ELSE IF n = 1 thisform.text2.Value = 1 ELSE IF n > 0
FOR i = 1 TO n
fak = fak * i
NEXT i
thisform.text2.Value = fak
ENDIF
ENDIF
ENDIF