Program Kurcova;
Vses Student, Crt;
Const h=0.1; V=1,4; u=8;
Var i, j: integer; x,y: ovmt: Zna, r,g,1: rca 1;
p, t: real:
a: ovmt;
Function F(x: real):real;
Begin
F: = a[0]+a[1] ∙ x+a[2] ∙ Sgr(x)+a[3] ∙ Exp(3 ∙ 1 n/x);
End;
Function Fun(x: real):real;
Begin;
Fun: = F9x) / (Exp / x) -1,2);
End;
Function Itg (A,B:real; N: integer;
Fun: Fun I ): real;
Begin
t: = 0; p: = A;
tor j: = 1 to N-1 do begin p: = p+h;
t: = t + Fun (p); end;
Ftg: = h (t+(Fun (A) + Fun (B)) / 2);
End;
Begin
C1 r Scr;
For i: = to 12 do begin
write (‘x[‘,i,’] = ‘); read (x[i]);
write (‘y[‘,i,’]=’); read (y[i]);
End;
ATZF (12, 3, x, y, a, i);
for j: = 1 to i do write 1n (‘a[‘, j, ‘]=], a[j]: 6: 2);
Zna: = Itg (2, 5.6, 36, Fun);
write 1n (‘Zna’, Zna: 6 : 2);
write 1n (‘F(3, 5) = ‘, F(3, 5) :6:2);
r: - 0.2; g: = v;
repeat
1: - F(g);
write (g : 8 : 2, 1:8:2);
g: = g + r;
until g>u;
End.
5. Опис складених підпрограм.
5.1. Опис основної програми.
На початку програми ми вводимо масив значень х і у. Потім за допомогою стандартної підпрограми методом найменших квадратів знаходимо коефіцієнти а0, а1, а2, а3. Після цього знаходимо інтеграл за допомогою підпрограм і виводимо значення інтегралу. Потім знаходимо і виводимо значення функції у якщо ч = 3,5. У кінці програми ми протабульовуємо функцію у від 1,4 до 8 з кроком 0,2 і результати виводимо у вигляді таблиці.
5.2. Опис розроблених підпрограм.
5.2.1. Підпрограма F в якій змінні F присвоюється функція a[0] + a[1] x x + a[2] x Sgr(x) + a[3] x Exp (3 x ln(x))
5.2.2. Підпрограма Fun в якій змінній Fun присвоюється функція F(х) / Ехр(х) – 1,2.
5.2.3. Підпрограма Itg. На початку підпрограми змінній t присвоюється 0, а змінні Р значення змінної А тобто нижньої межі інтегрування. Потім змінній t присвоюється сума інтергалів де х змінюється від другого до передостаннього кроків інтегрування. І в кінці підпрограми змінній Itg присвоюється значення виразу.
6. Роздрук результатів розрахунку.
6.1. Роздрук результатів тестування.
Результат текстового обчислення значення інтегралу дорівнює 2, 67 і значенням функції у при х = 3,5 дорівнює 24.31
Висновок: в результаті проведеного тестування встановлено, що отримані результати відповідають результатам, які видає програма.
6.2. Роздрук результатів розрахунку
а[1] = -1.88
a[22] = 6.44
a[3] = -1.12
a[4] = 0.08
Zna = 2.67
F(3,5) = 24.31
| 1,4 | 6,91 | 4,6 | 18,67 |
| 1,6 | 8,89 | 4,8 | 15,57 |
| 1,8 | 10,94 | 5,0 | 11,69 |
| 2,0 | 13,04 | 5,2 | 6,98 |
| 2,2 | 15,10 | 5,4 | 1,4 |
| 2,4 | 17,1 | 5,6 | -5,12 |
| 2,6 | 18,96 | 5,8 | -12,63 |
| 2,8 | 20,64 | 6,0 | -21,18 |
| 3,0 | 22,09 | 6,2 | -30,83 |
| 3,2 | 23,24 | 6,4 | -41,63 |
| 3,4 | 24,05 | 6,6 | -53,63 |
| 3,6 | 24,46 | 6,8 | -66,89 |
| 3,8 | 24,42 | 7,0 | -81,46 |
| 4,0 | 23,87 | 7,2 | -97,39 |
| 4,2 | 22,77 | 7,4 | -114,74 |
| 4,4 | 21,05 | 7,6 | -133,56 |
| 7,8 | -153,91 | ||
| 8,0 | -175,84 |
7. Перелік використаних літературних джерел.
ЛІТЕРАТУРА
1. Бронштейн Н. Довідник з вищої математики
2. Семендяєв К. Вища математика.
3. В. Склярів. Програмне і лінгвістичне забезпечення персональних ЕОМ.
4. Горстко А. Абетка програмування.
5. ТУРБО ПАСКАЛЬ версія 7 0. Керівництво програміста.
6. Комп'ютерна хрестоматія.