[tatee]

Тело вращается вокруг неподвижной оси по закону f=10+20*t-2*sqr(t). Найти величину и угол наклона полного ускорения точки, находящейся на расстоянии L от оси вращения в момент времени t. Построить анимацию движения тела.
Помогите, пожалуйста!!! В среду уже сдавать, а я не знаю, как делать!!!

[Енот]

Кавайненько получилось

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

unit unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls;   const L=100;   type   TForm1 = class(TForm)     Image1: TImage;     Timer1: TTimer;     procedure DrawObject(x,y:integer);     procedure Refreshsh;     procedure intr(corr:Tpoint;k,area:integer);     procedure FormCreate(Sender: TObject);     function Calculate(t:real):Tpoint;     procedure Timer1Timer(Sender: TObject);     procedure Image1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   t:real;   TailLength:integer; implementation   {$R *.dfm}   procedure Tform1.intr(corr:Tpoint;k,area:integer); var a:array[1..1000,1..1000] of boolean;     i,j:integer; begin    for i:=1 to area do      for j:=1 to area do a[i,j]:=(random(k)=1);    for i:=1 to area do      for j:=1 to area do       if not a[i,j] then image1.Canvas.Pixels[corr.x+i-8,corr.y-8]:=clblack; end;   procedure TForm1.Refreshsh; var i,j:integer; begin   image1.Canvas.Brush.Color:=clblack;   image1.Canvas.Rectangle(0,0,image1.width,image1.Height);   image1.Canvas.Brush.Color:=clblack;   image1.Canvas.Brush.Color:=clYellow;   for i:=1 to image1.Width do    for j:=1 to image1.height do if (random(10000)=1)       then image1.canvas.pixels[i,j]:=clYellow;   image1.Canvas.ellipse((image1.Width div 2)-20,(image1.height div 2)-20,   (image1.Width div 2)+20 ,(image1.height div 2)+20 ); end;   procedure Tform1.DrawObject(x,y:integer); var penbuf:TColor; begin    penbuf:=image1.canvas.pen.color;    image1.Canvas.brush.Color:=clBlue;    image1.canvas.ellipse(x-17,y-17,x+17,y+17);    image1.canvas.brush.Color:=penbuf; end;   function Tform1.Calculate(t:real):Tpoint; var f:real; begin    f:=round(10+20*t-2*sqr(t));    result.X:=round((image1.Width div 2)+(L*cos(f/L)));    result.Y:=round((image1.height div 2)+L*sin(f/L)); end;   procedure TForm1.FormCreate(Sender: TObject); begin Timer1.interval:=10; image1.Canvas.Pen.color:=clBlack; TailLength:=1; t:=1; refreshsh; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin t:=t+0.1; {if (round(t*10) mod TailLength)<>0 then intr(calculate(t),100,100) else } Refreshsh; DrawObject(Calculate(t).X,Calculate(t).Y); end;   procedure TForm1.Image1Click(Sender: TObject); begin inc(TailLength); end;   end.

Это только анимация, при небольшой доработке легко будет выводить угол наклона и ускорение точки

[tatee]

Очень хорошая анимация! Спасибо! Надеюсь, она мне поможет.