Qo’yilgan masala. “Ajrat va hukmronlik qil” prinsipi bo‘yicha ishlaydigan algoritmlarni loyihalash. Elementlar jamlanmasini biror belgi bo‘yicha tartiblashtirish algoritmi Ish tartibi


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin


Download 251.08 Kb.
bet5/5
Sana13.04.2023
Hajmi251.08 Kb.
#1350652
1   2   3   4   5
Bog'liq
Amaliy ish 5

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;
Topshiriqlar:
1. Aytaylik, siz sayohatga ketyapsiz. Sizning sumkangiz 6 funt sig'imga ega va quyidagi ro'yxatdagi narsalarni olishingiz mumkin. Har bir elementning qiymati bor; u qanchalik baland bo'lsa, shu narsa shunchalik muhim:
suv, 3 funt, 10;
kitob, 1 funt, 3;
ovqat, 2 funt, 9;
ko'ylagi, 2 funt, 5;
kamera, 1 funt, 6
Yo’l uchun maqbul narsalar to'plami qanday bo’ladi?

Nazorat savollari.

  1. Xasis algoritmlar va variantlar soni bo’yicha hajmini baholash algoritmini tahlil qiling.

  2. Eng qisqa marshrutni aniqlash algoritmi. Uni variantlar soni bo’yicha hajmini baholashni tushuntirib bering.

Download 251.08 Kb.

Do'stlaringiz bilan baham:
1   2   3   4   5




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling