Delphi dasturlash muhitida tomoni a ga teng bo‘lgan kvadratning perimetri va yuzini hisoblash dasturini tuzing.

Bilet ¹4, savol ¹3

Javob

Bitta edit, 2ta label va 1ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a,p,s:integer; begin
a:=strtoint(edit1.Text); p:=4*a; s:=a*a;
label2.Caption:='p='+inttostr(p)+' s='+inttostr(s);
end;

Qo'shimcha yoki boshqa yechim

Ðåøåíèå ¹1

Ko'proq vazifalar

1 2 3

Fan: Informatika fanidan imtixon savollariga javoblar 10 sinf
Bilet: ¹4

"sor-soch.com" © 2024 - Maktab o'quvchilari, abituriyentlar, talabalar va o'qituvchilar uchun ma'lumot portali

Sayt haqida | Maxfiylik siyosati | Kontaktlar