Acil Yardım (Delphi)

[pisko_3541]

Arkadaşlar Delphide Pascal Üçgeninin yani binom açılımının kodlarını bulabilirseniz çok sevinirim.Acil Olarak Lazım.Teşekkür Ederim.Saygılarımla...

 

[Dark_Angel]

Delphi'de binom üçgeni örneği işine yarar umarım.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button2: TButton;
Button1: TButton;
Edit1: TEdit;
Label4: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
katar :string;
implementation
{$R *.dfm}
function fakt( gelen : integer): real;
var
i : integer;
begin
Result :=1;
for i :=1 to gelen do
begin
Result:= Result * i;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n,i,gir:integer;
sayi :real;
begin
label1.Visible :=false;
label2.Visible :=false;
label3.Visible :=false;
label5.Visible :=false;
label6.Visible :=false;
form1.Refresh;

gir := strtoint(edit1.text);
form1.width :=gir*40+50;
form1.Height := gir*20+100;
form1.Top :=0;
form1.left :=0;

for n:=0 to gir do
begin
for i:=0 to n do
begin
sayi := fakt(n)/( fakt(n-i)*fakt(i) );
form1.Canvas.TextOut(10+i*40,50+n*20,floattostr(sayi));
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
GirilenSayi, HataKodu: integer;
begin
Val(Edit1.Text, GirilenSayi, HataKodu);
if HataKodu = 0 then
begin
katar :=edit1.Text;
end
else
begin
if edit1.Text = '' then
begin
katar :='';
end
else
begin
Edit1.Text :=katar;
edit1.SelStart := Length(katar);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
katar :='';
end;
end.

 

[pisko_3541]

Çok Teşekkür Ederim Dark Angel Ellerine Sağlık