Если честно, вообще ничего не получается).....уже так запуталась, что вообще "соображалка" не работает.....
Ну вот как нам объяснили это задание......даже просто по составлению алгоритма: алгоритм должен включать в себя главную программу и процедуры.
В начале считаем параметр B через вычисление интеграла...Я показала вот такую программку:
Program G;
CONST
a=2,51
b=-0,69
var
y=real;
Function I0 (x: real): Real;
begin
I0:=0,5*sin(x*2);
end;
Function I1 (x: real): Real;
begin
I1:=cos(x*2)/4+x*sin(x*2)/2;
end;
Function I2 (x: real): Real;
begin
I2:= x/2*cos(x*2)+(sqr(x)/2-0,25)*sin(x*2);
end;
Function I3 (x: real): Real;
begin
I3:= (sqr(x)*0,75-0,375)*cos(x*2)+(x*sqr(x)/2-0,75*x)*sin(x*2);
end;
Function I4 (x: real): Real;
begin
I4:= sqr(sqr(x))*sin(x*2)/2-2,0*((sqr(x)*0,75-0,375)*sin(x*2)-(x*sqr(x)/2-x*0,75)*cos(x*2));
end;
BEGIN
y:= (I4(b)+I3(b)*2+I2(b)*5+I1(b)*4+I0(b)*4)-(I4(a)+I3(a)*2+I2(a)*5+I1(a)*4+I0(a)*4);
Writeln ('B = ' , y:8:5);
Readln;
END.
Мне сказали, что вообще не правильно.....интеграл необходимо рассчитывать методом трапеции.
После этого мы должны взять массив, в котором должны включить циклический процесс для прокрутки параметра A с аргументом X....
Я что-то вот из таких объяснений не совсем понимаю как нужно полностью оформить эту программу....
Очень надеюсь на вашу помощь....сегодня вечером уже сдавать.....Просто молю о помощи!)