NTEGRAL
В
Схема головний програми
5. Таблиця ідентифікаторів
Наіменованіефізіческій смислідентіфікаторСіла діюча на балку P 1 P1 Сила діюча на балку P 2 P2 Сила діюча на балку P 3 P3 Довжина прольоту балки ll Момент інерції однієї частини балки J 1 J1 Момент інерції другої частини балки J 2 J2 Прогин балки ff Лічильники -k, r Координата xA T прогин балка програма перетин
6. Текст програми
program kursach; crt; vect = array [1 .. 30] of real; T, l, J1, J2, P1, P2, P3, E: real;, n, k: integer; , f: vect;: text; vivod (a: vect; n: integer); i: integer; i: = 1 to 2 * n +1 do (s, a [i]: 6:2, ''); ; INTEGRAL (nach, konec, P, E, J, T: real; n, k, r: integer; Var A, f: vect); i: byte;: real;, x: vect;: real;: = (konec-nach)/n; i: = 1 to n +1 do [i]: = nach + (i-1) * h; [i]: = x [i] * x [i]; [k]: = x [i];: = k +1;;: = 0; f [1]: = 0; i: = 2 to n +1 do: = temp + (q [i] + q [i-1]) /2 * h; [r]: = T + (P * temp)/(E * J);: = r +1;;;; (s, 'rez.rez'); (s); (s);
write ('Введіть довжину прольоту балки l =');
readln (l); ('Введіть момент інерції однієї частини балки J1 ='); (J1); ('Введіть момент інерції іншій частині балки J2 ='); (J2); ('Введіть модуль пружності E = ');
readln (E); ('Ведіть силу P1 ='); (P1);
write ('Ведіть силу P2 =');
readln (P2); ('Ведіть силу P3 ='); (P3);
write ('Введіть кількість розбиттів n ='); (n); (s, '': 25, 'КУРСОВИЙ ПРОЕКТ'); (s, '': 8, 'ТЕМА: Ісcледованіе прогину балки змінного перерізу ');
writeln (s); (s, '': 26, 'Група 103114');
writeln (s, '': 20, 'Бражкин Віталій Іванов...
