IPB

Здравствуйте, гость ( Вход | Регистрация )

> Задание на Pascal, Вопрос по литературе.
Элио
сообщение 19.10.2008, 17:24
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 3
Регистрация: 19.10.2008
Город: Москва
Вы: студент
Прошу прощения, что озаглавил тему, как "Задание на Pascal, Вопрос по литературе.". Тут уже далеко не о литературе =)
Доброго времени суток, друзья. Получил вот такое задание на выполнение:

Изобразить кривую R = a*cos(φ) + L.
Построение выполнить для a=L. Обеспечить вращение изображение в плоскости экрана против часовой стрелки с одновременным перемещением по средней горизонтали слева направо. Когда правый край экрана будет достигнут, появляются еще два изображения в верхнем и нижнем правых углах и перемещаются влево.

Как я понимаю, в выполнении этого задания мне понадобится знание Графики на Pascal. А такого у меня не имеется (изучение закончилось на динамической памяти). Теперь перехожу к вопросу. Какую литературу посоветуете? (IMG:style_emoticons/default/smile.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 Ответить в эту темуОткрыть новую тему
Ответов
Элио
сообщение 26.10.2008, 13:01
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 3
Регистрация: 19.10.2008
Город: Москва
Вы: студент
Хм, немножко разобрался с графикой, но всё-таки не до конца. Нарисовать фигуру (как я понял, это кардиоида) я смог, а вот сделать так, чтобы она вертелась и перемещалась что-то никак не могу. Вот мой текст программы, рисующий, кардиоиду:

Цитата
Program
Cardioida;
Uses
Crt, Graph;
Const
r=50;
Var
i:integer;
a,L:integer;
t:real;
Procedure Graphinterface;
Var
driver, mode:Integer;
Begin
driver:=detect;
Initgraph(driver,mode,'D:\tp7\BGI');
end;

Function x(t:real):real;
begin
x:=(L*cos(t)+a*cos(t)*cos(t));
end;

Function y(t:real):real;
begin
y:=(L*sin(t)+a*sin(t)*cos(t));
end;

Begin
t:=0; a:=2; L:=2;
Graphinterface;
repeat
putpixel(round(r*x(t)+31),round(r*y(t)+240),4);
t:=t+0.001;
until t>2*pi;
Readln;
CloseGraph;
End.

Долго пытался что-то изобразить, но так и не смог. Буду рад любым подсказкам в решении данной проблемы (IMG:style_emoticons/default/blush.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Сообщений в этой теме
Элио   Задание на Pascal   19.10.2008, 17:24
Inspektor   Выбирайте: Графика. От простого к сложному. График...   19.10.2008, 17:57
Элио   Огромное спасибо.   21.10.2008, 5:07
Элио   Хм, немножко разобрался с графикой, но всё-таки не...   26.10.2008, 13:01
crazymaster   Может быть вот так попробовать сделать. [x,y,1] - ...   27.10.2008, 6:39
creer   Я когда-то писал об этом в этой теме. Там небольшо...   27.10.2008, 18:21
Inspektor   для перемещения самое простое это после построения...   6.11.2008, 23:10
creer   Inspektor Поворота может быть и не было (в той тем...   8.11.2008, 12:21

« Предыдущая тема · Информатика / Программирование · Следующая тема »
 

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

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия Сейчас: 19.4.2026, 14:55
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board v2.1.7 © 2026  IPS, Inc.



Зеркало сайта Решебник.Ру - reshebnik.org.ru