); ('функція zak2:
writeln (kur, '': 16, 'Білоруський Національний Технічний Університет');
writeln (kur); (kur); (kur);
writeln (kur); (kur); (kur, '': 14, 'Дослідження енерговитрат на обертальний рух'); (kur, '': 18, 'в підшипниках ковзання у зв'язку з тертям ');
writeln (kur); (kur); (kur);
writeln (kur, '': 19, 'Писарєв Віктор Вікторович група 103153-C');
writeln (kur); (kur); (kur);
writeln (kur, '': 33, 'Вихідні дані'); (kur); (kur, '': 8, 'Величина зосереджені сили Q =', Q: 5:2, ' H '); (kur,' ': 8,' Коефіцієнт тертя f = ', f: 5:3); (kur,' ': 8,' Радіус підшипника r = ', r: 5:3,' м ' ); (kur, '': 8, 'Кутова швидкість w =', w: 5:2, 'рад/с'); (kur, '': 8, 'Кут розподілу тиску Alf =', Alf: 5: 3, 'радий'); (kur, '': 8, 'Довжина підшипника Ln =', Lpd: 5:3, 'м'); (kur, '': 8, 'Кількість разбиений довжини n =', n : 2); (kur, '': 8, 'Число обертів вала m =', m: 5:3); (kur, '': 8, 'Мінім. значення сили Qmin =', Qmin: 5:2, '
close (kur).
6.2 Текст модуля Kursavoi
Kursavoi; f1 = function (a: real): real; = array [1 .. 100] of real; INTEGR (a, b: real; Funk: f1; n: integer): real ; Rasch (n: integer; h, r, f, IntB, IntA: real; funk: f1; Var l, Fs, Qs: mas); SUMARN (n: integer; A: mas; h: real; VAR SUM: real), Vse (n: integer; h, f, r, w, intA, intB, intC: real; to n +1 do [i]: = a + (i-1) * h; [i]: = Funk (x [i]);;: = 0; i: = 2 to n do: = Sum1 +2 * y [i];: = h/2 * (y [1] + Sum1 + y [n +1]);; Rasch; i: integer;, P: mas; i: = 1 to n +1 , SumB: real;: = 0;: = 0; i: = 2 to n
begin (failr, '': 15, 'Розподіл тиску в поперечному напрямі');
Writeln (failr, '': 23, 'за законом', zak: 19); (failr); i: = 1 to n +1 do (failr, '': 11, i: 2, '': 6, 'L =', L [i]: 6:3, '': 6, 'Fs =', Fs [i]: 7:3, '': 6, 'Qs =', Qs [i]: 8:3); (failr); (failr, '': 5, 'Сумарна сила опору Fsum =', Fsum: 7:3);
Writeln (failr, '': 5, 'Cуммарная нормальна реакція Qsum =', Qsum: 7:3); (failr, '': 5, 'Приведений коефіцієнт тертя ftr =', ftr: 7:3);
Writeln (failr, '': 5, 'Потужність P =', P: 7:3); (failr, '': 5, 'Робота Atr =', Atr: 7:3) ; (failr);; VIVOD; (failr); (failr, '': 17, 'Розрахунок енерговитрат для закону розподілу');
Writeln (failr, '': 17,...
