09.02.2011, 18:11 | #1 (permalink) |
Новичок
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Турбо-бейсик
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$="" |
09.02.2011, 18:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не стоит делать поспешных действий, полистайте аналогичные проблемы Турбо Паскаль Турбо Паскаль. |
10.02.2011, 19:45 | #4 (permalink) |
Member
Регистрация: 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$="" |
10.02.2011, 20:22 | #5 (permalink) | |
Новичок
Регистрация: 09.02.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.02.2011, 22:01 | #9 (permalink) |
Новичок
Регистрация: 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$="" |
30.03.2011, 19:28 | #10 (permalink) |
Новичок
Регистрация: 30.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите ребят срочно!!!
Не больно шарю На ТБ но над программу написать.. чет не совсем получаеться... если кто поможет буду очень благодарен. Вот само задание.
Движение по периметру экрана круга с заданным с клавиатуры радиусом.. и рандомным цветом чтоб еще мелькал... пишите пож на ящик |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|