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!
- Türkçe Günleri İngilizceye Çevirme [Delphi]
- Digital Saat [Delphi]
- Fibonacci Dizisi [Delphi]
- Asal Sayılar [Delphi]
- Tek ve Çift Sayılar [Delphi]
- Sayısal Loto [Delphi]
- Delphi Giriş
- Geometrik Hesaplamalar [Delphi]
- Maaş Hesaplama [Delphi]
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
hocam iyi günler
hamza_acar143@hotmail.com
ö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
Allah yardımcın olsun…