ич');
writeln (s, '': 27, 'Варіант 20');
writeln (s); (s, '': 15, 'Вихідні дані:'); (s, '': 10, 'Довжина прольоту балки l =', l: 5:2, '', 'мм'); (s, '': 10, 'Момент інерції однієї частини балки J1 =', J1: 8:2, '', 'кг * мм ВІ '); (s,' ': 10,' Момент інерції однієї частини балки J2 = ', J2: 8:2,' ',' кг * мм ВІ '); (s,' ': 10,' Модуль пружності E = ', E: 8:2,' ',' MПa ') ;
writeln (s, '': 10, 'Сила P1 =', P1: 5:2, '', 'H'); (s, '': 10, 'Сила P2 =' , P2: 6:2, '', 'H'); (s, '': 10, 'Сила P3 =', P3: 7:2, '', 'H');
writeln (s, '': 10, 'Кількість розбиття n =', 2 * n: 2);
writeln (s);: = 1; r: = 2; T: = 0; (0, l, P1, E, J1, T, n, k, r, A, f) ;: = n +1; r: = n +2;: = f [n +1]; (l, 2 * l, P1, E, J2, T, n, k, r, A, f);
writeln (s); (s, '': 5, 'Прогини балки в різних точках під дією сили P = 50H');
writeln (s); (s, 'x (мм)', ''); (A, n); (s); (s); (s, 'f (мм)' , ''); (f, n); (s); (s);: = 1; r: = 2; T: = 0; (0, l, P2, E, J1, T, n, k, r, A, f);: = n +1; r: = n +2;: = f [n +1]; (l, 2 * l, P2, E, J2, T, n, k, r, A, f);
writeln (s); (s, '': 5, 'Прогини балки в різних точках під дією сили P = 200H');
writeln (s); (s, 'x (мм)', ''); (A, n); (s); (s); (s, 'f (мм)' , ''); (f, n); (s); (s);: = 1; r: = 2; T: = 0; (0, l, P3, E, J1, T, n, k, r, A, f);: = n +1; r: = n +2;: = f [n +1]; (l, 2 * l, P3, E, J2, T, n, k, r, A, f);
writeln (s); (s, '': 5, 'Прогини балки в різних точках під дією сили P = 1000H');
writeln (s); (s, 'x (мм)', ''); (A, n); (s); (s); (s, 'f (мм)' , ''); (f, n); (s);
writeln ('Результати розрахунку записані в фаіл REZ.REZ');
close (s); until keypressed.
7. Результати роботи програми
Довжина прольоту балки l = 400.00 мм
Момент інерції однієї частини балки J1 = 10000.00 кг * мм ВІ
Момент інерції однієї частини балки J2 = 28600.00 кг * мм ВІ
Модуль пружності E = 49000.00 MПa
Сила P1 = 50.00 H
Сила P2 ...
