Программа по графике на Delphi

[lBlackCatl]

Вообщем задача такова "Программа должна изображать на экране колеблющийся согласно законам физики маятник.Начальное отклонение маятника должно обеспечиваться стрелками ->, <-. Запуск маятника клавишей <пробел>. Будте добры обьясните что и как надо делать в этой программе. Брал исходник но я не знаю что надо на форме ставить, я только начинаю а эту тему мне не объясняли. Не могли бы вы написать текст программы и хотябы как нибудь меня ввести в курс графики на Делфи.
ЗЫ Особый интерес представляет, то как сделать отклонение маятника с помощью стрелок и запустить его пробелом.
Заранее благодарен.

[Stilet]

Задачка интересная. Но с матекой у мя туговато, хотя механизм могу предложить следующий:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var      x,y,alpha:double;napr:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin                 Timer1.Interval:=100;
Timer1.Enabled:=true; napr:=1;
end;

procedure TForm1.FormPaint(Sender: TObject);
const dl=500;
begin
 with canvas do begin
  MoveTo(round(x),round(y));
  LineTo(napr*round(x+dl*cos(alpha)),round(y+dl*sin(alpha)));
 end;
 if abs(alpha-pi)<0.1 then napr:=-1 else
  if abs(alpha+pi)<0.1 then napr:=1;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=Width div 2; y:=10;
 alpha:=alpha+0.1;
Repaint;
end;

end.

Кликай на кнопку увидишь некое подобие качания. Терь к этому привернуть формулы и норм.

[lBlackCatl]

Мммм...Спасибо, а куда вставлять формулы? и как задать первоначальное положение с помощью стрелок а запуск с помощью пробела?

[mihali4]

А теперь наберите в строке поиска по форуму слово "маятник" и получите кучу готовых примеров.
Или это слишком сложно?

[lBlackCatl]

Смотрел, к сожалению не нашел, даже примерно похожее на мое. Вот и спрашиваю вас.

[Stilet]

Спасибо, а куда вставлять формулы?

А вот там где Cos и Sin вычисляется.
Вот там и нжно шаманить.

[lBlackCatl]

Ну что ребят, не думаю что это сложная задачка для тех кто хорошо разбирается в программировании, как сделать начальное отклонение с помощью стрелок и запустить прогу с помощью пробела?

[_Dmitry]

как сделать начальное отклонение с помощью стрелок и запустить прогу с помощью пробела?

Например, так...

[lBlackCatl]

Жараааа!!! Спасибо огромное!! ты крут)))) а можеш сказать на словах как эти отклонения делать? все таки за помощь огромное спасибо) но и учится самому надо!)

[_Dmitry]

Читаешь теорию: http://ru.wikipedia.org/wiki/Математический_маятник
Смещение по горизонтали - это амплитуда колебаний.