1-Yukarıdan aşağıya programlama : 
  // tanımları ve denetimleri atlıyorum. 
  : 
  Faktoryel := 1; 
  for I:=2 to Sayi do 
    Faktoryel := Faktoryel * I; 
  : 
   
  2- Özyineli programlama : 
  : 
  function FaktoryelHesapla(Sayi : Dword) : Dword; 
  begin 
      if Sayi <= 2 then begin result:=2; exit; end; 
      result := Sayi * FaktoryelHesapla(Sayi - 1); 
  end; 
  : 
  // kullanımı : 
  Faktoryel := FaktoryelHesapla(Sayi); 
  :

int a = convert.toint32(textbox1.text);    // kullanıcının text'e girdiği sayı alınır. 
  int faktoriyel = 1;        // toplam 
   
  for ( int i = a; i>0; i--) 
  { 
      faktoriyel = faktoriyel * i;    // sayı kendisinden başlayarak 1 e kadar birer birer azaltılır ve çarpılır. 
  } 
   
  label1.text =  faktoriyel.tostring();   // sonuc labelde gösterildi.

#include <stdio.h> 
  int result=1; 
   
  int fakt(int a) 
  { 
      if (a==0) 
      return result; 
      else 
      result=a*fakt(a-1); 
      return result;} 
       
  int main() 
   
  { 
      int op=0; 
      scanf("%d",&op); 
      if (op==0 || op==1) 
      printf("Result is 1\n"); 
      else 
      printf("Result is %d\n",fakt(op)); 
      system("pause"); 
      }