if ReadKey=#0 then d:=ord(ReadKey); CloseGraph
end
end.
PieSlice процедурасы дөңгелек секторын салып, оның ішін бояйды. Тақырыбы:
Procedure PieSlice(X,Y: Integer; BegA,EndA,R: Word);
Sector процедурасынан ерекшелігі тек бір көлденең ради-ус Rкөрсетіледі, қалған параметрлер Sector процедурасының параметрлеріне сəйкес. Сектор SetLineStyle жəне SetColor процедураларында көр-сетілген сызықпен сызылады да, SetFillStyle процедурасында орнатылған параметрлер бойынша боялады. Процедураны дөң-гелек диаграмма салғанда қолданған ыңғайлы, мысалы, келесі программадағыдай (7.10-сурет).
7.10-сурет.PieSlice процедурасының көрінісі
uses Graph, CRT;
var
d,r,e: Integer;
begin
{Графиканы іске қосамыз} d := Detect; InitGraph(d, r, ‘’); e := GraphResult;
15–1618 217
if e <> grOk then WriteLn(GraphErrorMsg(e))
else
begin
{Кішкене сектор саламыз} SetFillStyle(WideDotFill, White); PieSlice(GetMaxX div 2+5,GetMaxY div
2+4,270,360,100);
{ Үлкен сектор саламыз } SetFillStyle (SolidFill, Red); PieSlice (GetMaxX div 2,GetMaxY div
2, 0,270,100).;
{Жазулар шығарамыз}
OutTextXY (GetMaxX div 2+90,GetMaxY div 2+70, ‘25%’);
OutTextXY(GetMaxX div 2-50,GetMaxY div 2-20, ‘75%’);
{Кез келген перненің басылуын
күтеміз}
if ReadKey=#0 then d := ord(ReadKey); CloseGraph
end
end.
