III. Paskalda ekranni grafik holatga o'tkazish mavzusiga oid dasturlar tuzish

1.Tomonlarini rangi turlicha bo'lgan to'g'ri to'rtburchak chizish protsedurasi dasturini tuzing.

2.Grafik koordinatasi bilan berilgan nuqta uchlarining grafik koordinatalari orqali berilgan to'g'ri chiziqqa tegishli yoki tegishli emasligini aniqlovchi dastur tuzing (yo'llanma: nuqtaning rangi to'g'ri chiziqning rangiga tengligini aniqlash uchun GetPixel funksiyasidan foydalaning).

3.Turli rangda 15 ta parallel kesmalar chizuvchi dastur tuzing (yo'llan­ma: kesma koordinatalarini va rangni oshirish uchun takrorlash operatoridan foydalaning).

Uses graph;

Var gd, gm, x,y,k,i: integer;

Begin Gd:=0;

Initgraph(gd,gm,’’); randomize;

repcat

x:=25*k*round(random(15));

y:= 20*k*round(random(15));

putpixel(x,y,i); end;

k:=k+1; until k>0;

readln; closgraph;

end.
5.Ekran markazidan o'tuvchi koordinalar o'qi, mos joyda koordinatalar o'qi nomini yozuvchi va x e [-7, 7] oraliqda y=\x\ funksiyasining grafigini chizuvchi dastur tuzing.

6*. Ichma-ich joylashgan 7 ta aylana chizuvchi dastur tuzing (yo'llanma: radiusni oshirish uchun takrorlash operatoridan foydalaning).

7*. 7 marta o'chib-yonadigan aylana chizuvchi dastur tuzing (yo'llanma: aylana chizing va jarayonni sekinlashtirish uchun bo'sh takrorlash bajaring, avvalgi aylanani fon rangida chizing va jarayonni sekinlashtirish uchun bo'sh takrorlash bajaring, takrorlashni 7 marta bajartiring).
Yangi mavzuni mustahkamlash.

5.Ekran markazidan o'tuvchi koordinalar o'qi, mos joyda koordinatalar o'qi nomini yozuvchi va x e [-7, 7] oraliqda y=\x\ funksiyasining grafigini chizuvchi dastur tuzing.

6*. Ichma-ich joylashgan 7 ta aylana chizuvchi dastur tuzing (yo'llanma: radiusni oshirish uchun takrorlash operatoridan foydalaning).

7*. 7 marta o'chib-yonadigan aylana chizuvchi dastur tuzing (yo'llanma: aylana chizing va jarayonni sekinlashtirish uchun bo'sh takrorlash bajaring, avvalgi aylanani fon rangida chizing va jarayonni sekinlashtirish uchun bo'sh takrorlash bajaring, takrorlashni 7 marta bajartiring).

Sinf :_______________