 Реализовать программу, строящую двумерное изображение заданной фигуры. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| GrukhvinEV |
 15.12.2011 10:25
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 21 Пол: Мужской Репутация:  0   |
Реализовать программу, строящую двумерное изображение заданной фигуры. Необходимо выполнить 2D преобразования и отобразить новое положение фигуры.
Эскизы прикрепленных изображений 
|
   |
 
|
  |
Ответов
| TarasBer |
19.12.2011 9:39
Сообщение
#2
|
 Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
> Ошибка тут, верно будет вот так:
> x_нов := (x-y)/sqrt(2) > y_нов := (x+y)/(sqrt(2) А, ну может быть, это тоже поворот на 45, но в другую сторону. > И относительно оси икс надо менять y на -y А, ну да. Я прочитал как "вдоль оси икс". gm:=0 тоже проинициализируй > Figura(xc,yc,100,100,80,3,0,15); {Начальное положение фигуры} Тут привязка к фиксированному разрешению, лучше пересчитать через GetMaxX, GetMaxY -------------------- |
|
|
|
Сообщений в этой теме
GrukhvinEV Реализовать программу, строящую двумерное изображение заданной фигуры. 15.12.2011 10:25
TarasBer Задаёшь массив из 8 точек.
Для поворота на 45 град... 15.12.2011 10:33
GrukhvinEV
Задаёшь массив из 8 точек.
Для поворота на 45 гра... 18.12.2011 7:04 GrukhvinEV Спасибо! Да мне бы всю картину решения задачи ... 15.12.2011 10:57 TarasBer
uses Graph;
var
gd,gm: integer;
begin
gd:=0; ... 15.12.2011 12:11 GrukhvinEV Угу вот за это спасибо! Щас время нет, но завт... 15.12.2011 12:18 IUnknown Да, при использовании FPC это нормально. Его модул... 15.12.2011 12:53 GrukhvinEV Спасибо. Посдскажите пожалуйста изменить положение... 16.12.2011 10:03 TarasBer x переводишь в GetMaxX div 2+x
y переводишь в GetM... 16.12.2011 10:17 GrukhvinEV Наверно даже надо писать за место y GetMaxY/2-y, а... 16.12.2011 10:22 TarasBer > Наверно даже надо писать за место y GetMaxY/2... 16.12.2011 10:40 GrukhvinEV А точно, извини просто уже крыша едет от pascala =... 16.12.2011 12:15 TarasBer Да не, всё чётко.
Кроме того, что вместо
t:=0;
wh... 16.12.2011 14:03 IUnknown Есть, DrawPoly называется, в справке есть пример е... 16.12.2011 14:41 GrukhvinEV Вот, мб кому пригодится!
Program Zadanie_2; {И... 19.12.2011 6:46 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 2:39 |