S. S. Muxlisov, G. M. Idiyeva

procedure TForm1.Label2Click(Sender: TObject);

var i,s,a:integer;

begin a:qstrtoInt(edit1.text);


s:q0;


102



for i:q1 to a do s:qsqI*i;

label2.Caption:qfloattostr(s);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,s,a:integer;

begin a:qstrtoint(edit1.text);

s:q0; for i:q1 to a do s:qsqi*I;

label2.Caption:qfloattostr(s);

end;

Dastur bajarilgandan keyin ekranda quyidagi shaklda natija hosil bo’ladi:





v) Tarmoqlanuvchi dasturlarga Delphi da kvadrat tenglamaning haqiqiy ildizlarini topish dasturi tuzilgan. Bu dasturga mos protseduralarning ko’rinishi quyidagicha bo’ladi: