1) .
, , ( ). , , , . , :
:
) ;
) ;
) , ;
) , () .
:
Y=240 FOR X=0 TO 640 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT X | (, ), , . | |
Y=240 FOR X=640 TO 0 STEP -1 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT X | (, ), ( ) | |
X=320 FOR Y=0 TO 480 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT Y | Y (, ), , . | |
X=320 FOR Y=480 TO 0 STEP -1 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT Y | Y (, ), ( ) | |
X=0 FOR Y=0 TO 480 STEP 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X+3 NEXT Y , X . | . , Y , , X . | |
X=640 FOR Y=480 TO 0 STEP -2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X-3 NEXT Y | . Y , ( , .. 0), X ( 0). | |
X=640 FOR Y=0 TO 480 STEP 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X-3 NEXT Y | . Y , , X ( ). | |
X=0 FOR Y=480 TO 0 STEP - 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X+3 NEXT Y | . Y , ( , .. 0), X ( ). |
:
|
|
, . . .
:
R.
(80,400) (320, 160), (560, 400) (80,400). . , . , . :
1. ;
2. =80;
3. 400 160 :
) ;
) ;
) ;
) +.
4. 160 400 :
) ;
) ;
) ;
) +.
5. 560 80 :
) ;
) ;
) .
:
CLS
INPUT R
X=80
FOR Y=400 TO 160 STEP -1
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
X=X+1
NEXT Y
FOR Y=160 TO 400
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
X=X+1
NEXT Y
FOR X=560 TO 80 STEP -1
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
NEXT Y
END