ShowMessage(IntToStr(c) + ' ta savoldan ' + IntToStr(a)+' tasiga to'gri javob berildi.'+#13+'O'zlashtirish '+ FloatToStr(f)
+' %ni tashkil etadi.');
end;
Close();
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin
Button2Click(Sender);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=10;
Randomize;
i:=Random(n);
Randomize;
j:=Random(n);
Label 1 .Caption: =IntToStr(i);
Label2.Caption: =IntToStr(j);
Label8.Caption: =IntToStr(0);
Label9.Caption:=IntToStr(0);
end;
end.
27
XULOSA
Hozirgi zamonaviy axborot kommunikatsion texnologiyalari behad rivojlangan davrga kelib, jamiyat ahlining deyarli barcha qatlami axborot kommunikatsion texnologiyalaridan keng foydalanmoqda. Shunday yo’nalishlar qatoriga muhandisslik, iqtisodiyot, statistika kabi yo’nalishlarni kiritish mumkin.
Mazkur kurs ishida berilgan nazariy va amaliy topshiriqlar bilan ishlash natijasida Delphi dasturlash tilida foydalaniladigan Edit, Label, StatusBar, va BitBtn komponentlari taxlil etildi. Natijada esa, to’qqizgacha bo’lgan sonlarning ko’paytmasini topuvchi intelektual o’yin dasturi yaratildi.
Mazkur dasturni yaratishda mantiqiy amallar va dasturlash texnologiyasi bo’yicha bilimlarim yanada rivojlandi.
28
FOYDALANILGAN ADABIYOTLAR
Informatika va axborot texnologiyalari: Oliy ta'lim muassasalari talabalari uchun darslik S.S. G'ulomov, B.A. Begalov; O'z.R Oliy va o'rta maxsus ta’lim vazirligi, Toshkent Davlat Iqtisodiyot Universiteti.-T.: Fan,2010.-704 bet
Informatika. Akademik S.S.G’ulomov umumiy tahriri ostida. Darslik.
Toshkent. - TDIU, 2007. Alimov R, Hodiyev B. “Milliy iqtisodda axborot tizimlari va
texnologiyalari”, Т.: “Sharq”-2004. Фленов М. Е. Библия Delphi. — 2-е изд. БХВ-Петербург - 2008.
http://www.ziyonet.uz - Ziyonet axborot resurs portali.
http://moodle.andmiedu.uz - AndMI masofaviy ta’lim tizimi.
