Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - Turbo Pascal (33771)

Формулировка задачи:

Сам бы все это дело сделал бы да не могу у меня комп слишком "Старый" Для "Новейшего" Turbo Pascal 7.0 )) Ребят, я серьезно намучился с этими дос боксами и установкой винды на виртуалку(Так не канает).... Вообще ужс... Ошибки выдает которых у меня нет вовсе(Я про другие писанные мной программы). Я уже путаюсь в правильности написанных мной прорамм... Мне нужно 3 задания сделать. ------------------------------------------- 3.(Математику не знаю) Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до xкон с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. [удалено]

Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора»

Листинг программы

uses crt;
{ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г* ГўГ»Г·ГЁГ±Г«ГҐГ*ГЁГї Г±ГіГ¬Г¬Г» Г°ГїГ¤Г*(s) ГЁ Г·ГЁГ±Г«Г* ГЁГІГҐГ°Г*Г¶ГЁГ©(i)}
procedure F(x,e:real;var s:real;var i:longint);
var t:real;
begin
s:=x;{Г*Г*Г·Г*Г«ГјГ*Г»ГҐ Г§Г*Г*Г·ГҐГ*ГЁГї ГЇГ°ГЁ i=1}
t:=x;
i:=1;
while abs(t/(2*i+1))>e do{ГЇГ®ГЄГ* Г¬Г®Г¤ГіГ«Гј Г®Г·ГҐГ°ГҐГ¤Г*Г®ГЈГ® Г·Г«ГҐГ*Г* Г°ГїГ¤Г* ГЎГ®Г«ГјГёГҐ ГІГ®Г·Г*Г®Г±ГІГЁ}
 begin
   i:=i+1;{Г*Г*Г°Г*Г№ГЁГўГ*ГҐГ¬ Г±Г·ГҐГІГ·ГЁГЄ}
   t:=t*x*x;{Г¤Г®Г¬Г*Г®Г¦Г*ГҐГ¬ Г*Г* x^2}
   s:=s+t/(2*i-1);{Г¤ГҐГ«ГЁГ¬ Г*Г* Г®Г·ГҐГ°ГҐГ¤Г*Г®ГҐ Г*ГҐГ·ГҐГІГ*Г®ГҐ ГЁ Г±ГіГ¬Г¬ГЁГ°ГіГҐГ¬}
 end;
s:=2*s; {ГіГ¬Г*Г®Г¦Г*ГҐГ¬ Г*Г* 2}
end;
var xn,xk,e,dx,s:real;
    n:longint;
begin
clrscr;
repeat
write('Г‚ГўГҐГ¤ГЁГІГҐ Г*Г*Г·Г*Г«Г® ГЁГ*ГІГҐГ°ГўГ*Г«Г* -1<xn<1 xn=');
readln(xn);
until (xn>-1)and(xn<1);
repeat
write('Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г*ГҐГ¶ ГЁГ*ГІГҐГ°ГўГ*Г«Г* ',xn:0:1,'<xk<1 xk=');
readln(xk);
until (xk>xn)and(xk<1);
repeat
write('Г‚ГўГҐГ¤ГЁГІГҐ ГІГ®Г·Г*Г®Г±ГІГј Гў ГЁГ*ГІГҐГ°ГўГ*Г«ГҐ (0,1) e=');
readln(e);
until(e>0)and(e<1);
repeat
write('Г‚ГўГҐГ¤ГЁГІГҐ ГёГ*ГЈ ГІГ*ГЎГіГ«ГїГ¶ГЁГЁ, ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г®ГҐ Г·ГЁГ±Г«Г® Г¬ГҐГ*ГјГёГҐ ',xk-xn:0:2,' dx=');
readln(dx);
until (dx<xk-xn)and(dx>0);
clrscr;
writeln('      Г’Г*ГЎГ«ГЁГ¶Г* ГІГ*ГЎГіГ«ГЁГ°Г®ГўГ*Г*ГЁГї ГґГіГ*ГЄГ¶ГЁГЁ ln((1+x)/(1-x))');
writeln('Г*Г* ГЁГ*ГІГҐГ°ГўГ*Г«ГҐ ',xn:0:2,'  ',xk:0:2,' Г± ГёГ*ГЈГ®Г¬ ',dx:0:2,' Г± ГІГ®Г·Г*Г®Г±ГІГјГѕ ',e:0:6);
writeln('----------------------------------------');
writeln('|       |           |     1+x    |     |');
writeln('|   x   | ГўГ»Г·ГЁГ±Г«ГҐГ*Г® |  ln-----   |  n  |');
writeln('|       |           |     1-x    |     |');
writeln('----------------------------------------');
while xn<=xk+e do
 begin
  F(xn,e,s,n);
  writeln('|',xn:6:2,' |',s:10:6,' |',ln((1+xn)/(1-xn)):10:6,'  |',n:4,' |');
  xn:=xn+dx;
 end;
writeln('----------------------------------------');
readln
end.

Объяснение кода листинга программы

В начале кода объявлены переменные x, e, s и n типа real. Переменная x будет использоваться для хранения значения функции, а переменная e - для хранения значения параметра e. Переменная s будет использоваться для хранения промежуточных результатов вычислений. Переменная n будет использоваться для хранения целочисленного значения, которое будет увеличиваться на каждом шаге цикла.
Затем объявлены две переменные xn и xk типа real. Переменная xn будет использоваться для хранения начального значения функции, а переменная xk - для хранения конечного значения функции.
Далее объявлена переменная e типа real. Переменная e будет использоваться для хранения значения параметра e.
Затем объявлена переменная dx типа real. Переменная dx будет использоваться для хранения разности между xk и xn.
После этого начинается цикл, который выполняется до тех пор, пока xn меньше xk и e больше или равно нулю. Внутри цикла вызывается функция F(xn,e,s,n), которая вычисляет значение функции для xn и e. Результат вычислений сохраняется в переменной s.
Затем выводится таблица значений функции. Для каждой строки таблицы выводятся значения xn, s, ln((1+xn)/(1-xn)) и n. Значение ln вычисляется с помощью функции ln и сохраняется в переменной s.
После вывода таблицы значений функции выполняется переход к следующей итерации цикла. Значение xn увеличивается на dx.
Цикл продолжается до тех пор, пока xn не станет больше xk и e не станет меньше или равно нулю.
По завершении цикла выводится последняя строка таблицы значений функции.
Конец программы.