Vladimir_S

Platon, ну что за?.. Смотрим внимательно задание:

Ценой неимоверного напряжения физических, интеллектуальных, а также астральных сил узреваем в аргументе синуса тот самый злосчастный параметр k. И отсюда выводим радикально-кардинальную разницу в задачах: если Танечке предписано подставить k=2, то Вам надлежит подставить k=6. И, следовательно, перекатывая кусок программы, сделанной мною для Танечки, Вам нужно было всё-таки внести некоторые коррективы, а именно в Вашем случае функция будет такой:

Function F(x,y:real):real;
begin
F:= 1-Sin(x*6+y)+y/(x+2);
end;

Исправляем и радуемся жизни.

Vladimir_S

Victor81, для Вашей задачи создана отдельная тема: Решение уравнения методом Рунге-Кутты 4-го порядка .

platon

да вопрос был действительно глупый, я когда переписывал сам додумал. спасибо большое)

Vladimir_S

Между прочим, если Вы из одной команды с Cbvrf86 (а я сильно подозреваю, что это так и есть), то, как сейчас обнаружилось, преподы требуют применить несколько иную модификацию метода Рунге-Кутты. Посмотрите эту тему: Turbo Pascal. Численные методы.