O’rta maxsus

Download 2,24 Mb. bet 53/54 Sana 30.04.2022 Hajmi 2,24 Mb. #597939

Bog'liq
paskal dt dars

Bu sahifa navigatsiya:

• Circle
• ClearDevice;

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


175*. Berilgan (X0,Y0) butun koordinatali nuqtani markazi butun koordinatali (X,Y) nuqtadagi R butun qiymatli radiusli doiraga tegishli yoki tegishli emasligini aniqlovchi dastur tuzing.

Yechim: Masala yechimi chiziqli tuzilma ko‘rinishida tashkil etilishi anchagina qiziqarli. Buning uchun Paskal dasturining va undagi miqdorlarning xususiyatlarini tasavvur eta olish kerak. Berilgan qiymatlarning barchasi butun bo‘lgani uchun grafika imkoniyatidan foydalanamiz. Masala yechimi asosan 3 ta xususiyat asosida tashkil etiladi: ixtiyoriy nuqtalar to‘plamini ekran markaziga parallel ko‘chirishda birbiriga nisbatan joylashishi o‘zgarmasligi; grafik ekrandagi ixtiyoriy nuqtani rangini GetPixel(X,Y) protsedurasi yordamida aniqlash; rang qiymatlari va javobni massiv yordamida bog‘lanishi.

Dasturi: Uses graph; Var gd,gm,X,Y,X0,Y0,R: integer;indeks:byte; a:array[0..1] of string; Begin a[0]:='Yotmaydi!!!'; a[1]:='Yotadi!!!'; Write('R= '); ReadLn(R); Write('X= '); ReadLn(X); Write('Y= '); ReadLn(Y); Write('X0= '); ReadLn(X0); Write('Y0= '); ReadLn(Y0); Gd:=0; Initgraph(Gd, Gm,''); Setbkcolor(0); Setcolor(1); Setfillstyle(1,1); Fillellipse(x+abs(320-x),y+abs(240-y),R,R);

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: Circle(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. Delay(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 ClearDevice; protsedurasini Setcolor(14); Circle(320,240,100); OuttextXY(316,236,Sanoq); Setcolor(4); protseduralar guruhi bilan almashtirilishi mumkin.

Dasturi: Uses graph,crt; Var gd,gm: integer; Begin gd:=0; Initgraph(Gd, Gm,''); Setbkcolor(14); Setcolor(4);

Delay(65000); Delay(65000); Delay(65000); Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'1'); Delay(65000); Delay(65000);
Delay(65000);Delay(65000);Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000);Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'2');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'3');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'4');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'5');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'6');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Circle(320,240,100);OuttextXY(316,236,'7');
Delay(65000); Delay(65000); Delay(65000); ClearDevice;
OuttextXY(300,236,'TAMOM');
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000);
Delay(65000); Delay(65000); Delay(65000);Delay(65000); Delay(65000); Closegraph; End.
181*. Svetofor chiroqlarini qizil, sariq, yashil ketma-ketlikda yondiradigan dastur tuzing (yo‘llanma: avvalgi masala yechimidan foydalaning).

Download 2,24 Mb.

Do'stlaringiz bilan baham: