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ı]
e.U
Benzer Konularımıza da Göz Atın!
- Geometrik Hesaplamalar [Delphi]
- Türkçe Günleri İngilizceye Çevirme [Delphi]
- Maaş Hesaplama [Delphi]
- Fibonacci Dizisi [Delphi]
- Tek ve Çift Sayılar [Delphi]
- Sayısal Loto [Delphi]
- Digital Saat [Delphi]
- Asal Sayılar [Delphi]
- Delphi Giriş
ya bune biz daha yeni başladık…birisi hayrına şu sorunun türkçesiyle cevabını yazabilirmi?
Hangi kısmının açıklanmasını istiyorsunuz?
mustafa hocam saygılar..geniş çaplı bankamatik programı yazmak istiyorum..bana bu konda yardımcı olur musunuz..?
teşekkür ederim..
3 tabanında ve 5 haneli bir sayıyı 15 tabanına çeviren program algoritması..?
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
20 faktöryel kaç eder bir bulamadımda milyonu geçik bir sayı oluyor galiba
2.432.902.008.176.640.000 alsana 20 Faktöriyel
fak:integer yerine int64 (64bitlik register) kullanırsan 20 nin faktöriyeli hesaplayabilirsin
Kısa ve öz bir kod olmuş. Teşekkürler.
Faktöriyel örneği arayanların mutlaka işine yarayacaktır
döngü kullanmadan faktoriyel hesaplayan agoritma nasıl yapılıyor
arkadaşlar bana bir sayının faktöryelini bulan programın akış diyagramı lazım
yardım edermisinz…
@Samet Dinçer
yanlış bulmuşsunuz.
20!=922803453066240000
@abcd @Samet Dinçer hayır sametinki doğru