Лабораторная по паскалю, мат функцию расписать надо

[Serious]

Вложен вордовский файл. Слева изначальный код, работающей проги.
справа, то что у меня получилось.
У меня она явно моя не пашет.
Все подробности мягко говоря во вложении но суть такая.
Там две функции, вторая следует из первой, первая 100% у меня правильно, а вот вторую расписать не могу.

[Serious]

Если кто сможет помочь напишите

[ОДИНОЧЕСТВО В СЕТИ]

У тебя в первой функции + и - перепутаны

[Serious]

спс, только это сильно ситуацию не спасает, прога как не работала так и не работает

[ОДИНОЧЕСТВО В СЕТИ]

За исключение кучи не использующихся переменных -прога рабочая

[Serious]

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

[ОДИНОЧЕСТВО В СЕТИ]

1) забыли обнулять переменные k1 и m1
2) f2_2 должно быть равно 0 а не f2_1;
3) F2_3 та же история что и с f2_2

[Serious]

имхо, не работает.
вроде бы всё учёл. во вложении код. результат совсем не тот

[ОДИНОЧЕСТВО В СЕТИ]

вроде бы всё учёл

а ns и ms кто обнулять будет перед каждым repeat ?
И еще ms и ns у вас неправильно считаются -вот

[Serious]

а они обнуляються в самом начале и они разные для каждой из функции, прости, ты компелил прогу, работает или на глаз?