Помощь - Поиск - Пользователи - Календарь
Полная версия: Нужна помощь
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
parlamenter
Как вообще это осуществить на паскале? Кто знает, буду при многом благодарен.
Федосеев Павел
Цитата(parlamenter @ 15.12.2014 18:42) *

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

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


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 выполнишь самостоятельно.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.