Regula Falsi

Regula Falsi yöntemiyle lineer olmayan denklem çözümleri

uses crt;
var td,x,y,maks:real;
k:integer;
label tekrar,son;
function g(x:real):real;
begin
g:=(exp(x)-sin(x))/3;
end;
begin clrscr;
writeln('tolerans de§eri gir');readln(td);
k:=1;
writeln('x0 de§eri gir');readln(x);
writeln('maks iterasyon sayısı gir');readln(maks);
tekrar:k:=k+1;if k>=maks then goto son;
y:=g(x);
if abs(y-x)>=td then begin writeln(y:0:4);
x:=y;goto tekrar;end else writeln('k”k=',y:0:4);
son:writeln('iterasyon sayısı=',k);
readln;
end.