Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Контрольные работы » Дослідження подовження стрижня конічної форми

Реферат Дослідження подовження стрижня конічної форми





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...


Назад | сторінка 3 з 5 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Аналіз діяльності туристичної агенції &Real-Travel&
  • Реферат на тему: Analysis of Control System and Synthesis of Real Compensator
  • Реферат на тему: Аналіз ДІЯЛЬНОСТІ туристичної агенції "Real-Travel"
  • Реферат на тему: Шляхи вдосконалення PR-ДІЯЛЬНОСТІ туристичного підприємства "Real-trav ...
  • Реферат на тему: Розробка програми для розв'язання систем лінійних рівнянь