Faktöriyel Hesaplama [Delphi]

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
  • 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?