Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите новичку


Сепрюк ©   (2002-09-09 20:40:00) 

Здравствуйте! У меня вопрос! Подскажите, как мне сделать на , чтобы линия врашалась как маятник, подскажите какой формулой вычеслять координаты. Ну очень уж надо. За ранее всем спасибо!


Озверевший кадастрат   (2002-09-09 22:52:00) [1]

Потому как в радианы перевести надо.


Guzz   (2002-09-09 21:13:00) [2]

Так всегда было и так всегда будет...
Незнаю точно почему, но еще в школе эту формулу именно так выводили


Сепрюк   (2002-09-09 21:09:00) [3]

И еще!
Объясните, только подробно поочему
синус(a*pi/180) - Почему именнго так!
За ранее всем спасибо!


Сепрюк   (2002-09-09 20:53:00) [4]

Большое спасибо!!!!


Shrek   (2002-09-09 20:50:00) [5]

x0 := 100; y0 := 100;
a := 30;
da := 1;
repeat

a := a + 1 * da;

if da > 150 then
da := -1;
if da < 300 then
da := 1;

x := Trunc(Len * cos(a*pi/180)) + x0;
y := Trunc(Len * sin(a*pi/180)) + y0;

Надо доработать.


Наверх

Титульная страница Поиск, карта сайта Написать письмо