и тимчасової функцііFiУгол для обчислення коефіцієнта wTВремя t0, tkon, tkvВремя: початкове, кінцеве, квантування systМассів коефіцієнтів системи уравненійr1, r2Корні системи x0Начальное прібліженіеepsТочность обчислення корняx, xpredПоследующее і попереднє наближення кореня
* Примітка.
У підпрограма до ідентифікаторів даних змінних додається літера f. p align="justify"> алгоритм програма графік функція
2.2 Схеми алгоритмів підпрограм
Функція вирішення системи рівнянь:
В
Рішення нелінійного рівняння
В
Саме рішення нелінійного рівняння
В
Тимчасова функція
В
2.3 Схема алгоритму основної програми
В
В
2.4 Компонування програми користувача і роздрук лістингу програми
{програму підготував студент групи 106410}
{Мойсеня Є.}
Program var_18 (moisenja); crt;
type massiv = array [1.3,1.2] of real;: integer; {лічильник}: byte; {Для діалогу}: massiv; {для cсістеми рівнянь}: real;, eps, x0: real ; {для нелінійного рівняння}, w: real; {коефіцієнти тимчасової функції}
fi: byte; {вугл для коеф-а v}
t, t0, tkon, tkv: real; {для функції}
j: byte; {для виведення таблиці (коорд x)}
{*************** рішення системи ***************} sist (A: massiv): real ; i, j: byte; {лічильники} 1, r2: real; {рішення системи}
beginj: = 1 to 2 doi: = 3 downto 1 do [i, j]: = A [i, j]/A [1, j]; i: = 1 to 3 do A [i, 2]: = A [i, 1] - A [i, 2];: = A [3,2]/A [2,2];: = (A [3,1] - r2 * A [2,1]); abs (r1)> abs (r2) then sist: = r1 else sist: = r2;;
{***************************************** *********}
{*** рішення нелінійного рівняння **************} nelin (fx0, feps: real): real; x, xpred: real; f (r : real): real; {Задана функція}: = exp (r) + ln (r) - 10 * r;; fpr (r: real): real; {Її похідна}: = exp (r) - 10 + 1 /r;;: = fx0;: = x;: = xpred - f (xpred)/fpr (xpred);; (f (x)
{***************************************** ********}
{************* функція **************************} ft (xf, wf, pf, gf, tf: real): real;: = abs (pf + gf + tf * (wf + tf * xf));;
{***************************************** ********}
BEGIN
{********** Вирішуємо систему рівнянь ************}
clrscr;
Writeln ('Вирішуємо систему рівнянь + a1z + b1v = d1');
Writeln ('+ a2z ...