ana sayfa > Delphi > Faktöriyel Hesaplama [Delphi]

Faktöriyel Hesaplama [Delphi]

Salı, 12 May 2009 yorum ekle yorumlara git

Bu yazımızda girilen bir sayının faktöriyelini bulan program anlatılmaktadır..

*Faktöriyel:Girilen tamsayının kendisi ve kendisinden  önce 1 e kadar olan tüm tam sayıların çarpılmasıyla bulunur.

Örnek:   6!=1.2.3.4.5.6=720

[Kod Kısmı]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,sayi,fak:integer;    //Değişkenler tanımlanıyor.
begin
fak:=1;               //fak değişkeni en küçük pozitif tam sayı olan 1 e eşitleniyor.
sayi:=strtoint(edit1.text);     //Faktöriyeli istenilen sayı alınıyor.
For i:=1 to sayi Do
fak:=fak*i;                             //Faktöriyel hesaplanıyor.
edit2.text:=inttostr(fak);           //Bulunan sonuç edit2 ye yazdırılıyor.
end;

end.

[Ekran Çıktısı]

dahiweb-delphi-faktoriyel-hesap

e.U

Yazar: emreuzun

Emre UZUN sitemizde 12 yazı eklemiş...

©CriticaLWave




Benzer Konularımıza da Göz Atın!

coded by nessus
Share


Bu kategorideki rastgele diğer yazılar
  • » Geometrik Hesaplamalar [Delphi]
  • » Asal Sayılar [Delphi]
  • » Digital Saat [Delphi]
  • » Maaş Hesaplama [Delphi]
  • » Delphi Giriş
  • » Tek ve Çift Sayılar [Delphi]
  • » Sayısal Loto [Delphi]
  • » Fibonacci Dizisi [Delphi]
  • » Türkçe Günleri İngilizceye Çevirme [Delphi]



    • 11! faktöriyeli çarpmanın kısayolu varmıdı e

      11! faktöriyeli çarpmanın kısayolu varmıdır

    • hamza

      hocam iyi günler
      öncelikle kolay gelsin hocam benim bir sıkıntım var biz okuldan bir proje aldık kargo takip otomasyonu adında ama bir yerde takıldım kaldım.
      hocam sorum şu kargo iller ara mesafeleri hesaplayıp çıkan km yi de saat bazında gösterecek. örnek olarak
      konya ile adana arası varsayalım 4 saat ve km si de 400 diyelim saatte
      100 km hız la giden bir araç adana ya 4 saatte varır…. sanırsam bu matrix le alakalı yardımcı olursanız sevinirim iyi günler :D hamza_acar143@hotmail.com

      • http://www.dahiweb.com/siteye-destek-verenler/mustafa-sadoglu Mustafa Şadoğlu

        Allah yardımcın olsun…

    • umut

      @abcd @Samet Dinçer hayır sametinki doğru :D

    • abcd

      @Samet Dinçer
      yanlış bulmuşsunuz.
      20!=922803453066240000

    • ramazan

      arkadaşlar bana bir sayının faktöryelini bulan programın akış diyagramı lazım
      yardım edermisinz…

    • burak

      döngü kullanmadan faktoriyel hesaplayan agoritma nasıl yapılıyor

    • http://turgutyalcin.com turgut

      Kısa ve öz bir kod olmuş. Teşekkürler.
      Faktöriyel örneği arayanların mutlaka işine yarayacaktır ;)

    • http://trgct.com zugo

      fak:integer yerine int64 (64bitlik register) kullanırsan 20 nin faktöriyeli hesaplayabilirsin :)

    • http://www.axigenc.org Samet Dinçer

      2.432.902.008.176.640.000 alsana 20 Faktöriyel :)

    • selman

      20 faktöryel kaç eder bir bulamadımda milyonu geçik bir sayı oluyor galiba :(

    • http://www.dahiweb.com/siteye-destek-verenler/mustafa-sadoglu mustafa sadoglu

      ERDAL :

      mustafa hocam saygılar..geniş çaplı bankamatik programı yazmak istiyorum..bana bu konda yardımcı olur musunuz..?
      teşekkür ederim..

      erdal hocam bizdende sevgiler saygılar… bu yazılımı hangi ortamda yapmak istediğinizi bilemiyorum. ancak ben sadece php ve mysql konusunda yazılım yapmaktayım. ancak bu konuda ciddi bir desteğe ihtiyacınız varsa işin uzmanı arkadaşlarımdan yardım alabiliriz…

      Algoritma sorusuna gelince:geniş çaplı bankamatik programı yazacak bir kişi için bunlar çocuk oyuncağıdır zaten… yinede algoritmada destek istiyorsanız sizin çözümde takıldığınız yerleri yazın yardımcı olmaya çalışalım…
      iyi günler

    • ERDAL

      3 tabanında ve 5 haneli bir sayıyı 15 tabanına çeviren program algoritması..?

    • ERDAL

      mustafa hocam saygılar..geniş çaplı bankamatik programı yazmak istiyorum..bana bu konda yardımcı olur musunuz..?
      teşekkür ederim..

    • melike

      ya bune biz daha yeni başladık…birisi hayrına şu sorunun türkçesiyle cevabını yazabilirmi?

      • http://www.dahihost.com mustafa sadoglu

        Hangi kısmının açıklanmasını istiyorsunuz?


    HasMeydan.Com