Вычислить интеграл Френеля, Итерационные циклы Опции

[theRock]

Очень нужно к завтрашнему дню.
Думаю это будет несложно.
Само задание в файле-картинке

Кто решит, тому подарок -семизначный ICQ
За призом обращаемся в <cut>
Заранее благодарен

!

читаем правила форума

М

Перенести в задачи на заказ ?

Сообщение отредактировано: klem4 - 6.05.2007 20:16

[klem4]

1. на форуме запрещается: 12. просить ответить на какой-либо e-mail... e-mail адреса вырезаются. Уважайте собеседников - вы пришли на форум а не на доску объявлений...

icq сюда тоже относится ...



Добавлено через 16 мин.
Проверт вот это:

const
  eps = 10E-4;

var
  x, x2, s, next: Single;
  fact, zn, i, sign: LongInt;
begin

  x  := 1.56;
  x2 := x * x;
  zn := 3;

  fact := 1;
  sign := 1;
  s := 0;
  i := 1;

  repeat
    next := sign * x / (fact * zn);
    s := s + next;
    zn := zn + 4;
    inc(i, 2);
    fact := fact * (i - 1) * i;
    x := x * x2;
    sign := -sign;
  until abs(next) < eps;

  writeln(s:6:5);
end.