Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.83
winterius
0 / 0 / 1
Регистрация: 13.05.2010
Сообщений: 28
#1

Движение закрашенного правильного шестиугольника с заданной с клавиатуры стороной по экрану - Pascal

13.05.2010, 01:08. Просмотров 1564. Ответов 5
Метки нет (Все метки)

Движение закрашенного правильного шестиугольника с заданной с клавиатуры стороной по экрану, заполненному сеткой из закрашенных в случайные цвета кругов, с помощью клавиш управления курсором. Шестиугольник за пределы экрана не должен выходить.
http://www.cyberforum.ru/pascal/thread1103774.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2010, 01:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Движение закрашенного правильного шестиугольника с заданной с клавиатуры стороной по экрану (Pascal):

Площадь правильного шестиугольника
Вычислить площадь правильного шестиугольника со стороной а, используя по...

Найти площадь «правильного» шестиугольника
Найти площадь «правильного» шестиугольника, стороны которого имеют длину a, b,...

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

Для правильного треугольника со стороной а построены вписанная и описанная окружности
Для правильного треугольника со стороной а построены вписанная и описанная...

Циклы: рисование правильного шестиугольника и пятиугольной звезды
Составьте программу (с использованием цикла ) рисования правильного...

5
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,302
13.05.2010, 07:42 #2
Цитата Сообщение от winterius Посмотреть сообщение
заполненному сеткой из закрашенных в случайные цвета кругов
А что за сетка, как она выглядит? Приложите картинку, что нужно.
0
winterius
0 / 0 / 1
Регистрация: 13.05.2010
Сообщений: 28
14.05.2010, 11:47  [ТС] #3
ну просто вместо черного фона будут нарисована сетка из кругов, которые закрашены в разные цвета. А по этой сетке должен двигаться шестиугольник, тоже закрашенный и он не должен выходить за края экрана.

Добавлено через 1 минуту
Просто на заднем фоне нарисовать круги и их покрасить в разные цвета.

Добавлено через 1 час 8 минут
Если все равно не понятно то я потом где-нибудь нарисую рисунок

Добавлено через 17 часов 56 минут
Ну понятно стало или нет?
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,302
14.05.2010, 11:53 #4
Цитата Сообщение от winterius Посмотреть сообщение
Ну понятно стало или нет?
Если это ты мне, то непонятно. Что есть сетка? Тебе не то что программу лень написать, тебе рисунок лень нарисовать и приложить, так что удачи тебе!

Добавлено через 1 минуту
А тон подобный воспринимаю как оскорбление, после чего все подобное хамло у меня в игноре.
0
Андрей Борисови
708 / 396 / 33
Регистрация: 04.10.2009
Сообщений: 1,687
14.05.2010, 12:25 #5
это тело будет передвигаться ооочень медленно и со страшным морганием, т.к. будет постоянно перерисовываться...

Добавлено через 15 минут
вам надо
завести переменные X и Y
и рисовать все фигуры уже относительно них
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Пример шестиугольника (неправильный - на гроб похож)
Procedure VivodFig(x,y:integer);
begin
// стираем место шестиугольника закрашенным прямоугольником, т.е. ресуем чорный закрашенный прямоугольник
setcolor(0);
rectangle(x-22,y-2,x+22,y+72);
Floofill(x,y); // как закрашивать - не помню (гляньте в справке)
setcolor(15);
MoveTo(x,y);
LineTo(x+20,y+20);
LineTo(x+20,y+50);
LineTo(x,y+70);
LineTo(x-20,y+50);
LineTo(x-20,y+20);
LineTo(x,y);
// Круги в него
Ellipce(x-10,y+10,x+10,y+20);
// и т.д.
end;
Управление.
Точно не помню как опросить клавиши управления курсором. Поглядите по др. темам форума.
Pascal
1
2
3
4
5
6
7
8
9
10
x:=100;
y:=100;
while пока не нажата клавиша ESC do
begin
if нажата стрелка вправо then x:=x+10;
if нажата стрелка влево then x:=x-10;
if нажата стрелка вниз then y:=y+10;
if нажата стрелка вверх then y:=y-10;
VivodFig(x,y);
end;
1
winterius
0 / 0 / 1
Регистрация: 13.05.2010
Сообщений: 28
14.05.2010, 22:03  [ТС] #6
Спс проверю в понедельник. И еще для модератора, а никому не хамил, просто написал не удачно
0
14.05.2010, 22:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2010, 22:03
Привет! Вот еще темы с решениями:

Движение закрашенного правильного пятиугольника по экрану
Движение закрашенного правильного пятиугольника с заданной с клавиатуры...

Движение закрашенного эллипса с заданными с клавиатуры радиусами по экрану
Движение закрашенного эллипса с заданными с клавиатуры радиусами по экрану,...

Вычислить площадь правильного шестиугольника со стороной а
4)Вычислить площадь правильного шестиугольника со стороной а, используя...

Вычислить площадь правильного шестиугольника со стороной а
Вычислить площадь правильного шестиугольника со стороной а, используя...


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

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

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