иконання
abcrsa (1) a (2) a (3) b (1) b (2) 1 and 2Вивод1538251538258 <5 and 3 <2Не пройдет158352
8 <5 - брехня і 3 <2 - брехня Гћ не пройде
Таблиця тестів
abcrsВывод271469Пройдет125128Пройдет10138147Не пройдет114545Не пройдет71682Пройдет
Задача 3
Умова задачі
Для заданих a і p обчислити x = по реккурентная співвідношенню:
, .
Скільки ітерацій треба виконати, щоб для заданої похибки e виконувалося співвідношення: ?
Блок-схема
Лістинг з коментарями
Program Exercise_3;
const = 0.0001;, x, xn: real;: boolean;, p: integer; kvadr (chislo: real; stepen: integer): real;: real;: integer;: = 1; g: = 1 to stepen do: = k * chislo;: = k;;: = true; ('введіть а:'); (a); ('введіть p:'); (p);: = a; : = 0; flag do: = (1/p) * ((p-1) * x + (a/kvadr (x, p-1))); abs (x-xn)
else
x: = xn;: = i +1;; ('x =', x: 3:2); ('Інтерація =', i);;.
Таблиця виконання
eapxkvadrxni0.0001131kgxp-1kvadr11111211212 1
k = 1 * 1 = 1, kvadr = 1 = 1 * 1 = 1, kvadr = 1
xn = (1/3) * ((3-1) * 1 +1/1) = 1
| 1-1 | = 0 <0.0001 вірно Гћ x = 1, i = 0 +1 = 1
Таблиця тестів
apxi571.2613491.17141232.2982151.05138101.2322
Задача 4
Умова задачі
У масиві C (m) кожен третій елемент замінити напівсумою двох попередніх, а що стоїть перед ним - напівсумою сусідніх з ним елементів. Додатковий (робочий) масив не використовувати. p align="justify"> Лістинг з коментарями
Program Exercise_4;
Const = 15;: array [1 .. m] of real;: integer;, i4: real;; i: = 1 to m do [i]: = Random (9); i : = 1 to m do (C [i]: 2:0, '');//: 2:0 нуль це дрібна частина
Writeln;: = 3; i <= m do: = (C [i-1] + C [i-2])/2;: = (C [i] + C [i -2])/2; [i]: = i3; [i-1]: = i4;: = i +3;; i: = 1 to m do (C [i]: 2:0, '') ;//: 2:0 нуль це дробнаячасть
Writeln;
readln;.
Таблиця вико...
