не могу написать программу.

[Нютик]

Пожалуйста помогите создать программу через
repeat.... until

f(x)=3.23x-13.7+(e^x)-(e^-x) на инервале [1; 3] c погрешностью 0.00015

буду очень благодарна!

[Mad_Cat]

Пожалуйста помогите создать программу через
repeat.... until

и чего сделать то надобно???
Уравнение что ль решить?
Каким способом?

Методом деления пополам вычислить корень уравнения, расположенный на интервале [a ; b] c абсолютной погрешностью;
определить число итераций, необходимое для нахождения корня.

и в чем сложность то? исходников в сети море

[Нютик]

Методом деления пополам вычислить корень уравнения, расположенный на интервале [a ; b] c абсолютной погрешностью;
определить число итераций, необходимое для нахождения корня.

[Mad_Cat]

(с) Puporev
вам осталось только заменить функу на свою

uses crt;
function F(x:real):real;
begin
F:=x*x-1;
end;
procedure Bisec(a,b,e:real;var x:real);
var c:real;
begin
if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end
else x:=a-1;
end;
var a,b,x,e:real;
begin
clrscr;
writeln('Найти корень функции F(x)=x^2-1');
write('Начало интервала: ');readln(a);
repeat
write('Конец интервала: ');readln(b);
until b>a;
repeat
write('Точность: ');readln(e);
until (e>0)and(e<1);
Bisec(a,b,e,x);
if x=a-1 then write('На данном интервале корней нет!')
else writeln('x=',x:0:5);
readln
end.

[Нютик]

Спасибо большое! )