Mirsaid Aripov, Nurillo Otaxanov

Masala-1: Butun a va b sonlari berilgan bo`lsa, quyidagi yig’indini hisoblang:

a  (a1)  ...  b

Yechish g’oyasi: Bu masala uchun formaga ikkita Edit, bittadan Label va Button komponentalari joylanadi. Dasturda S o`zgaruvchiga navbati bilan a (Edit1.text) to b (Edit2.text) gacha bo`lgan sonlar qo`shiladi. Natijani Label1.Caption ga yoziladi.

4.6-listing.

procedure TForm1.Button1Click(Sender: TObject);

var i, s, a, b:integer;

begin

s : 0;

a : strtoint(edit1.Text);

b : strtoint(edit2.Text);

for i : a to b do s : si;

label1.Caption : inttostr(s);

end;

Tsikl jarayonini boshqaruvchi x0 parametrdan tsikl ichida foydalanish shart emas. Bu holda uning vazifasi talab qilingan sondagi takrorlashlarni ta`minlashdan iborat bo`ladi.

Masala-2. Berilgan n natural soni uchun quyidagi yig’indini hisoblang: