IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Графика. Двужущаяся точка., Точка совершает колебания
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Помогите с графикой! Нужно изобразить точку, совершающую независимые гармонические колебания с частотой w1 по горизонтали и с частотой w2 по вертикали. (амплитуда тех и других колебаний равна а). Считать, что в момент времени t точка имеет координаты x=a cos w1(t-t1) y=a cos w2(t-t2); t1 и t2 даны. Предусмотреть возможность управления с клавиатуры значениями w1 и w2.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


Цитата(Lapp @ 29.12.2007 7:24) *

Чужак, не фантазируй, про плоскости никто ничего не говорил. Точка колеблется вдоль горизонтальной оси (скажем, Х) и вертикальной оси (скажем, Y). Иначе говоря:
x=a cos w1(t-t1)
y=a cos w2(t-t2)
- как сказано в условии.

Я это и имел в виду. Слово "плоскость" не вполне уместна...
Цитата(Lapp @ 29.12.2007 7:24) *

Если ты оформишь их как функции:
function Xs(x:real):integer;
begin
Xs:=(x-x1)/(x2-x1)*GetMaxX
end;

(и аналогично для Ys; здесь х1 - левая граница экрана, а х2 - правая, например х1=-а и х2=а)

Нужны ли сдесь функции?
Цитата(Accer @ 29.12.2007 5:27) *

А можно увидеть пример с простым движением точки туда обратно smile.gif

Можно, увидишь... cool.gif
Я тут делаю программу, которая условно называется
"визуализатор синусоид". (В программе использован фрагмент кода volvo,
помещенный на форуме-линия вращалась в круге).

program VisualSinusoid;
Uses Crt, Graph;
Const r = 80;
Label 1;
Var gd, gm: Integer; t,X,Y: Real;
Begin
InitGraph(gd,gm,''); t:=0;
1: X:=280;
SetColor(15);
Circle(120,240,r);
SetColor(2);
Line(120, 240, Round(120+r*cos(t)), Round(240+r*sin(t)));
Line(Round(120+r*cos(t)), Round(240+r*sin(t)),
280, Round(240+r*sin(t)) );
X:=X+1; Y:=240+r*sin(t);
PutPixel(Round(X), Round(Y), 11);
Delay(300);
SetColor(0);
Line(120, 240, Round(120+r*cos(t)), Round(240+r*sin(t)));
Line(Round(120+r*cos(t)), Round(240+r*sin(t)),
280, Round(240+r*sin(t)));
t:=t+0.05;
if X>600 then begin ClearDevice; goto 1; end
until KeyPressed;
CloseGraph
End.



--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Чужак @ 29.12.2007 22:11) *

Нужны ли сдесь функции?

Функции здесь не обязательны, но в высшей степени полезны с точки зрения логики. Очень правильно разделять экранные координаты и абстрактные (математические). Функции служат именно этой цели. Новички, как правило, работают непосредственно в экранных координатах, подстраивая свою задачу под них. В маленьких прогах это допустимо, но в больших приведет к проблемам.
Более того, во многих случаях удобно ввести еще один уровень..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Accer   Графика. Двужущаяся точка.   28.12.2007 10:09
Lapp   Что именно не получается с графикой? Рисуешь точк…   28.12.2007 10:44
Accer   В графике ноль. Точку могу с трудом нарисовать.   28.12.2007 11:23
andriano   Точку могу с трудом нарисовать.Судя по условию, им…   28.12.2007 13:18
Accer   Я не понимаю алгоритм работы этой программы!…   28.12.2007 20:24
Ozzя   Абсолютно верно! Алгоритм понят.   28.12.2007 22:38
Accer   :) а как задать связать с формулой???   28.12.2007 23:36
andriano   Связать что с чем? Небольшое уточнение в алгоритм…   28.12.2007 23:41
Accer   :wacko: :wacko: :wacko:   29.12.2007 0:51
Чужак   Что-то недополнял задание. Точка должна колебаться…   29.12.2007 2:02
Lapp   Точка должна колебаться либо в вертикальной, либо …   29.12.2007 11:24
Accer   А можно увидеть пример с простым движением точки т…   29.12.2007 9:27
Accer   Спасибо, я попоробую сделать   29.12.2007 12:01
Чужак   [b]Чужак, не фантазируй, про плоскости никто ниче…   30.12.2007 2:11
Lapp   Нужны ли сдесь функции? Функции здесь не обязате…   30.12.2007 3:51
Accer   Компилятор не может найти Graph.tpu!!…   30.12.2007 21:11
Client   Скопируй из папки Units файлы Graph.Tpu в папку BI…   30.12.2007 21:24
Accer   GRAPH3.TPU был, его скопировал, не работает   30.12.2007 21:35
Client   А сама прога там же (в BIN)? А остальные тож скопи…   30.12.2007 21:47
Accer   ЕГО НЕТ :blink:   30.12.2007 21:52
andriano   В посте #3 ты писал, что точку нарисовать можешь. …   30.12.2007 22:09
Accer   А как узнать   30.12.2007 22:10
andriano   Спросить   30.12.2007 22:40
Accer   :) , Но как узнать какой компилятор?   30.12.2007 22:41
Lapp   как узнать какой компилятор? Нажми Help -> Ab…   30.12.2007 22:56
Accer   Turbo Pascal Version 7.0   31.12.2007 0:20
andriano   Turbo Pascal Version 7.0 GRAPH.TPU должен быть в…   31.12.2007 0:29
Accer   А что делать? Как его дополнить?   1.01.2008 18:46
volvo   Забрать файл вот отсюда: Проблема с подключением …   2.01.2008 13:26
Гость   А где можно скачать полную версию?   2.01.2008 13:41
volvo   Полную версию ЧЕГО? TP 7 - это коммерческий компил…   2.01.2008 14:27
Гость   :blink:   2.01.2008 15:03
Feagor   fpc вроде же не коммерческий, поэтому можна дам сс…   2.01.2008 22:49


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 14:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name