метод простых итераций c

Ответ от Дмитрий[новичек]
На Visual Fox Pro х.з. (его где вообще применяют?). А вот на паскале решение уравнения//Какое уравнение надо решатьfunction f(x:real):real;beginresult:=exp((1/3)*ln((7*x*x-2*x+5)/3)); //здесь функция y=f(x)end;//Решениеprocedure TForm1.Button4Click(Sender: TObject);varx,x0:real;k:word;begina:=StrToFloat(Edit1.Text); //начало отрезкаb:=StrToFloat(Edit2.Text); //конец отрезкаe:=StrToFloat(Edit3.Text); //точностьk:=0;x0:=2.3+random/10;While abs(x-a)>e do begin inc(k); x:=fi(x0); a:=x0; x0:=x; end;Label4.Caption:=\'Решение уравнения: \'+FloatToStr(x);Label5.Caption:=\'Число итераций: \'+IntToStr(k);end;