Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 09.02.2011, 18:11   #1 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Турбо-бейсик

ребят....помогите с заданием...я начал делать но криво работает..хелп
aacuiyiiue.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$=""
Di-em вне форума   Ответить с цитированием

Старый 09.02.2011, 18:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Не стоит делать поспешных действий, полистайте аналогичные проблемы

Турбо Паскаль
Турбо Паскаль.

Старый 09.02.2011, 18:11   #2 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

фигура сама должна двигаться...вводить только радиус)
Di-em вне форума   Ответить с цитированием
Старый 10.02.2011, 19:01   #3 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

чё, ниодного программиста на TB?((
Di-em вне форума   Ответить с цитированием
Старый 10.02.2011, 19:45   #4 (permalink)
Ultras
Member
 
Аватар для Ultras
 
Регистрация: 17.05.2010
Адрес: Казань
Сообщений: 6,044
Записей в дневнике: 13
Сказал(а) спасибо: 42
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 30182
По умолчанию

Может, как-то так?
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$=""
Ultras вне форума   Ответить с цитированием
Старый 10.02.2011, 20:22   #5 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 10.02.2011, 21:01   #6 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

на какую сменил? бэйсик работает из консоля? если у тебя семерка то там с этим беда...
kreol вне форума   Ответить с цитированием
Старый 10.02.2011, 21:24   #7 (permalink)
Ultras
Member
 
Аватар для Ultras
 
Регистрация: 17.05.2010
Адрес: Казань
Сообщений: 6,044
Записей в дневнике: 13
Сказал(а) спасибо: 42
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 30182
По умолчанию

Цитата:
если у тебя семерка то там с этим беда
Не беда. Через DosBox.
Ultras вне форума   Ответить с цитированием
Старый 10.02.2011, 21:27   #8 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Ultras Посмотреть сообщение
Не беда. Через DosBox.
с xp на xp и сменил...ток хз теперь пачиму не робит(.....кто сможет проверьте код
Di-em вне форума   Ответить с цитированием
Старый 10.02.2011, 22:01   #9 (permalink)
Di-em
Новичок
 
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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$=""
Di-em вне форума   Ответить с цитированием
Старый 30.03.2011, 19:28   #10 (permalink)
Иван Грозный19
Новичок
 
Регистрация: 30.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Помогите ребят срочно!!!

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 07:47.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.