@Official_AKT Telegram kanali
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;
5-BILET
5.1. MS Access 2010 da ma‟lumotlarni berilgan shablon bo„yicha izlash va qayta ishlash haqida
ma‟lumot bering.
MS Access 2010 da ma‟lumotlarni berilgan shablon bo„yicha izlash
va qayta ishlash uchun
Главная
menyusidan
Выделение
bandidan yoki jadval ustiga sichqonchaning o„ng
tugmasini
bosilib,
Текстовые – фильтры – Ровнр…
ketma – ketligi yordamida amalga oshirishi mumkin.
Jadvaldagi ma‟lumotlarni familiyasi, ismi, manzili kabi ma‟lumotlari bo„yicha izlashimiz mumkin.
Izlab topilgan ma‟lumotlarni
bekor qilish uchun
Главная
menyusining
Фильтр
bo„limi tanlanadi.
5.2__
5-3.
Delphi
dasturlash muhitida to„g„ri burchakli uchburchakning
gipotenuzasining qiymatini
hisoblovchi dastur tuzing.
2 ta edit, 3 ta label va 1 ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer; c:real; begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=sqrt(a*a+b*b);
label3.Caption:='c='+floattostr(c); end;
6-BILET
6.1.
MS Access 2010 dasturida
3 ta sinfdoshingiz haqidagi ma‟lumotlarni uchta jadvalda hosil
qiling va ularni so„rov yordamida bitta jadvalga birlashtiring.
6.2__
