Образец материалов для подготовки преподавателей к лекции

Download 87.47 Kb.

1 2 3 4 5 6 7

Bog'liq
19-taqdimot

Circle(x,y:integer;r:word) ; - protsedurasi markazi ( x,y) va radiusi r –piksel bo‘lgan aylana chizish ishlatiladi. Bu protseduradan foydalanishda chiziq qalinligini parametr orqali o‘zgartirish mumkin, ammo chiziq shakli faqat uzluksiz chiziqdan iborat bo‘ladi.

Circle(x,y:integer;r:word) ; - protsedurasi markazi ( x,y) va radiusi r –piksel bo‘lgan aylana chizish ishlatiladi. Bu protseduradan foydalanishda chiziq qalinligini parametr orqali o‘zgartirish mumkin, ammo chiziq shakli faqat uzluksiz chiziqdan iborat bo‘ladi.
Masalan:
...
setlinestyle(1,0,3);
circle(50,50,45);
.....
Yuqoridagi protseduralar yordamida ekranda markaz koordinatalari va radiuslari tasodufiy qiymatga ega bo‘lgan 120 ta aylana chizish dasturini keltiramiz:
uses graph,crt;
var gd,gm, i:integer;
begin
gd:=detect;initgraph(gd,gm,'');
for i:=1 to 120 do
begin
setcolor(random(getmaxcolor));
circle(random(getmaxx),random(getmaxy),random(100));
end;
end.

Arc (x,y:integer;BegA,EndA,r:word) ; - protsedurasi markazi ( x,y) va radiusi r –piksel bo‘lgan aylana yoyining BegA va EndA burchaklariga mos keluvchi qismini chizish uchun shlatiladi. BegA va EndA graduslarda beriladi va soat mili yo‘nalishiga qarshi ravishda hisobga oldinadilar.
Masalan:
arc(200,200,90,180,35);
ellipse(x,y:integer; BegA, EndA, RX,Ryr:word) ; - protsedurasi markazi ( x,y) va gorizontal radiusi RX, vertikal radiusi Ry –piksel bo‘lgan ellips yoyining BegA va EndA burchaklariga mos keluvchi qismini chizish uchun shlatiladi.
Masalan:
ellipse(100,100,150,60,145,100);
SetFillStyle(fill,color:word);-protsedurasi biror sohani to‘ldirishning stili va rangini belgilayd i. To‘ldirish tipi uchun quyidagi kattaliklardan foydalaniladi:

Download 87.47 Kb.

Do'stlaringiz bilan baham:

1 2 3 4 5 6 7