Srfgsrfgfd

Dasturning kodi quyidagi listingda keltirilgan:

var
Form1: TForm1;
i,j,n,s,m,p:Integer;
procedure TForm1.Button1Click(Sender: TObject); begin
if StrToInt(Edit1.Text) =i*j then begin
p:=StrToInt(Label8.Caption); Randomize;
i:=Random(n); Randomize; j:=Random(n);
Label1.Caption:=IntToStr(i); Label2.Caption:=IntToStr(j); Edit1.Text:='0';
p:=p+1;
Label8.Caption:=IntToStr(p);
end else
begin
Edit1.Text:='0'; m:=StrToInt(Label9.Caption); m:=m+1;
Label9.Caption:=IntToStr(m); end;
end;
procedure TForm1.Button2Click(Sender: TObject); var a,b,c:Integer;
f:Real; begin
a:=StrToInt(Label8.Caption); b:=StrToInt(Label9.Caption);
c:=a+b;
if c<>0 then begin
f:=a*100 div c;
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

end; end.
n:=10;
Randomize; i:=Random(n); Randomize; j:=Random(n);
Label1.Caption:=IntToStr(i); Label2.Caption:=IntToStr(j); Label8.Caption:=IntToStr(0); Label9.Caption:=IntToStr(0);

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.