Паскаль. Численное интегрирование

[Timurchik]

Паскаль. Численное интегрирование

Ребят, я понимаю вы писали типо, что пора бы уже это знать и тд. tehno036Но боюсь мне этого за несколько дней не понять, помогите пожалуйста Очень нужно!!!:tehnari_ru_837:

 

[Timurchik]

И еще, я взял у одногруппника его задание, он говорил можно переделать, но я не знаю как:tehnari_ru_281:

program Aplomba;

Type
 mas=array[1..100] of real;

Var
 A,B,XM,XN,DX,xo,G1,G2,H,EPS,I1,I2:real;
 U,N:byte;
 X,Y: mas;
 I,J,KM,K:integer;

function F(x:real):real;
begin
 F:=a*b*sqr(sin(2*3.14*x))/sqrt(x);
end;

Begin
 writeln('vvedite G1, G2, EPS, KM, A, XN, DX, N');
 readln (G1, G2, EPS, KM, A, XN, DX, N);
 writeln ('G1=', G1:5:2, 'G2=', G2:5:2, 'EPS=', EPS:5:3, 'KM=', KM:5);
 B:=xo;
 I1:=0;
 K:=4;
 for J:=1 to KM do
  begin
   xo:=xo + H; I2:=I2+F(xo); H:=(G2-G1) / K; I:=1;
   repeat
    xo:=xo+H;
    I2:=I2+F(xo);
    inc(I);
   until I>=K;
   I2:=I2*H;
   if abs (I1-I2)>EPS then
    begin
     I1:=I2;
     K:=2*K;
    end
   else
    begin
     { J:=KM;} {Переменная не известного значения. Указывает на цикл в цикле}
     writeln('integral=', I2:10:5);
     exit;
    end;

   B:=I2;
   begin
    U:=1;
    x[u]:=XN;
    FOR U:=1 TO N DO
     X[u]:=x[u-1] + DX;
   end;
    FOR U:=1 TO N DO
     begin
      writeln('B=',B:10:7);
      Y[u]:=A*B*(sqr(sin(2*3.14*x[u]))/sqrt(x[u]));
      writeln('X[',u,']=',X[u]:10:5,'Y[',u,']=', Y[u]:10:5);
     end;
   writeln('reshenie ne naideno');
  end;
End.

 

[Vladimir_S]

И еще, я взял у одногруппника его задание, он говорил можно переделать, но я не знаю как

Мне жаль Вас огорчать, но Ваш друг, увы, подсунул Вам абсолютно безграмотную чушь, переделывать которую - только время терять.
Если дело терпит, то вечером нарисую, как надо.
А пока - несколько вопросов, на которые хотелось бы получить ответы.

1. Что означает п.1) - "Табл. Ф-ияf(x,a,b)"? К чему это?
2. Оговорен ли метод численного интегрирования? Прямоугольники? Трапеции? Симпсон? Без разницы?
3. То, что под п.3) - это подынтегральная функция? Зачем там вертикальная черта? И действительно ли там cos²(6), то есть константа? Или может быть там должно быть cos²(у), где у задается представленной ниже ветвящейся функцией?

P.S. Сразу предупреждаю - тупые отговорки типа "а мне так дали!" не катят!

 

[Vladimir_S]

Если дело терпит, то вечером нарисую, как надо.

И молчание было ему ответом...

Но в любом случае, к сожалению, вынужден отменить обещание, и не по своей вине. Просто рассмотрел внимательно это так называемое "задание".
Значит, так.
Мало того, что там хаотично разбросаны группы каких-то значков, а пункты 1), 2), 3) и вовсе непонятно к чему относятся, так еще и полная непонятка с интегралом.
Начать с того, что положительный нижний предел и отрицательный верхний - это более, чем странно. Хотя математика такого формально и не запрещает. Но вот дальше... Если считать выражение, стоящее в строке под номером 3) справа, подынтегральной функцией, то такая функция прямо-таки повергает в шок. Видите ли, множитель х в степени 2х, с учетом отрицательного верхнего предела, предполагает возведение отрицательного числа в дробную степень. Сразу скажу, что в пределах множества вещественных чисел такая операция некорректна.
Короче говоря, так.
Чтобы мы могли Вам помочь, Вы должны выложить ясно, четко и однозначно сформулированную задачу, а не эту каляку-маляку. Где Вы ее возьмете - Ваши проблемы.
И еще раз повторю: всякие "а мне так дали!" нас просто не интересуют.