Delphi dasturlash

Borland Delphi7 da yig’indini hisoblovchi dastur tuzish!

  1.  Butun sonlar yig’indisini hisoblovchi dastur tuzish.

M va N butun sonlar berilgan bo’lsin ularni yig’indisini hisoblash kerak bo’lsin. Buning uchun yangi ilova yaratamiz va unga 3ta Label, 2 ta Edit va bitta Button obyektlarini rasmdagidek joylashtiramiz.: Sonlar yig’indisini hisoblash  button tugmasida amalga oshadi. Shu  sabali ham Button1 tugmasini 2 marta bosib quyidagi kodni kiritamiz:

Procedure TForm1.Button1Click(Sender: TObject);

Var i,m,n,s: integer;

Begin

m:StrToInt(Edit1.Text);

n:StrtoInt(Edit2.Text);

s:=0; for i:=m to n do s:=s+i;

Label3.Caption:=’yig”indi: ‘ +IntToStr(s); end; end.

Ushbu kodni bexato kirgizganimizdan  so’ng F9 ni bosamiz va kerakli sonni hisoblatib ishlataveramiz

Muallif: Hoshimbek Shodiyev

Teglar

Related Articles

Javob berish

E-pochta manzilingiz chop etilmaydi. Majburiy ma'lumotlar * bilan belgilangan

2 + 1 =


Close