Автор: Jaxx 7.06.2004 21:52
Это снова я. Надеюсь не надоел.
Хочу узнать следующее: в чем суть решения этого уравнения? Помогите сделать, а то с математикой у меня еще хуже, чем с программированием.
Автор: Altair 7.06.2004 22:00
"суть" можно узнать здесь:
http://forum.pascal.net.ru/index.php?showtopic=1925
там почти тоже самое
Если не то, скажи
Автор: Jaxx 7.06.2004 22:05
Вообще-то предлагаю поговорить по ICQ дабы не засорять форум лишними сообщениями. В принципе там задача похожая, но я совершенно не догоняю в синусах, косинусах и т.д.
Автор: Jaxx 7.06.2004 23:28
ну допустим, есть там такое решение:
Код
program horda;
uses crt;
function f(x:real):real;
begin
f:=sin(x)-0.2*x;
end;
var
a,b,c,e,x:real;
n:integer;
begin
clrscr;
writeln('Input border [a,b]');
write('a=');
read(a);
write('b=');
read(b);
writeln('Input E');
write('E=');
read(e);
n:=0;
repeat
c:=a-((b-a)/(f(b)-f(a)))*f(a);
if f(a)*f(c)<0 then b:=c
else a:=c;
inc(n);
x:=(a+b)/2;
writeln('',n,'.',' x= ', x:5:5);
until (b-a)<=e;
x:=(a+b)/2;
writeln ('Root x= ',x:10:10);
writeln('Number of iteration ',n);
readkey;
end.
Я так понимаю, что переменной С присваивается значение, полученное при помощи формулы определения корня уравнения методом хорд? А что за функция f и что за sin(x)-0.2*x ? Это исходная формула, а если так, то у меня это 8cos(x)-2x=6, куда девать шестерку?
Автор: Altair 7.06.2004 23:37
ICQ вещь хорошая.
Если поймаешь меня в онлайн, то 191232371