Mega Code Archive
Binom açılımı [pascal üçgeni]
<![CDATA[
{forma bir adet edit, stringgrid ve buton koyun
butonun içine aşağıdaki kodları yazabilirsiniz.
not : edit kutusuna açılımın basamak değerini giriniz
Başarılar iyi çalışmalar.
Sinan Ergin.
}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
n,a,b:Byte;
dizi:array of array of Word;
begin
n:=StrToIntDef(Edit1.Text,5);
SetLength(dizi,n,n);
//bütün dizi elemanlarına 1 değeri veriliyor.
for a:=0 to n-1 do
for b:=0 to n-1 do
dizi[a,b]:=1;
// binom açılımı hesaplanıyor.
for a:=1 to a-1 do
for b:=1 to a-1 do
dizi[a,b]:=dizi[a-1,b]+dizi[a-1,b-1];
// ızgara kontrolü üzerine yazdırılıyor.
for a:=0 to a-1 do
for b:=0 to a do
StringGrid1.Cells[b,a]:=inttostr(dizi[a,b]);
end;
]]>