mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 22:45:39 +02:00
18 lines
528 B
Plaintext
18 lines
528 B
Plaintext
{\rtf1\ansi\ansicpg1254\deff0{\fonttbl{\f0\fnil\fcharset162 Tahoma;}}
|
||
\viewkind4\uc1\pard\lang1055\f0\fs16 var\par
|
||
a,x,y,z,rad: intger;\par
|
||
Begin\par
|
||
x := strtoint( inputbox('X of Center','','10')); \par
|
||
y := strtoint( inputbox('Y of Center','','10')); \par
|
||
z := strtoint( inputbox('Radius','','20')); \par
|
||
rad := z;\par
|
||
for a :=1 to (z div 3) do\par
|
||
begin\par
|
||
DrawCircle(0,x,y,rad,1,psSolid,clBlack,bsClear,0,True);\par
|
||
rad := rad - 2;\par
|
||
end;\par
|
||
\par
|
||
Refresh;\par
|
||
end.\par
|
||
}
|
||
|