Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вычислить интеграл Френеля

Автор: theRock 6.05.2007 23:51

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

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

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



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






Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: theRock 7.05.2007 10:51

А что не соответствует правилам форума?

Автор: klem4 7.05.2007 12:26

Цитата(rules)
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.