fy"> Прискорення туги S 2
y S2 ys2a Прискорення туги S 3
x S3 xs3a Прискорення туги S 3
y S3 ys3a Маса точки S 2
m 2 m2 Маса точки S 3
m 3 m3 Момент інерції точки S 2 J S2 js2 Момент інерції точки S 3 < b align = "justify"> J S3 js3 Кутове прискорення туги S 2
? 2 е2 Кутове прискорення туги S 3
? 3 e3 Проекції прикладеної сили F
F x fx Проекції прикладеної сили F
F y fy Реакція
F 12x F12x Реакція < b align = "justify"> F
12y F12y Реакція
F 03x F03x Реакція
F 03y F03y
6. Текст програми
Program Kyrs_21; crt; matr = array [1 .. 20,1 .. 20] of real; = array [1 .. 20] of real; f12x, f12y, f03x, f03y, m, s, d, xa, ya, xb, yb, xc, yc, xd, yd , xs2, ys2, xs3, ys3, xs2a, ys2a, xs3a, ys3a, m2, m3, js2, js3, e2, e3, fx, fy: real;, j, ier, n, k, im: integer; x, b: vect; a: matr; f1, f2: text; fu2x, fu3x, mu2, fu3y, fu2y, mu3, g2, g3: real; ClrScr; (f1, 'dan21.txt'); reset (f1); ( f2, 'res21.res'); rewrite (f2); (f1, xa, ya, xb, yb, xc, yc, xd, yd, xs2, ys2, xs3, ys3); (f1, xs2a, ys2a, xs3a , ys3a, m2, m3, js2, js3, e2, e3, fx, fy); i: = 1 to 4 do beginj: = 1 to 4 do (f1, a [i, j]); (f1);;...
