Хотя бы не меньше половины,буду ооочень благодарен 1. Поясніть ідею методу обчислення наближеного значення кореня квадратного з
числа А, використовуючи алгоритм Герона.
2. Напишіть програму обчислення кореня п'ятого степеня з числа А.
3. Як визначити кількість ітерацій при обчисленні sin x у програмі E13?
4. Поясніть, чому достатньо двох величин для обчислення будь-якої кількості членів
послідовності в програмі E12?
5. Чому точність обчислень на комп'ютері не може бути довільною?
6. Чи можна вибрати відрізок для уточнення кореня, якщо на кінцях відрізка функція
має однакові знаки?
7. Чи можна сказати, що відрізок [-5; +5] для функції f(х)=Зх 2 -5х-3 містить ізольовані
корені?
8. Напишіть програму обчислення кореня рівняння для функції f(x)=0 із програми
на відрізку [0; 1] методом ділення відрізка навпіл 20 разів. Визначіть, із якою
точністю буде обчислений корінь рівняння.
9. Використовуючи програму, обчисліть корені квадратні з чисел 1.45, 1.678, 0.2, 131
зточністю 1E-6.
10. Використовуючи програму E13, обчислити значення sin x при x = π/8 із точністю
1E-5. Число π: задати як константу 3.141592.
// Внимание! Если программа не работает, обновите версию!
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.
Пример
n= 8
1 1 2 3 5 8 13 21