Турбо-бейсик

[Di-em]

Турбо-бейсик

ребят....помогите с заданием...я начал делать но криво работает..хелп


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$=""

 

[Di-em]

фигура сама должна двигаться...вводить только радиус)

 

[Di-em]

чё, ниодного программиста на TB?((

 

[Ultras]

Может, как-то так?
screen 12
input "DBu}|{eHue 5 yroJIbHuKa r=";r
z=0
y=r
x=r
dy=0
dx=10
do
z=z+10
if z=80 then
dy=10
dx=0
end if
if z=160 then
dy=0
dx=10
end if
if z=240 then
dx=0
dy=-10
end if
if z=320 then
dx=10
dy=0
end if
if z=400 then
dx=0
dy=10
end if
if z=480 then end

y=y+dy
x=x+dx
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$=""

 

[Di-em]

Может, как-то так?
screen 12
input "DBu}|{eHue 5 yroJIbHuKa r=";r
z=0
y=r
x=r
dy=0
dx=10
do
z=z+10
if z=80 then
dy=10
dx=0
end if
if z=160 then
dy=0
dx=10
end if
if z=240 then
dx=0
dy=-10
end if
if z=320 then
dx=10
dy=0
end if
if z=400 then
dx=0
dy=10
end if
if z=480 then end

y=y+dy
x=x+dx
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$=""

мда.....сменил операционку тер в бейсике графический режим не запускает...никто не знает почиму?

 

[kreol]

на какую сменил? бэйсик работает из консоля? если у тебя семерка то там с этим беда...

 

[Ultras]

если у тебя семерка то там с этим беда

Не беда. Через DosBox.

 

[Di-em]

Не беда. Через DosBox.

с xp на xp и сменил...ток хз теперь пачиму не робит(.....кто сможет проверьте код

 

[Di-em]

Ultras

изменил немного твою прогу.....теперь робатает как нужно спс


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

y=y+dy
x=x+dx
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$=""

 

[Иван Грозный19]

Помогите ребят срочно!!!

Не больно шарю На ТБ но над программу написать.. чет не совсем получаеться... если кто поможет буду очень благодарен. Вот само задание.
Движение по периметру экрана круга с заданным с клавиатуры радиусом.. и рандомным цветом чтоб еще мелькал... пишите пож на ящик