+ b2v = d2'); ('Введіть коефіцієнти a1, b1, d1, a2,.'); j: = 1 to 2 doi: = 1 to 3 do ( 25 + i * 6, 4 + j); (syst [i, j]);;;
g: = sist (syst);
Writeln ('Найбільше за модулем рішення системи g =', g: 4: 2);
Write ('Для продовження будь-яку клавішу "); readkey;
{readln;}
{****** Вирішуємо нелінійне рівняння ***************}
clrscr;
Writeln ('Вирішуємо нелінійне рівняння e ^ (x) + ln (x) - 10x = 0 методом Ньютона');
Write ('Вводимо початкове значення x0 ='); readln (x0);
Write ('Вводимо точність розрахунку E ='); readln (eps);
p: = nelin (x0, eps);
Writeln ('Корінь рівняння e ^ (x) + ln (x) - 10x = 0 x =', p: 6: 4);
Write ('Для продовження натисніть будь-яку клавішу "); readkey;
{**** підготовка до виведення таблиці **************}
clrscr;
Writeln ('Зараз відбувається підготовка до виведення значень');
Writeln ('тимчасової функції xt ^ 2 + wt + p + g, де');
Writeln ('p - корінь ураненія e ^ (x) + ln (x) - 10x = 0');
Writeln ('m - больлшій за модулем корінь системи.');
Writeln ('Введення відсутніх коефіцієнтів:');
Write ('Введіть x; x ='); readln (x); ('w = tg (fi); введіть fi (у градусах); fi ='); readln (fi); : = (sin (fi))/(cos (fi)); ('');
Writeln ('Введення установок функції:');
Write ('Введіть початкове час t0; t0 ='); readln (t0);
Write ('Введіть кінцевий час tkon; tkon ='); readln (tkon);
Write ('Введіть час квантування tkv; tkv ='); readln (tkv);
Writeln ('');
Writeln ('У якому часі розраховувати функцію?');
Writeln ('1 - якщо в машинному');
Writeln ('2 - якщо в реальному');
readln (vyb);
Write ('Для виведення результатів все готово. Натисніть будь-яку клавішу "); readkey;
{****** в и в о д р е із у л и т а т о в *************}
clrscr;: = 0; (1 + j, 1); ('+ ------------------------- ---- + '); (1 + j,
); ('| Значення t | Значення f (t) |'); (1 + j,
); ('+ ------------ + ---------------- |');: = t0; i: = 1; t <= tkon do (1 + j, i +3); write ('|'); (14 + j, i +3); write ('|'); (31 ...
