i = 2, m +1
;
. Для i = 1, m +1
Висновок (Int i ).
4. Схема алгоритму розв'язання задачі
Схема головний програми
В
Функція f
В
Процедура TRAP
В
5. Таблиця ідентифікаторів
Наіменованіефізіческій смислідентіфікаторДліна стержняl lРадіуси основанійr 1 , r 2, r 22, r 23, r 24 r1, r2, r22, r23, r24Модулm поздовжньої упругостіE, EУдліненіе сталевого і мідного стрижнів D l, dl
6. Текст програми на мові Pascal
kyrs16; crt; Vect = array [1 .. 100] of real; = function (z, r1, r, l: real): real;
{$ F +} function f (z, r1, r, l: real): real;: = pi * sqr (r1 + (r-r1) * z/l);
{$ F-} m: integer; n, E, r1, r2, r22, r23, r24, l: real; f1, f2: text; dl: vect; TRAP (m: integer ; xn, xk, E: real; r: real; var int: vect); i: integer; h: real; x, y: vect;: = (xk-xn)/m; i: = 1 to m + 1 do begin [i]: = xn + (i-1) * h; [i]: = 1/f (x [i], r1, r, l);; i: = 2 to m +1 do [i ]: = int [i-1] + h/2 * N/e * (y [i] + y [i-1]); i: = 1 to m +1 do writeln (f2, x [i]: 5:2, '', int [i]: 10:8);;; (f1, 'dan16.txt'); (f1); (f2, 'res16.res'); (f2); (f1, l, n, m, r1, r2, r22, r23, r24, E); (f2, 'Kyrsovoi proekt'); (f2, 'Issledovanie ydlineniya sterznei koni4eskoi formi'); (f2, 'Isxodnie dannie'); ( f2, 'l =', l: 2:0, 'N =', N: 3:0, 'm =', m: 2, 'r1 =', r1: 3:1, 'r2 =', r2 : 3:1); (f2, 'r22 =', r22: 3:1, 'r23 =', r23: 3:1, 'r24 =', r24: 3:1, 'E =', E: 6 : 0); (f2, 'Rezultati raboti'); (f2, 'Udlinenie sterznya pri r2 = 0.2 m.'); (f2, 'x, m dl, mm'); (m, 0, l, E, r2, dl); (f2, 'Udlinenie sterznya pri r2 = 0.3 m.'); (f2, 'x, m dl, mm'); (m, 0, l, E, r22, dl); (f2, 'Udlinenie sterznya pri r2 = 0.4 m.'); (f2, 'x, m dl, mm'); (m, 0, l, E, r23, dl); (f2, 'Udlinenie sterznya pri r2 = 1 m . '); (f2,' x, m dl, mm '); (m, 0, l, E, r24, dl); (' PA6OTA 3ABEPIIIEHA '); (f1); close (f2); until keypressed;
end.
7. Результати роботи програми
Kyrsovoi proektydlineniya sterznei koni4eskoi formidannie = 5 N = 50 m = 20 r1 = 0.1...
