Помогите безотлагательно!!!Нужна программка!!!

Напишите в каком городе и в какой школе задают такие задачи

Hambis, обычной прикол, на самом деле. ИнформатикБУ, я бы поглядел на такую программку для стиральной машины.

Это не школьное задание

Это норма за 11 либо даже 10 класс, десу.

А нешкольное мы удалям сразу. По нашим Правилам.

"Это не школьное задание" - неувязка в том, что веб-сайт предназначен для школьных задач. Выкладывание вузовских/технарских задач - нарушение.

В принципе, ничего в задании нет необыкновенного. Обычная табуляция и вычисление суммы ряда

Вывода формул не нужно.

Мы е устраняем заданий первокурсников вузов и колледжей, если они не требуют спецзнаний, которых у школьника нет.

*не удаляем

Программка и пример её работы - в прилагаемом файле

Интересно, составитель задачки сам её писал? При отрицательном x отдаёт NaN, так как пытаемся вычислить квадратный корень отрицательного числа
//Pascal ABC.NET v3.0 сборка 1111

Var
 a,b,h,f1,f2,e,x,g:real;
 k,i:integer;

 function fact(n:integer):integer;
Var i,r:integer;
begin
r:=1;
 for i:=1 to n do
  r:=r*i;
fact:=r;
end;

begin
 read(a,b,h,e);
 x:=a-h;
 i:=1;
 writeln('':4,' ','X':4,'  Sum value:':10,'  y(x) value:':10,'       y');
 while xlt;b do
  begin
   x+=h;
   f2:=(x+1-sqrt(x))*exp(sqrt(x))-(x+1+sqrt(x))*exp(-sqrt(x));
   k:=1;
   f1:=(8*sqrt(x)*x)/fact(2*k+1);
   g:=f1;
    while абс(g)gt;e do
     begin
      inc(k);
       g:=(8*sqr(k)*sqrt(x)*power(x,k))/fact(2*k+1);
       f1+=g;
     end;
   writeln(i:4,' ',x:4,'  ',f1:3:2,'        ',f2:3,'  ',абс(f1-f2):4);
   inc(i);
   end;
end.


Пример ввода:
0.25
1
0.25
0.0001
Пример вывода:
       X  Sum value:  y(x) value:       y
   1 0.25  0.18        0.175112298527988  2.45214984428976E-09
   2  0.5  0.52        0.51982336355304  1.11228378951722E-07
   3 0.75  1.00        1.0012462553695  1.03686469699049E-06
   4    1  1.61        1.61464350494472  4.65512599578943E-08