2.Нарисуй объект, который получится при выполнении последовательности команд. Укажите на рисунке конечное положение черепашки.
по
пр 45 вп 45 пр 45 вп 20 пр 45 вп 45
пр 135 вп 80 нд 70 лв 90 вп 50
пр 90 вп 60 пр 90 вп 50
пп
пр 90 вп 20 пр 90 вп 10
по
вп 20 лв 90 вп 20 лв 90
вп 20 лв 90 вп 20
пп
3. Чему равно N если на экране после выполнения алгоритма должен
получиться правильный пятиугольник?
ПОВТОРИ 6 [ВП 40 ПР N]
4. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 10 [ВП 5 ПР 45]
5. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 5 [ ПОВТОРИ 4 [ ВП 40 ПР 90] ПР 120]
6. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 4 [ ПОВТОРИ 3 [ ВП 10 ПР 120] ПР 120]

Выполним упрощение:

Мы получили три конъюнкции, соединенные дизъюнкциями. Функция будет истинной при условии истинности хотя бы одной из дизъюнкций. Выписываем соответствующие комбинации (звездочки означаю, что допускается любое значение бита).
х1 х2 х3 х4
0   1   0   0
*    0   1   *
1    *    *  1
Заменяем строки со звездочками на набор строк со всем допустимыми комбинациями битов на месте звездочек.
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   0   1   1 - дубликат
1   1   0   1
1   1   1   1
И удаляем строки-дубликаты:
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   1   0   1
1   1   1   1

Для метода касательных (он же - метод Ньютона) надо задать начальное приближение и получить выражение для производной функции.

Рекуррентная формула в методе Ньютона имеет следующий вид:

Для нашей конкретной задачи можно записать:

А еще надо задать погрешность решения, которую определим так:


 function f(x:real):real;
begin
  f:=sqr(x)-cos(sqr(x))-6
end;

function fn1(x:real):real;
begin
  fn1:=x-(sqr(x)-cos(sqr(x))-6)/(2*x*(1+sin(sqr(x))))
end;

var
  xn,xn1,y,eps:real;
begin
  Writeln('Введите начальное приближение для корня: ');
  Read(xn);
  Writeln('Введите значение погрешности для решения: ');
  Read(eps);
  xn1:=xn; y:=f(xn);
  while abs(y)>eps do
    begin xn1:=fn1(xn); y:=f(xn1); xn:=xn1 end;
  Writeln('x=',xn1,' f(x)=',y)
end.

Тестовое решение:
Введите начальное приближение для корня:
-3
Введите значение погрешности для решения:
0.00001
x=-2.61645602631473 f(x)=1.28691349221555E-06