Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.83
winterius
0 / 0 / 0
Регистрация: 13.05.2010
Сообщений: 28
#1

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

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

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

вычислить площадь правильного шестиугольника со стороной - Pascal
вычислить площадь правильного шестиугольника со стороной

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

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

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

Для правильного треугольника со стороной а построены вписанная и описанная окружности - Pascal
Для правильного треугольника со стороной а построены вписанная и описанная окружности. Найти площадь образовавшегося кольца, используя...

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

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

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

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

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

Добавлено через 1 минуту
А тон подобный воспринимаю как оскорбление, после чего все подобное хамло у меня в игноре.
0
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,683
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Движение закрашенного правильного пятиугольника по экрану - Free Pascal
Движение закрашенного правильного пятиугольника с заданной с клавиатуры стороной по экрану, заполненному сеткой из закрашенных в случайные...

Движение закрашенного эллипса с заданными с клавиатуры радиусами по экрану - Turbo Pascal
Движение закрашенного эллипса с заданными с клавиатуры радиусами по экрану, заполненному сеткой из закрашенных в случайные цвета...

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

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


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

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

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