Задание 10

Программирование на Delphi. Задание 10. все нужно делать в form на делфи. У меня есть примерный код, но он не доработан и выполнел в консольном режиме, не могу разобраться с ошибками там, да и потом нужно разбираться как переделать его в form вместо цилиндра можно шар Для моделирования движения шарика по наклонной плоскости в DELFI можно использовать следующие шаги: 1. Создать модель шарика с заданными физическими параметрами (массой, радиусом, коэффициентом трения). 2. Создать модель наклонной плоскости с заданным углом наклона и коэффициентом трения. 3. Рассчитать начальные условия для шарика (скорость, направление движения). 4. Используя законы Ньютона, рассчитать движение шарика по наклонной плоскости в течение определенного времени. 5. Отобразить результаты моделирования движения шарика в виде графиков или визуализации. Пример кода на Delphi для моделирования движения шарика: ``` program BallOnSlope; uses SysUtils, Math; const G = 9.8; // ускорение свободного падения dt = 0.01; // шаг по времени для численного метода решения type TVector = record X, Y: Double; end; var Ball: record Pos, Vel, Acc: TVector; Mass, Radius, Friction: Double; end; Slope: record Angle, Friction: Double; end; // функция для вычисления модуля вектора function Magnitude(V: TVector): Double; begin Result := Sqrt(V.X * V.X + V.Y * V.Y); end; // функция для вычисления нормализованного вектора function Normalize(V: TVector): TVector; var M: Double; begin M := Magnitude(V); if M > 0 then begin Result.X := V.X / M; Result.Y := V.Y / M; end else Result := V; end; // функция для вычисления скалярного произведения векторов function Dot(V1, V2: TVector): Double; begin Result := V1.X * V2.X + V1.Y * V2.Y; end; // функция для вычисления векторного произведения векторов function Cross(V1, V2: TVector): Double; begin Result := V1.X * V2.Y - V1.Y * V2.X; end; // функция для вычисления проекции вектора V на ось Axis function Project(V, Axis: TVector): TVector; var M: Double; begin M := Dot(V, Axis) / Dot(Axis, Axis); Result.X := M * Axis.X; Result.Y := M * Axis.Y; end; // функция для обновления состояния шарика procedure UpdateBall; var Gravity, Friction, Res: TVector; Normal: TVector; Speed: Double; begin // вычисление силы тяжести Gravity.X := 0; Gravity.Y := Ball.Mass * G; // вычисление силы трения Normal := Normalize(Ball.Pos); Slope.Angle := ArcTan2(Normal.Y, Normal.X); Friction := Ball.Friction * Normal; Speed := Magnitude(Ball.Vel); Friction := Min(Friction, Speed * Ball.Mass * G * Slope.Friction); if Speed = 0 then Friction := 0; // обновление ускорения шарика Res := Gravity - Friction; Ball.Acc := Res / Ball.Mass; // численное интегрирование для получения новой скорости и положения шарика Ball.Vel.X := Ball.Vel.X + Ball.Acc.X * dt; Ball.Vel.Y := Ball.Vel.Y + Ball.Acc.Y * dt; Ball.Pos.X := Ball.Pos.X + Ball.Vel.X * dt; Ball.Pos.Y := Ball.Pos.Y + Ball.Vel.Y * dt; // остановка шарика, если он достиг нижней точки наклонной плоскости if Ball.Pos.Y <= 0 then Ball.Vel := TVector.Create(0, 0); end; // главная процедура begin // задание начальных условий для шарика и наклонной плоскости Ball.Pos := TVector.Create(-2, 5); Ball.Vel := TVector.Create(2, 6); Ball.Mass := 1; Ball.Radius := 0.1; Ball.Friction := 0.1; Slope.Angle := 45 * Pi / 180; Slope.Friction := 0.2; // моделирование движения шарика в течение некоторого времени repeat UpdateBall; until Ball.Vel = TVector.Create(0, 0); // вывод результата моделирования WriteLn(Format('Ball stopped at (%.2f, %.2f)', [Ball.Pos.X, Ball.Pos.Y])); end. ``` вот код в консоле который у меня есть, выдает ошибку на Creat.