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

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

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

> графика, вращение отрезка вокруг одного из своих концов
сообщение
Сообщение #1





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

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


Надо составить программу, изображающую в центре экрана отрезок длины L, вращающийся вокруг одного из своих концов. То есть получается что один конец отрезка - в центре окружности. А другой конец - скользит по этой окружности.
Вот, написала чото. Но почему-то в двух местах конец отрезка не плавно перемещается по окружности а "перепрыгивает" через кучу точек ! blink.gif
Посмотрите пожалуйста :

Program rotation;
Uses
Crt,
Graph;
Var
L,x,y:Integer;
Gd,Gm:Integer;
Begin
Clrscr;
Write('Длина отрезка-->');
Readln(L);
DetectGraph(Gd,Gm);
InitGraph(Gd,Gm,'C:\PROGRA~1\TUBOPA~1\BP\BGI');
ClearDevice;
SetLineStyle(0,0,3);
Repeat
For x:=320-L To 320+L Do
Begin
ClearDevice;
y:=Trunc(sqrt(sqr(L)-sqr(x-320))+240);
Line(320,240,x,y);
Delay(5);
End;
For x:=320+L Downto 320-L Do
Begin
ClearDevice;
y:=Trunc(240-sqrt(sqr(L)-sqr(x-320)));
Line(320,240,x,y);
Delay(5);
End;
Until keypressed;
Readln;
CloseGraph;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 1)
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


1) попробуй увеличить задержки
2) почитай вот это Круговое движение прямой


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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