Помогите пожалуйста составить код программы ** языке паскаль, учитывая методические...

Question

Помогите пожалуйста составить код программы на языке паскаль, учитывая методические требования:.

---

Comments

Методические указания:

---

- Объявить в программе тип используемых переменных (целый иливещественный) в соответствии с содержанием задачи. Использоватьвещественные переменные с удвоенной точностью;- Считать, что заданная точность eобеспечена, если модуль разности двухпоследовательных значений искомой величины меньше e;- Выводить все изменяющиеся переменные при каждом повторении цикла,предусмотрев вывод имени и значения каждой переменной.

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var y:double:=1;
  var e:=1e-5;
  var y1:double;
  while true do begin
    y1:=y*(1.5-sqr(y));
    Writeln('y1=',y1);
    if abs(y1-y)<=e then break<br>    else y:=y1;
    Writeln('y=',y)
    end;
  Writeln('Результат: ',y1,', контрольное значение ',1/sqrt(2))
end.

Результат:
y1=0.5
y=0.5
y1=0.625
y=0.625
y1=0.693359375
y=0.693359375
y1=0.706708468496799
y=0.706708468496799
y1=0.707106444695907
y=0.707106444695907
y1=0.707106781186307
Результат: 0.707106781186307, контрольное значение 0.707106781186547