Delphi-Faktöriyel hesaplama


Genel & Off Topic    Konu Dışı , Eğlence-Muhabbet , Tanışma , Yarışma & Etkinlik Bölümü

Yazar: lDarkAngeL    0 Yorum    188 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 01.08.2016, 12:46:43 #1
lDarkAngeL MaskeliHacker
Efsane Üye
Status: Çevrimdışı Yorumları:1,317 Konuları:505 Kayıt Tarihi:19.03.2016 Rep Puanı: 830

PHP Kod:

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ı
Resim http://i.hizliresim.com/A3jRQr.gif










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

Konuyu Okuyanlar:
1 Ziyaretçi