помогите с графическим режимом в турбо бейсике

  • Автор темы D1em
  • Дата начала
D

D1em

#1
дали задание......чёт я его не догнал.......как то криво выходит, подскажите плиз...само задание на картинке __________.jpg

C++:
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$=""
 

Вложения