Цитата:
Сообщение от Madara
И можете примерно описать как такие программы пишутся, вообще тьма.
|
В принципе - методом изучения программирования, чтения всяких книжек и пособий, а главное - проб и ошибок. В конце концов должно получиться что-то в таком роде:
Код:
Var
Eps:Array[1..5] of Real;
i:Integer;
Res:Real;
Function F(x:real):real;
begin
F:=Sqr(Sin(x)+Cos(x))/Exp(Ln(33.5)*2/3)+Sqrt(3/7)-x;
end;
Procedure EQRoot(e:real; var R:Real);
var
a,b,c:real;
begin
a:=0.0;
b:=2.0;
Repeat
c:=(a+b)/2;
if F(a)*F(c)<0 then b:=c else a:=c;
Until b-a<e;
R:=c;
end;
Begin
Eps[1]:=0.1;
for i:=2 to 5 do Eps[i]:=Eps[i-1]/10;
for i:=1 to 5 do
begin
EQRoot(Eps[i],Res);
Writeln(Res:12:10);
end;
Readln
End.