Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Futbolist12
4 / 4 / 0
Регистрация: 10.02.2010
Сообщений: 87
#1

Движущаяся окружность - QBasic

29.03.2011, 13:07. Просмотров 1270. Ответов 8
Метки нет (Все метки)

Сделать окружность радиусом 5 пикселей, движущуюся слева направо по экрану. Режим screen12.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2011, 13:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Движущаяся окружность (QBasic):

Движущаяся фигура
Как сделать движущиюся фигуру в qbasic с помощью пустого цикла в цикле x...

Движущаяся стрелка (графика)
Дана стрелка слева направо, нужно чтобы она двигалась в том же направлении...

Как сформировать движущуюся окружность радиуса r, центр которой описывает окружность радиуса r1
Помогите!!! Сформировать движущуюся окружность радиуса r, центр которой...

Уменьшающаяся окружность
нарисовать окружность, и чтобы ее радиус уменьшался Добавлено через 1 минуту...

Сформировать движущуюся окружность
Доброго времени суток! Помогите решить задачку... Сформировать движущуюся...

Сформировать движущуюся окружность радиуса r
Сформировать движущуюся окружность радиуса r, центр которой перемещается...

8
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
29.03.2011, 16:09 #2
а дальше что с этой окружностью делать, после того как она дошла до края?
0
Futbolist12
4 / 4 / 0
Регистрация: 10.02.2010
Сообщений: 87
29.03.2011, 16:29  [ТС] #3
Если честно, то в задании по этому поводу ничего не написано. Ну я так думаю, что она просто должна уходить за экран.
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
29.03.2011, 16:32 #4
остановиться должна у края экрана. по крайней мере, обычно такие задания дают.
0
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
29.03.2011, 16:34 #5
PureBasic
1
2
3
4
5
6
7
8
CLS
SCREEN 12
FOR i = 1 TO 629
    CLS
    CIRCLE (5 + i, 10), 5, , , , 1
    FOR n = 1 TO 1500000
    NEXT
NEXT
1
Futbolist12
4 / 4 / 0
Регистрация: 10.02.2010
Сообщений: 87
29.03.2011, 16:39  [ТС] #6
-immortal-, Спасибо) а как изменить скорость её перемещения?
0
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
29.03.2011, 16:47 #7
PureBasic
1
FOR n = 1 TO 1500000
в этой строке меняй число циклов.

например:
PureBasic
1
FOR n = 1 TO 900000
чем меньше, тем быстрее
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
29.03.2011, 16:53 #8
-immortal-,
лучше вместо cls писать
CIRCLE (5 + i, 10), 5 ,0
0
Futbolist12
4 / 4 / 0
Регистрация: 10.02.2010
Сообщений: 87
29.03.2011, 17:28  [ТС] #9
-immortal-, ага, спасибо)
0
29.03.2011, 17:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2011, 17:28
Привет! Вот еще темы с решениями:

Построить окружность с любым радиусом
Помогите пожалуйста построить окружность в qbasic. Неважен какой размер круга.

Какие точки попадут в окружность
Задаём кол-во точек. Вводим их координаты. Вводим радиус окружности R и...

Найти площадь квадрата, вписанного в окружность
Ребят, помогите с задачкой. Окружность вписана в квадрат заданной площади....

Построить равнобедренный треугольник, вписанный в окружность
Надо построить равнобедренный треугольник симметричный относительно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru