Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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
    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