delphide kombinasyon

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphide kombinasyon

Bu konudaki kullanıcılar: 1 misafir

1
Cevap 1082
Tıklama 0
Öne Çıkarma

1. sayfa

delphide kombinasyon

Cevap Yaz

umutsuz45

20 yıl

Onbaşı

Konu Sahibi

arkadaşlar ufak çapta yazdığım bi programda girilen iki değirin kombinasyonunu ve faktöriyelini bulduruyorum ama ben kombinasyonunu bulduğu sayıları listeletmek istiyorum yani atıyorum 5in 3 lü kombinasyonunda 12345,12354 gibi sıralamayı bi memo da listeletemiyorum.program kodları aşağıda var şimdiden tşkler.

unit Unit2;

interface

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

type
TForm2 = class(TForm)
GroupBox2: TGroupBox;
GroupBox1: TGroupBox;
Edit3: TEdit;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
n,r:integer;
c:extended;

implementation

{$R *.dfm}

function fak(deger:integer):integer;
var
i,sonuc:cardinal;

begin
if deger=0 then
fak:=1
else if deger < 0 then
showmessage('Hatalı Giriş Negatif Sayıların Faktöriyeli Olmaz !')
else
begin
sonuc:=1;
for i:=1 to deger do
sonuc:=sonuc*i;
fak:=sonuc;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
deger:integer;
sonuc:integer;
begin
deger:=strtoint(edit3.text);
sonuc:=fak(deger);
showmessage(inttostr(sonuc));
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
n:=strtoint(edit1.text);
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
r:=strtoint(edit2.text);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
c:=fak(n)/(fak(r)*fak(n-r));
showmessage(floattostr(c));
end;

end.

ender_arslanturk

Doğum gününü kutla!
20 yıl

Teğmen

enteresan . evet.

Hocam her tetikleme sonuna memo1.lines.add kodu ile yapsanız. Birde function a boolen değer verseniz.....

Başarılar,

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphide kombinasyon