4-Amaliy mashg’ulot. Modellashtiruvchi dasturlarda pedagogik dasturiy vositalar Ishning maqsadi

3-rasm. RadioGroup joylashtirish.
Bu yerda to’g’ri javoblar qaysi variantda berilayotganiga e’tibor qaratish talab etiladi va 
ularni oddiy bloknotga qayd qilib borish kerak. Masalan ((1,0,0,0),(0,0,1,0)) mana bunday 
ko’rinishda. Bu yerda birinchi to’rttalik birinchi savolni, har bittta bir va nollar esa variantlarning 
to’g’ri yoki noto’g’ri ekanini bildiradi. Berilgan misolda ikkita savol va birinchi savolga birinchi 
variant to’g’ri, ikkinchi savolga uchinchi variant to’g’ri ekani ko’rsatilgan. 
Demak shu tartibda barcha savollarni joylab bo’lgach Standart tabshetidan bitta Button va 
Label joylashtiriladi. Tugma ustiga sichqoncha tugmasi ikki marta bosiladi. Ochilgan Unit1.pas 
oynasiga quyidagicha kod kiritiladi.
ball:=otv[1,radiogroup1.ItemIndex]+otv[2,radiogroup2.ItemIndex]; 
label2.Caption:= 'Sizning bahongiz '+IntToStr(ball); 
Bu yerda ikkita savol uchun kod yozilgan. Agar savollar soni ko’p bo’lsa har bir savol 
uchun bitta otv[N,radiogroupN.ItemIndex] qo’shib boriladi.
Bu koddan yuqoriroqda
var 
Form1: TForm1;
dan keyin
ball:integer; 
type answers=array[1..2,0..4] of byte; 
const otv:answers=((1,0,0,0),(0,1,0,0)); 
kodini kiritish kerak. Bu yerda massiv ikkita savol va har bir savol uchun to’rtta variantga 
moslangan. 
Yordam tabshetiga Label joylashtirib testga qisqacha izoh yozish mumkin.
Mavzu yuzasidan topshiriqlar:
1. Delphi dasturida 10 ta test savollari blankini tayyorlang.
2. Testni .exe formatda nashr qiling.
3. AutoPlay dasturida pedagogik dasturiy vositalar fanidan elektron majmua tayyorlang. 
4. Elektron majmuaga test topshiriqlari, video, rasm kabi ma’lumotlar joylashni mustaqil 
o’rganing. 
5. Elektron majmuani didaktik materiallar bilan boyiting.