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);

FOYDALANILGAN ADABIYOTLAR

1. 
   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
   
2. 
   Informatika. Akademik S.S.G’ulomov umumiy tahriri ostida. Darslik. Toshkent. – TDIU, 2007.
   
3. 
   Alimov R, Hodiyev B. “Milliy iqtisodda axborot tizimlari va texnologiyalari”, Т.: “Sharq”-2004.
   
4. 
   Фленов М. Е. Библия Delphi. — 2-е изд. БХВ-Петербург – 2008.
   
5. 
   http://www.ziyonet.uz – Ziyonet axborot resurs portali.
   
6. 
   http://moodle.andmiedu.uz – AndMI masofaviy ta’lim tizimi.