|
O’zbekiston Respublikasi Oliy Ta’lim, Fan va Innovatsiyalar Vazirligi Andijon Viloyati Boshqarmasi Asaka 1-son kasb-hunar maktabi
|
| bet | 10/13 | | Sana | 28.05.2024 | | Hajmi | 43,67 Kb. | | #256312 |
Bog'liq Abdumalikova M Delphi dasturlash tiliIII. AMALIY QISM
Mazkur kurs ishini bajarishdan asosiy maqsad shuki, Informatika va axborot
texnologiyalari fanidan olingan bilimlarga tayangan holda ikki sonni
ko’paytmasini aniqlovchi intelektual o’yin dasturini yaratishdir. Mazkur intelektual
o’yinning qoidasi – kompyuter to’qqizgacha bo’lgan ikki sonni o’ylaydi,
foydalanuvchi esa ularning ko’paytmasi topadi. Foydalanuvchi topgan va
topolmagan ko’paytmalar hisoblanib boriladi. Agar foydalanuvchi yakunlash
tugmasini bossa foydalanuvchining o’zlashtirish ko’rsatkichi ko’rsatib dastur
ishini yakunlaydi.
Mazkur
dasturni
yaratishda
Edit,
Label,
BitBtn
va
StatusBar
komponentlaridan foydalanildi. Komponentlarning tartibli joylashuvi quyidagi
rasmda ko’rsatilgan.
Dasturning ko’rinishi quyidagicha:
Dasturning kodi quyidagi listingda keltirilgan:
var
Form1: TForm1;
26
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);
27
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;
|
|
Bosh sahifa
Aloqalar
Bosh sahifa
O’zbekiston Respublikasi Oliy Ta’lim, Fan va Innovatsiyalar Vazirligi Andijon Viloyati Boshqarmasi Asaka 1-son kasb-hunar maktabi
|
