Нужна блок-схема

[Ragnaros]

Доброго времени суток! Срочно нужна помощь с блок-схемой н данную процедуру. Заранее спасибо!

function f1(x:real):real;
begin
f1:=(x*x+1)*(x*x+1)*exp(2*x)*x;
end;

procedure fb(a,b:real; eps:real; var i2:real);
var h,t,c,i1:real;
k,I,p:integer;
 begin
 if a>b then
 c:=a;
 a:=b;
 b:=c;
 end;
i1:=0; i2:=0;
k:=4; p:=1
repeat
 t:=a;
 h:=(b-a)/k;
 i2:=f1(t);
 i:=1;
 repeat
 t:=t+h;
 i2:=i2+f1(t);
 until i>=k-1;
 i2:=i2*h;
 if(abs(i1-i2)>eps) then
 begin
  i1:=i2;
  k:=k*2;
  i2:=0;
 end
 else
 p:=0;
 until p=0
 end;

[Multiman]

http://www.fceditor.com/

[whatever]

Ты ее хотябы напиши сначала так, чтоб она работала.

[Ragnaros]

Это кусок из программы. Вся программа в целом работает.
FCEeditor не хочет это рисовать)

[McFrey]

50 руб на счет мобильного телефона, если интересно пиши icq 603442891...

P.S. уже сколько раз читаю "вашу работу за вас делать никто просто так не будет" ...а людям все толку никакого...жаль(

[whatever]

Сообщение от Ragnaros

Это кусок из программы. Вся программа в целом работает.
FCEeditor не хочет это рисовать)

Да ну? Ну если так, то сто пудов работает не верно.

procedure fb(a,b:real; eps:real; var i2:real);
var h,t,c,i1:real;
k,I,p:integer;
 begin
 if a>b then //здесь бегин забыли
 c:=a;
 a:=b;
 b:=c;
 end;    //и вот тут процедура закончилась
i1:=0; i2:=0;
k:=4; p:=1 //а тут ";" нехватает
repeat
 t:=a;
 h:=(b-a)/k;
 i2:=f1(t);
 i:=1;
 repeat
 t:=t+h;
 i2:=i2+f1(t);
 until i>=k-1;
 i2:=i2*h;
 if(abs(i1-i2)>eps) then
 begin
  i1:=i2;
  k:=k*2;
  i2:=0;
 end
 else
 p:=0;
 until p=0
 end;

Так что если не запускал - так и скажи. Поправь где я откоментировал и FCEedidor все нарисует, правда ему нужно тело программы, ну это тоже еще пять строчек, тем более если у тебя программа есть, то и их писать не нужно.