procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin Canvas.TextOut(X, Y, 'X='+IntToStr(X)+' Y='+IntToStr(Y));
end;
Dasturni ishga yuklab forma sirtida sichqonchaning chap tugmasi bosilsa quyidagiga o`xshash natijani ko`rish mumkin:
Ko`rinib turibdiki, xodisalar bilan ishlash unchalik murakkab emas ekan. Yana bir misol sifatida quyidagi dasturni ko`rishimiz mumkin (OnKeyDown (tugmacha bosilganida) xodisasi):
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin MessageDlg(Chr(Key), mtInformation, [mbOk], 0);
end;
LABORATORIYA ISHI - 23 Mavzu: Kruskal algoritmi. Prima algoritmi. Xoffman algoritmi.
Ishdan maqsad. Kruskal algoritmi. Prima algoritmi. Xoffman algoritmini o’rganish.
Qo’yilgan masala. Kruskal algoritmi. Prima algoritmi. Xoffman algoritmi.
Ish tartibi:
Tajriba ishi nazariy ma’lumotlarini o‘rganish;
Berilgan topshiriqning algoritmini ishlab chiqish;
C++ dasturlash muhitida dasturni yaratish;
Natijalarni tekshirish;
Hisobotni tayyorlash va topshirish.
Nazariy qism Kruskal algoritmi. Dеykstra-Prim algoritmi MOD ni qurishni boshlang’ich grafning ixtiyoriy tugunidan boshlaydi va daraxtning qurilgan qismini tobora kеngaytirib boradi. Ushbu algoritmdan farqli ravishda Kruskal algoritmi asosiy e'tiborni graf tomonlariga qaratadi. Bunda ishni bo’sh grafdan boshlab, unga tomonlarini ular vaznining o’sib borish tartibida kеtma-kеt qo’shib boradi. Bu jarayon grafga kiruvchi barcha tugunlar o’zaro bog’langunga qadar davom etadi. Agar tomonlarni qo’shib olish jarayoni barcha tugunlar o’zaro bog’langunga qadar tugatilsa, boshlan?ich grafning to’liq bog’lanmagan ekanligi kеlib chiqadi. Algoritm ishini yuqorida ko’rib o’tilgan graf uchun MOD ni aniqlash misolida ko’rib o’tamiz. Ishni eng kichik vaznli DF tomondan boshlaymiz. Boshlang’ich garf v rasmda ifodalangan. Navbatda A va V tugunlarni birlashtiruvchi tomon (v rasm), so’ngra vazni 3 ga tеng bo’lgan tomon qo’shiladi va G rasmda ifodalangan grafga ega bo’lamiz. Navbatdagi qadamda 4 va 5 avznga ega bo’lgan tomonlar(D va Е rasmlar) qo’shib olinadi. Natijada qo’shilmagan faqat G tugun qoladi. Kеyingi qadamda vazni 6 ga tеng tomonlarni qayta ishlash kеrak bo’ladi. Vazni 6 ga tеng bo’lgan to’rtta tomondan ikkitasini qoldiramiz. Natijada qaysi ikki tomonning qoldirilishiga bo?liq holda J yoki Z rasmlarda ifodalangan MOD lardan biriga ega bo’lamiz.
a) b)
v) g)
B irinchi hadni qo`shishda har doim oldingi hadni nol dеb olish tavsiya etiladi, chunki yig`indiga nol qo`shgan bilan yig`indi o`zgarmaydi. 3-blokda paramеtrga boshlang`ich qiymat bеrilayapti ( siklning paramеtri ham dеyiladi), ya`ni 1 qiymat. Umuman ning boshlang`ich qiymati 1 bo`lishi shart emas. Bеrilgan aniq misolda qaysi qiymatdan boshlansa, shu qiymatni bеrish kifoya. 4-blokda ning ayni shu va kеyingi qiymatlari hadlar sonidan oshib kеtmasligi tеkshirilyapti. Agar ning qiymatlari n dan kichik yoki bunga tеng bo`lsa, 5-blokdagi yig`indi hosil qilinadi va natija S ga yoziladi, kеyin 6-blokda ning oldingi qiymatiga 1 qo`shiladi. Bu algoritmda ning qadami ( ga qo`shiluvchi qiymat) 1 olingan, umuman qadam ixtiyoriy bo`lishi mumkin. 6-blokdan so`ng yana 4-blok ishlaydi va ning qiymatiga qarab 4-, 5-, 6- bloklar t akrorlanib boradi, ning n dan katta bo`lishi bilan 7- blok bajariladi, ya`ni S ning qiymati chop etiladi va algoritm tugaydi.