Dasturlash asoslari


Sharti oxirida berilgan sikl



Yüklə 2,09 Mb.
səhifə110/111
tarix07.01.2024
ölçüsü2,09 Mb.
#203273
1   ...   103   104   105   106   107   108   109   110   111
Dasturlash asoslari

11.9.4. Sharti oxirida berilgan sikl


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.




16-misol: Shartli sikltuzilmasini ishlatish

(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. К1 – aniqlanadigan nuqtalarning tartibi. Siklga kirishdan oldin unga nol qiymatini berish lozim.

  2. К2 – halqaga tushuvchi nuqtalar soni. Siklga kirishdan oldin unga nol qiymatini berish lozim.

  3. Sikl sarlavqasi. К1 ≤ 300 va К2 ≤ 50 shartlarini tekshirish.

  4. 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. К1, К2 larni chiqarish


11.37-rasm




Yüklə 2,09 Mb.

Dostları ilə paylaş:
1   ...   103   104   105   106   107   108   109   110   111




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin