Var a,b,c: Real; D: Real

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
k,i:integer;
y,p:real;
begin
y:=1;
for i:=1 to 6 do begin
p:=0;
for k:=1 to 5 do begin
p:=p+(k+i)/(2*k+3*i);
end;
y:=y*p;
Button'>Label1.caption:='y='+floattostr(y)+' ga teng‘;
end;
end;
end.

3-misol. “ListBox” va “Button” tugmachalaridan foydalanib 1 dan 20 gach ketma- ket keluvchi natural sonlarning kvadratini hisoblash dasturini tuzing.
1. Standart komponentalar palitrasidan ikkita Button va bitta ListBox tugmachalarini hosil qilamiz.
2. “Button1” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz:
var
r:array of integer;
i:Integer;
begin
ListBox1.Items.Clear;
SetLength(r,10);
for i:=0 to High(r) do
begin
r[i]:=i*i;
ListBox1.Items.Add(IntToStr(i)+' ni kvadrati ='+IntToStr(r[i]));
end;
2. “Button2” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz:
type
TDynArr=array of integer;
var
r:TDynArr;
i:Integer;
begin
ListBox1.Items.Clear;
SetLength(r,10);
for i:=0 to High(r) do
r[i]:=i*i;
SetLength(r,20);
for i:=10 to High(r) do
r[i]:=i*i;
for i:=0 to High(r) do
ListBox1.Items.Add(IntToStr(i)+' ni kvadrati ='+IntToStr(r[i]));
end;
3. “F9” tugmasini tanlaymiz.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,