kelinadi va sichqoncha tugmachasini bosgan holda
“Edit1”matn kiritilishi va
ikkinchi
marotaba
“Edit2” chiqarilishi lozim bo‘lgan joy ajratiladi.
2. Standard komponentalar palitrasidan “Button1” tugmasini hosil qilamiz.
3. Natijada hosil bo‘lgan “Button1” tugmasi ustiga sichqoncha tugmachasini ikki
marta
bosib,
dasturlash
maydonchasini
hosil
qilamiz.
4. Demak, hosil bo‘lgan maydonchaga quyidagi dasturni kiritamiz:
var m:integer;
begin
m:=strtoint(edit1.Text);
Do'stlaringiz bilan baham: