188
until KeyPressed;
if ReadKey=#0 then k:=ord(ReadKey); CloseGraph
end
end.
Көпбұрыштар
Rectangle процедурасы. Бұрыштарының координатасы бой-ынша тікбұрыш салпды. Процедура тақырыбы:
Procedure Rectangle(X1,Y1,X2,Y2: Integer);
мұндағы X1... Y2 – тікбұрыштың сол жақ жоғарғы бұрышының (X1, Y1) жəне оң жақ төменгі бұрышының координатасы (Х2, Y2). Тікбұрыш ағымдағы түс жəне түзу стилімен салынады.
Келесі мысалда экранда бірінің ішіне бірі кірістірілген 10 тікбұрыш салынады.
Uses Graph, CRT;
var
d,r,e,xl,yl, x2,y2,dx,dy: Integer; begin
{Графиканы іске қосамыз} d:=Detect; InitGraph(d, r, ‘ ‘); e:=GraphResult;
if e <> grOK then WriteLn(GraphErrorMsg(e))
else
begin
{Жақтаулардың өсімшесін анықтаймыз} dx:=GetMaxX div 20; dy:=GetMaxY div 20;
{Кіріктірілген тікбұрыштар саламыз}
for d:=0 to 9 do
Rectangle(d*dx,d*dy,GetMaxX-d*dx,GetMaxY-d*dy);
if ReadKey=#0 then d:=ord(ReadKey); CloseGraph
end
end.
|
