Помогите написать программу

[AZelensky]

Не используя стандартные функции, вычислить с точностью EPS>0

Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N (|IXI|<1)

(Где ^N означает число в степени N)| Если (-1)^N*X^N/N |<EPS, то прекращать

[rrrFer]

Язык какой?

Код: Выделить всё

float s, eps, t1;
t1 = 1;

for (int i = 1;; ++i) {
  t1 *= x;
  if (t1 / i < eps) break;
  s += t1 / i;
}

Вроде бы так на плюсах.

[AZelensky]

Язык какой?

Код: Выделить всё

float s, eps, t1;
t1 = 1;

for (int i = 1;; ++i) {
  t1 *= x;
  if (t1 / i < eps) break;
  s += t1 / i;
}

Вроде бы так на плюсах.

На Pascal. И не нужно использовать в программе стандартные функции

[rrrFer]

Я никаких функций вообще не использовал. Суть алгоритма я думаю понятна, на паскаль сами не перепишите что-ли?

[Kleper]

Добрый вечер просьба помочь в решение задачки!

1.Задачка-Задать массив структур станций метро результат в канцоле!
Кто-то сможет код обозначить через 2 слеша что каждая функция делает!
Кто может киньте код.

Язык C не С++