Pascal не пойму в чем проблема

[Biggie Smalls]

program tp4;
type fun=function(x:real):real;
function f(x:real):real;
begin
f:=(exp(1/3*ln(4))-sqr(sin(x/10)))/sqrt(x)-x;
end;
var a,b:real;
e,x:array [1..5] of real;
i:integer;
procedure proc (a,b,e:real;f:fun;var x:real);
var fat,fxs,xs:real;
begin
repeat
xs:=(a+b)/2;
fat:=f(a);
fxs:=f(xs);
if fxs*fat>0 then
a:=xs else b:=(a+b)/2 until abs(a-b<=e;
x:=xs;
end;
begin
writeln('a,b'):readln (a,b);
for i:=1 to 5 do
begin
writeln('e[i]=');
readln(e[i]);
proc (a,b,e[i],f,x[i]);
writeln('x[i]=',x[i]:8:6);
end;
readln;
end.



Вроде все правильно, а ругается на ''e'' что не то значение

[andrewpalkin]

Ты не думал , еще написать условие , что ты пытался сделать !

[Biggie Smalls]

ой я там просто скобку забыл) теперь вот в конце ругается ошибачная ссылка на процедуру или функцию

[andrewpalkin]

program tp4;
type fun=function(x:real):real;
function f(x:real):real;
  begin
    f:=(exp(1/3*ln(4))-sqr(sin(x/10)))/sqrt(x)-x;
  end;

var 
  a,b:real;
  e,x:array [1..5] of real;
  i:integer;
procedure proc (a,b,e:real;f:fun;var x:real);
  var fat,fxs,xs:real;
  begin
    repeat
      xs:=(a+b)/2;
      fat:=f(a);
      fxs:=f(xs);
      if fxs*fat>0 then
       a:=xs else b:=(a+b)/2 
    until abs(a-b)<=e;
    x:=xs;
  end;
begin
  writeln('a,b');readln (a,b);
  for i:=1 to 5 do
    begin
      writeln('e[i]=');
      readln(e[i]);
      proc (a,b,e[i],f,x[i]);
      writeln('x[i]=',x[i]:8:6);
    end;
  readln;
end.

[andrewpalkin]

Сообщение от Biggie Smalls

ой я там просто скобку забыл) теперь вот в конце ругается ошибачная ссылка на процедуру или функцию

А тебя учили оформлять программы , что бы она была читабельна и можно было легко найти ошибки и понять какой блок к чему относится !!!

[Biggie Smalls]

неа я самоучка стараюсь как могу

[andrewpalkin]

Сообщение от Biggie Smalls

неа я самоучка стараюсь как могу

Значит старайся больше и учись на ошибках

[Biggie Smalls]

вот условие

[Biggie Smalls]

и в конце ругается что ошибочная ссылка на процедуру или функцию

[andrewpalkin]

Сообщение от Biggie Smalls

и в конце ругается что ошибочная ссылка на процедуру или функцию

Ты внимательно читаешь сообщения , я тебе выложил твой поправленный код , который работает . Для чего еще раз писать про это ???