Метод Дихотомии

[Roland_Lviv_ua]

Надо решить любое уравнения к примеру:
F(x)=x^5-x^3+5
Методом дихотомии.

Вот код программы

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,e:real;
Function Fun(x:real):real;

begin
 Fun:=x*x-5;
end;

begin
writeln ('vvedit megi');
readln (a,b);
writeln ('vvedit tochnist obchuslenna');
readln (e);
repeat
 begin
  c:=(a+b)/2;
   if fun(a)*fun(c)<0 then
    b:=c else a:=c;
 end;
  until
   abs(b-a)<e ;
 writeln (c:2:2);
 readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Исправте пожалуйста, потому что ошибки не вижу а она есть=(

[Grag]

Используй в программе вот эту функцию

function PR(Const a : string) : string;
begin
  SetLength(result, length(a));
  CharToOem(PChar(a), Pchar(result));
end;

и выводи на экран нормальные сообщения, а не транслитерацию...

writeln(PR('Вот так выводится нормальный текст с использованием ф-ции.'))

[Gebbellz]

держи

uses crt;
function f(x:real):real;
begin
f:=x*x-5;end;
var
a,b,c,x,e:real;
i,n:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('e=');readln(e);
n:=0;
repeat
c:=(a+b)/2;
if f(a)*f(c)<=0 then b:=c else a:=c;
inc(n);
until (b-a)<=e;
x:=(a+b)/2;
writeln('корень равен=',x:10:7);
readln;
end.

[Roland_Lviv_ua]

спасибо=))
и если не секрет у меня ошибка в цикле?

[p51x]

F(x)=x^5-x^3+5

f:=x*x-5;

[Roland_Lviv_ua]

нет=))
Просто прога не решает его, а виводит верхний интервал=(