Urganch davlat universiteti axborot texnologiyalari kafedrasi

begin 

  if n=

0 

then begin 

    ForWd(d); TurnLeft(

120

); 

    ForWd(d); TurnLeft(

120

); 

    ForWd(d); TurnLeft(

120

); 

  

and else begin 

    Sierp_Tr(d div 

2

, n-

1

); 

    ForWd(d 

div 

2

); 

    Sierp_Tr(d 

div 

2

, n-

1

); 

    TurnLeft(

120

); 

    ForWd(d 

div 

2

); 

    TurnRight(

120

); 

---

    Sierp_Tr(d 

div 

2

,n-

1

); 

    TurnRight(

120

); 

    ForWd(d 

div 

2

); 

    TurnLeft(

120

); 

   

end; 

end;

 

Ikkinchi usul. Oldingi algoritmida n-1 tartibli uchburchaklar bir xil yo‘naltirilgan chapga 

120◦  ga  fikran  buramiz.  Shunda  uning  chapdagi  pastki  burchagi  n-  tartibli  uchburchakning 

o‘ngdagi  pastki  burchagida  bo‘lib  qoladi.  Shunday  qilib,  n  (n>=1)  tartibli  Serpinning 

uchburchagini chizish uchun uch marta shunday harakatlarni uch marta bajarish yetarli. 

1.Tomonining uzunligi d/2 bo‘lgan (n-1) – tartibli Serpenning uchburchagi chizilsin. 

2.Oldinga d ga ko‘yib olinsin. 

3.120 ga burilsin. 

Ularni oldingisiga (3.5–listingga qarang) nisbatan qisqa va oddiy  bo‘lgan dasturosti (3.6 

listing )ga amalga oshiramiz. 

3.6  listing  .  Toshbaqacha  grafikasi  yordamida  Serpinning  uchburchagi  va  n-1  tartibli  turli  xil 

yo‘naltirilgan uchburchaklarni tuzish. 

procedure Sierp_Tr(d:

integer

; n:

integer

); 

begin 

  if n=

0 

then begin 

    ForWd(d); TurnLeft(

120

); 

    ForWd(d); TurnLeft(

120

); 

    ForWd(d); TurnLeft(

120

); 

  

and else begin 

    Sierp_Tr(d div 

2

, n-

1

); 

    ForWd(d); 

    TurnLeft(

120

); 

    Sierp_Tr(d 

div 

2

,n-

1

); 

    ForWd(d); 

    TurnLeft(

120

); 

    Sierp_Tr(d 

div 

2

,n-

1

); 

    ForWd(d); 

    TurnLeft(

120

); 

end; 

end;

 

Uchinchi usul. Serpinning uchburchagini “odatiy” (toshbaqaga emas ) grafika yordamida 

tasvirlaymiz.  (n-1)  -  tartibli  barcha  uchta  Serpinning  uchburchagi  bir  xil  yo‘naltirilgan  birinchi 

usul  o‘ta  qulay  bo‘lib  qolarkan.  “Odatiy”  grafika  bilan  ishlovchi  rekursiv  prosedura  juda  kam 

“bog‘lovchi  modda”ga  ega.  (x,y)  nuqtaga  chapdagi  pastki  qirrasi  bo‘lgan  n  (  n>=1)  darajali 

Serpinning  uchburchagini  chizish  uchun  har  bittasi  tomonining  uzunligi  d/2  bo‘lgan  (n-1)  - 

tartibli  Serpinning  uchburchagini  chizadigan  uchta  rekursiv  chaqiruvchi  bajarish  yetarli.  Ushbu 

uchburchaklarning  chapdagi  pastki  qirralari  (x,y),  (x+d/2,y),  (x+d/4,y+d)  nuqtalarga 

joylashirishlari  kerak.  Proseduraga  a  va  n  parametrlardan  tashqari  x  va  y  ning  qo‘shimcha 

parametrlari bo‘lishi kerak – chunki ularning qiymatlari har bir chaqiruv uchun o‘ziniki bo‘ladi. 

Prosedura 3.7 -listingda keltirilgan. 

3.7 –listing. “Odatiy” grafika yordamida Serpinning uchburchagining tuzish dasturi