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
Do'stlaringiz bilan baham: