Нужна помощь, Что-то не понимаю Опции

[parlamenter]

Как вообще это осуществить на паскале? Кто знает, буду при многом благодарен.

[Федосеев Павел]

Как вообще это осуществить на паскале? Кто знает, буду при многом благодарен.

наречие - премного

var
  eps:    single;
  Y0, Y1: single;
  Yn, Yn_1, Yn_2: single;
  n:      integer;
begin
  eps := 1e-5;
  Y0  := 10;
  Y1  := 5;

  Yn_2 := Y0;
  Yn_1 := Y1;
  n    := 1;
  repeat
    Yn   := 1 / sqrt(1 + sqr(sin(Yn_1)) + sqr(sin(Yn_2)));
    Yn_2 := Yn_1;
    Yn_1 := Yn;
    Inc(n);
  until Abs(Yn - Yn_2) < eps;
  writeln('n = ', n, ' => Yn = ', Yn: 0: 10);
end.

Ввод eps, Y0 и Y1 выполнишь самостоятельно.

Сообщение отредактировано: Федосеев Павел - 17.12.2014 3:54