Напишите программку в программке турбо паскаль "Колебания маятника". Если можно с

Есть здесь один код на примете
Программка
СВОБОДНЫЕ КОЛЕБАНИЯ Радиального МАТЕМАТИЧЕСКОГО МАЯТНИКА
Program Math_01;

Подключение модулей подпрограмм
Uses Crt, Graph;

Описание констант
Const phi0=30; // Исходный угол наклона маятника
w0=0; // Исходная угловая скорость маятника
l=400; // Длина нити
r=8; // Радиус багажа
light=2; // Радиус блика
k=0.02; // Коэффициент сопротивления
m=1; // Масса багажа
xp=320; // Координата x точки подвеса
yp=10; // Координата y точки подвеса
g=9.8; // Ускорение свободного падения
tau=0.4; // Шаг по времени

Описание переменных
Var x, y, xx, yy, w, eps, phi: Real;

Процедура инициализации графического режима 640x480
Procedure OpenGraph;
Var Driver, Mode, ErrorCode: Integer;
Begin
Driver:=Detect;
InitGraph(Driver, Mode, 'c:\bp\bgi');
ErrorCode:=GraphResult;
If ErrorCode lt;gt; grOK Then Halt(1);
End;

Процедура исключения сияний изображений
Procedure Glimmer;
Begin
Repeat
Until Port[3da] And 8 lt;gt; 0;
End;

Процедура вывода изображения маятника на экран
Procedure Display;
Begin
Glimmer;
SetColor(Black);
SetFillStyle(SolidFill, Black);
Line(xp, yp, Round(xx), Round(yy));
FillEllipse(Round(xx), Round(yy), r, r);
SetLineStyle(SolidLn, 0, NormWidth);
SetColor(DarkGray);
Line(xp, yp, Round(x), Round(y));
SetLineStyle(SolidLn, 0, NormWidth);
SetColor(DarkGray);
SetFillStyle(SolidFill, DarkGray);
FillEllipse(Round(x), Round(y), r, r);
SetColor(LightGray);
SetFillStyle(SolidFill, White);
FillEllipse(Round(x)-3, Round(y)-3, light, light);
End;
Основная часть программки
Begin
OpenGraph;
SetFillStyle(SolidFill, DarkGray);
Bar(xp-20, yp-5, xp+20, yp-1);
phi:=phi0*Pi/180;
w:=w0;
x:=xp+l*sin(phi);
y:=yp+l*cos(phi);
Repeat
Begin
xx:=x;
yy:=y;
eps:=-k*w/m-g*sin(phi)/l;
w:=w+eps*tau;
phi:=phi+w*tau;
x:=xp+l*sin(phi);
y:=yp+l*cos(phi);
Display;
End;
Until KeyPressed;
CloseGraph;
End.

О проекте

Напишите программку в программке турбо паскаль "Колебания маятника". Если можно с

Добро пожаловать!