Delphi-Faktöriyel hesaplama


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: ByClxon    0 Yorum    209 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy
Konu Kapalı

Paylaşım Tarihi: 14.05.2016, 21:34:35 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,010 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
[color=yellowgreen][font=tahoma]procedure TForm1.Button1Click(Sender: TObject);[/font][/color][color=YellowGreen]var
carpim,n,i:integer;
begin
carpim:=1;
n:=strtoint(edit1.text);
 begin
  if n=0 then
  edit2.text:='1'
  else
    for i:=1 to n do
      begin
   carpim:=carpim*i;
   edit2.text:=inttostr(carpim);
      end;
  end;
end;
[/color][color=yellowgreen][font=tahoma]end.[/font][/color]


Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         





Konu Kapalı






Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi