Turbo бейсик

[D1em]

ребят, помогите, дали практическую......щас сижу, и не понимаю чё в ней делать.......задание на рисунке!!
пятиугольник сам должен двигаться задается только радиус
изображение касячное немного.....без разрывов нужно!!!

Безымянный.jpg


screen 12
input "DBu}|{eHue 5 yroJIbHuKa r=";r
do
if x<160 then
dx=x+10
end if
x=dx
y=dy
if x=160 then
dx=x
end if
if x=160 then
dy=y+10
end if
if y=240 then
dy=y
end if
if y=240 then
dx=x+10
end if
if x=320 then
dx=x
end if
if x=320 then
dy=y-10
end if
if x<320 then
dx=x+10
end if
x=dx
y=dy
if x=480 then
dx=x
end if
if x=480 then
dy=y+10
end if

a=(a/2)/sin(6.28/(5*2))
x1=x+R
y1=y
for al=0 to 6.28 step 6.28/5
line (x1,y1)-(x+R*cos(al),y+R*sin(al)),4
x1=x+R*cos(al)
y1=y+R*sin(al)
next al
delay 0.3
cls
loop while inkey$=""

[D1em]

чё, нет никого кто понимает в бейсике?(( оО