Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет110/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   106   107   108   109   110   111   112   113   ...   210
Байланысты:
boribaev-algoritmdeu

Доғалар, дөңгелектер, эллипстер
Circle процедурасы дөңгелек сызады. Тақырыбы:
Procedure Circle(X,Y: Integer;R: Word);
мұндағы X, Y – центрдің координатасы; R – пикселмен берілген радиус.
Дөңгелек ағымдағы түспен сызылады. Сызықтың қалыңды-ғы ағымдағы стилмен анықталады, ал түрі əрқашан SolidLn (бір-келкі) болып келеді. Процедура, радиустың графикалық экран жақтауларына бағытталуына байланысты сызықтық көлемінің өзгеруін, демек, GetAspectRatio коэффициентін есепке ала оты-рып, дұрыс дөңгелек сызады. Сондықтан R параметрі көлденең бағыттағы пикселдер санын анықтайды.
Келесі мысалда экран ортасында терезе салынып, ол біртіндеп кездейсоқ дөңгелектермен толтырылады. Программадан шығу үшін кез келген пернеге басыңыз.
Uses Graph, CRT;
var
d,r,e,x,y: Integer;
begin.
{Графиканы іске қосамыз} d:=Detect;InitGraph(d,r,’’); e:=GraphResult;
if e <> grOK then WriteLn(GraphErrorMsg(e))
else
begin
{Экран ортасында терезе саламыз} х:=GetMaxX div 4;


192

у:=GetMaxY div 4; Rectangle(х,у,3*х,3*у); SetViewPort(x+1,y+1,3*x-1,3*y-
1,ClipOn);
{кездейсоқ дөңгелектер сызу циклы} repeat
SetColor(succ(Random(white)));{Кездейсоқ
түс}
SetLineStyle(0,0,2*Random(2)+1);{жəне сызық стилі}
х:=Random(GetMaxX);{Кездейсоқ орналасу} у:=Random(GetMaxY);{Дөңгелек центрі}
Circle(х,у,Random(GetMaxY div 4)); until KeyPressed;
if ReadKey=#0 then x:=ord(ReadKey); CloseGraph
end
end.



Достарыңызбен бөлісу:
1   ...   106   107   108   109   110   111   112   113   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет