B. J. Boltayev, A. R. Azamatov, G. A. Azamatova, B. S. Xurramov nazariya, algoritm, dastur toshkent 2013


a= 100  To`rtburchakni chap yuqori qirrasi koordinatalarini kiriting


Download 372.89 Kb.
bet67/68
Sana02.11.2023
Hajmi372.89 Kb.
#1740971
1   ...   60   61   62   63   64   65   66   67   68
Bog'liq
Algoritmlash va dasturlash asoslari seriyasidan Kitob – II b. J.-fayllar.org

a= 100 
To`rtburchakni chap yuqori qirrasi koordinatalarini kiriting: 
b= 80 
x= 100 
y= 80 




117
Indeks:=Getpixel(x0+abs(320-x),y0+abs(240-y));


Closegraph; Writeln(a[indeks]); readln;
End.

176*. Berilgan (X0,Y0) butun koordinatali nuqtani markazi butun koordinatali


(X,Y) nuqtadagi XR va YR radiuslari butun qiymatli bo‘lgan ellipsga tegishli yoki
tegishli emasligini aniqlovchi dastur tuzing.
177*. Berilgan (X0,Y0) butun koordinatali nuqtani yuqori chap uchi butun
koordinatali (X,Y) nuqtada va tomonlari koordinata o‘qlariga parallel, uzunligi
esa natural sonli qiymatli A bo‘lgan kvadratga tegishli yoki tegishli emasligini
aniqlovchi dastur tuzing.
178*. Berilgan (X0,Y0) butun koordinatali nuqtani yuqori chap uchi butun
koordinatali (X,Y) nuqtada va tomonlari tomonlari koordinata o‘qlariga parallel,
uzunliklari, mos ravishda, natural sonli qiymatli A va B bo‘lgan to‘g‘ri
to‘rtburchakka tegishli yoki tegishli emasligini aniqlovchi dastur tuzing.
179*. Berilgan (X0,Y0) butun koordinatali nuqtani uchlari butun koordinatali
(X1,Y1), (X2,Y2), (X3,Y3), (X4,Y4) nuqtalarda bo‘lgan to‘rtburchakka tegishli
yoki tegishli emasligini aniqlovchi dastur tuzing.
180*. Ekranda 7 marta yonib-o‘chadigan aylana chizing.

Yechim:
Barchaning hayoliga masala yechimi quyidagicha tashkil etilishi keladi: Cir-


cle(X,Y,R) yordamida aylana chizib keyin (masalan, ClearDevice yordamida)
o‘chirish ko‘rsatmalari 7 marta takroran yoziladi. Yechim soddadek ko‘ringani
bilan quyidagi sabab yechimni kamchiligini ko‘rsatadi: Paskal dasturi juda katta
tezlikda ko‘rsatmalarni bajaradi va shuning uchun aylananing yonib-o‘chishini
ko‘rishga ulgurilmaydi. Bu kamchilikni tuzatish uchun turli imkoniyatlar bor
bo‘lib, ulardan biri Delay(N) protsedurasidan foydalanishdir.
Paskal dasturlash tilida dasturni biror qismida vaqtni sekinlashtirish uchun
Crt moduliga tegishli Delay(N) protsedurasi (N word turida) ishlatiladi. De-
lay(N) protsedurasi yozilgan joyda dastur N millisekund vaqt o‘tguncha kutib
turadi.
Agar dastur tezligi kattaligi sezilsa Delay(N) protsedurasidan bir necha marta
kema-ket foydalanib kutish vaqtini cho‘zish mumkin. Dasturda aks etayotgan
aylana sanog‘ini bildirish uchun quyidagi dasturda OutTexXY(316,236,Sanoq)
protsedurasidan foydalanildi.
Dasturda
Download 372.89 Kb.

Do'stlaringiz bilan baham:
1   ...   60   61   62   63   64   65   66   67   68




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