Do
Konstruktsiya
Loop Until Shart
Sikl tanasining
konstruktsiyasi
Y o‘q Ha
Shart?
Sikldan shartsiz chiqib ketish sharti oldinda va oxirida berilgan sikllarningtuzilmasi uchun Exit Do sintaksisiga ega. Exit buyrug‘I siklning bajarilishini yakunlaydi va boshqarishni sikldan keyinga konstruktsiyaga beradi.
(shart sikl tanasi bajarilishidan oldin tekshiriladi)
Kvadrat berilgan. Kvadrat tomoni 2 ga teng. Kvadrat markazi dekart koordinatalari sistemasining (0,0) nuqtasida joylasgan. Siklda kvadrat ichidan tasodifiy nuqta olinadi. Nuqta markazlari (0,0) nuqtada va radiuslari R1=0,5; R2 =1,0 bo‘lgan ikkita konsentrik aylanadan tashkil topgan halqaga tegishliligini tekshirish kerak. Quyidagi shartalning biri bajarilsa, siklni to‘xtatiladi.
Tasodifiy olingan nuqtalarning soni 300 ga teng bo‘lsa.
Halqaga tegishli bo‘lgan nuqtalar soni 50 ga teng bo‘lsa.
Nuqtalarning umumiy soni va halqaga tegishli bo‘lgan nuqtalarning soni chop etiladi.
Algoritmi
К1 – aniqlanadigan nuqtalarning tartibi. Siklga kirishdan oldin unga nol qiymatini berish lozim.
К2 – halqaga tushuvchi nuqtalar soni. Siklga kirishdan oldin unga nol qiymatini berish lozim.
Sikl sarlavqasi. К1 ≤ 300 va К2 ≤ 50 shartlarini tekshirish.
Agar teksirish natijasi True bo‘lsa, К1 =К1 + 1 iteratsiyasini malgam oshirish
(x,y) nuxtasi koordinatalarini topish
-1.0 ≤ x ≤ +1.0, -1.0 ≤ y ≤ +1.0
Nuqtaning 0.25 ≤ x2 + y2 ≤ 1.0 halqasiga tegishliligini tekshirish
Agar К2 =К2 + 1 sharti bajarilsa, 3 punktga o‘tish
К1, К2 larni chiqarish
11.37-rasm
Dostları ilə paylaş: |