Курсовая для первого курса, спасайте или выгонять меня... Опции

[Floyd]

Приветсвую всех. Прошу помоч сделать мне курсовую.
Тут отксерино все мое задание

http://img185.echo.cx/img185/2035/11by.th.gif

Я тут новенький и очень надеюсь на вашу помощ, еще неделя и нужно сдавать, если не сдам выгонят. Буду жутко признателен тому кто поможет. А отплатить... единственное что могу, так это сделать аватар любой сложности...
З.Ы.Хотя сомневаюсь что это кому то нужно сдесь...

Я присоединил изображение...

Сообщение отредактировано: volvo - 7.05.2005 21:25

[Floyd]

Люди помогите решить последние задание... а-то у меня проблемка вышла.
____
Взять интеграл от фунции вот такой
http://img185.echo.cx/img185/7906/14lg.gif
от a до b. Где a=0.2 и b=0.3.
Для вычислений использовать формулу трапеций и еще и формулу Симпсона.
И что б ответы совпали...
____
Разве ArcSin := ArcTan(x / (1 - Sqr(x))) .. там еще двока перед иксом должна быть, ведь так?
ArcSin := ArcTan(2*x / (1 - Sqr(x)))

____
В общем вот мое решение через процедуру (так в задании написано) которое выдает ошибку плавающей точки..

 
procedure intg(var int1,int2:real);
var h,suma,suma2,suma3,m:real; c:array[1..8] of real; y:array [1..8] of real;
 i,g,k,q:integer;
   begin
      clrscr;
c[1]:=0.2;    q:=8; h:=0.0125;
for i:=2 to 8 do begin
c[i]:=c[i-1]+h;
  for g:=2 to (q-1) do begin
  c[i]:=c[g];
  suma:=c[g]+suma; end;
  int1:=(h/2)*(2*suma+y[1]+y[q]); {за формулой Трапеции}
   
 for k:=2 to q-1 do begin
      c[g]:=c[k];
      m:= k mod 2;
      if m=0 then
      suma2:=suma2+f(c[k])
      else
      suma3:=suma3+f(c[k]); end;         end;
int2:=(h/3)*(c[1]+4*suma2+2*suma3+c[q]); {а это уже за Симпсоном}
writeln(int1);
writeln(int2);  readln  end;

З.Ы. f - это фунция кторую выше написал volvo