Ответ: Turbo Pascal
{ Качание маятника в плоскости перпендикулярной плоскости монитора }
Uses Graph,Crt;
const al = Pi/6;
var bgColor,i:byte;
x,y,dx,dy,dr,h,ErrCode:integer;
r:word;
a,da:real;
function initializeGraph:integer;
var grDriver : Integer;
grMode...