6.1 . GRAPH.TPU , .. InitGraph.
, GRAPH . , , (., , .5.2.1).
. , 1 R=60, 50 . , , Y.
, , :
x:=0;
while x<=650 do
begin
y:=0;
while y<=500 do
begin
circle(x,y,60);
y:=y+50;
end;
x:=x+50;
end;
, .
6.2 (, k), 1 15. , .
. . , . , , :
k:=1;
x:=0;
while x<=650 do
begin
y:=0;
while y<=500 do
begin
setcolor(k);
k:=k+1;
if k>15 then k:=1;
for r:=1 to 60 do
circle(x,y,r);
y:=y+50;
end;
x:=x+50;
end;
6.3 . mod, . k , k mod 2 0 1, .
3 :
|
|
|
y:=0;
k:=0;
while y<=500 do
begin
k:=k+1;
setcolor(k mod 2);
1) ?
2) ?
3) 7.0?
4) ? ?
5) ?
6) ? ?
7) 640480 . , , , ?
8) 7.0? .
9) ?
10) ?
11) (, , ). .
12) ? - .
13) ?
1. . / . ... : . 2001. .401-407, 611-616.
2. .., .., .. : . .: -. 1999. .233, 244-245.
3. .. . .: - . 1992. 304 .
,
dx X,
dy Y,
R
| dx | dy | R | |||
1 ,
2 . 15 7.0 1(Blue) 15(White)
3 ,
|
|
|
