Delphi Permütasyon Hesaplama

Delphi programı gelişim aşamasında   karşımıza delphi permütasyon hesaplama nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte delphi programında permütasyon hesabını kolayca yapabileceksiniz.

Delphi Permütasyon Hesaplama

Delphi permütasyon nasıl hesaplanır ? 

 

Permütasyon, n asıl kümenin eleman sayısı ve r alt kümelerin eleman sayısı olmak üzere

formülü ile hesaplanır. Delphi programı ile bunları algoritmik olarak kodlara yansıtmanız elbette mümkün. Aşağıda bulunan kodlar ile sizlerde permütasyon hesaplaması yapabilirsiniz.

 

procedure TForm1.Button1Click(Sender: TObject);
var
n,r,bir,bbir:Integer;
I: Integer;
carp :Real;
begin
bir:=1;
bbir:=1;
n:=StrToInt(Edit1.Text);
r:=StrToInt(Edit2.Text) ;
for I := 1 to n do begin
bir := bir*I;
end;
Listbox1.Items.Add(IntToStr(n) + ' faktöriyel = ' + IntToStr(bir));
r := n - r ;
for I := 1 to r do begin
bbir:=bbir*I;
end;
Listbox1.Items.Add(IntToStr(r) + ' Faktöriyel = ' + IntToStr(bbir));
carp:= bir / bbir ;
Listbox1.Items.Add('Permütasyon sonucu = ' + FloatToStr(carp)); 
end; 
end.

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Delphi ile ilgili kavramlara ek olarak, Delphi öğrenimini teşvik etmek için karar verme ve
 döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.
Diğer örneklere de göz atabilirsiniz: 

Faktöriyel Hesaplama 
Fibonacci Sayısı: 
Girilen İki Sayı Arasındaki Asal Sayılar: 
Boy-Kilo Endeksi Hesaplama: 
Armstrong Sayısı:
Haftanın Günleri: 
Girilen Sayınn Rakamlarını Topla:

 

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.