Qurbonov o bmix

ilova. Nyuton binomini hisoblovchi dastur. procedure TForm4.Button1Click(Sender: TObject); var kof:string;

begin if(Edit1.Text='') then begin
ShowMessage('Qiymatni kiriting‘); exit;
end; strkod:=''; k:=0;
if(RadioButton1.Checked) then strkod:='(a+b)^{' +Edit1.Text+'}=' else
strkod:='(a-b)^{' +Edit1.Text+'}='; n:=StrToInt(Edit1.text);
while n >= k do begin
a:=fact(n);
b:=fact(k);
c:=fact(n-k); koef:=a/(b*c); if(koef-1<>0) then
kof:=FloatToStr(koef) else
kof:=''; strkod:=strkod +kof; if(n-k>0) then
begin kof:='';
if(n-k>1) then kof:=IntToStr(n-k); strkod:=strkod+'a'+'^{' +kof+'}'; end
else kof:='';
if(k>0) then begin kof:='';
if(k>1) then kof:=IntToStr(k); strkod:=strkod+'b'+'^{' +kof+'}'; end
else kof:=''; k:=k+1;
if n >= k then if(RadioButton2.Checked) then if(k mod 2=0) then strkod:=strkod+'+'
else
strkod:=strkod+'-' else strkod:=strkod+'+'; Chiqarish;
end; end;

//Tozalash proseduras

procedure TForm4.Button2Click(Sender: TObject); var s:string;
begin Edit1.Text:=''; s:=getcurrentdir;
if(s[Length(s)]<>'/') AND (s[Length(s)]<>'\') then s:=s+'/';
s:=s+'3.html'; WebBrowser1.Navigate(s); end;
end.

3. ilova. Fibonachchi sonlarini hisoblovchi dastur.

procedure TForm2.Button1Click(Sender: TObject); begin
Richtext1.Text:=''; if(Edit1.Text='') then begin
ShowMessage('Tartibni kiriting‘); exit;
end; Richtext1.Text:='F['+Edit1.Text+']='; n:=StrToInt(Edit1.Text);
a[1]:=0;
b[1]:=1;
c[1]:=0;
for i:=2 to numlen do begin
a[i]:=0;
b[i]:=0;
c[i]:=0;
end; inc(n);
for i:=3 to n do begin
qushish(c,a);
qushish(c,b); uzlashtirish(a,b,c); end;
if(n>1) then chiqarish(b) else
Richtext1.Lines.Add('1'); end;
//Tozalash prosedura
procedure TForm2.Button2Click(Sender: TObject); begin
Edit1.Text:=''; Richtext1.Text:=''; end;
end.

4.