3 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 46
1

найти ошибку в функции

23.08.2010, 14:59. Показов 474. Ответов 4
Метки нет (Все метки)

Функция вычисления уравнения методом вегстейна.
не понимаю, где ошибка, помогите, пожалуйста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function Vegstein(x,eps:extended; f,fp:fun) :extended;
  var x0,x1,y0,y1,it,d,z,a,b,dc,de:extended;
  begin
   x0:=a;
   x1:=b;
   y0:=f(x0);
   y1:=f(x1);
   it:=0;
    repeat
     inc(it);
     d:=x1-x0;
     z:=x1-((y1*d)/(y1-y0);
     dc:=abc(x1-z);
     x0:=x1;
     x1:=z;
     y0:=y1;
     y1:=f(z);
    until de<eps or it>100
    result:=z;
 
  end;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.08.2010, 14:59
Ответы с готовыми решениями:

Не могу найти ошибку в функции
Всем привет! ) Вот функция, она удаляет (вырезает) совпадения в строках Memo2 ну и в Столбце...

Не могу найти ошибку в функции
Доброго времени суток.Помогите дописать программу Вычислить и вывести на экран в виде таблицы...

Найти ошибку в функции
Найти ошибку в функции function evenness(a:integer):real; begin if a mod 2=0 then...

Найти ошибку в функции
Само задание: Дан массив из М целых чисел. Если в массиве есть хотя бы одно простое число,...

4
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
23.08.2010, 15:13 2
Цитата Сообщение от Vao Посмотреть сообщение
dc:=abc(x1-z);
Если это не опечатка, то нужно
Delphi
1
dc:=abs(x1-z);
Добавлено через 57 секунд
И здесь нужно
Delphi
1
until (de<eps) or (it>100);
0
3 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 46
23.08.2010, 15:49  [ТС] 3
спасибо, но всё равно ругается на строчке inc(it);
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
23.08.2010, 15:50 4
Delphi
1
var it:integer;
0
3 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 46
23.08.2010, 18:57  [ТС] 5
спасибо, заработало =)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.08.2010, 18:57

Найти ошибку в функции
int&amp; f(){ int *a=new int; return *a; } скопилировал-ошибок нет...но тут ясно что не...

функции!найти ошибку
program soln; var a,m,x,y,t,f,result:real; function gol(a,m,x,t:real):real; begin...

Return в функции - найти ошибку
Помогите пожалуйста найти ошибку, связанную с return в функции #include &lt;stdio.h&gt; int f(Float a,...

Не могу найти ошибку в функции
не могу найти ошибку, помогите очень срочно надо. вот код #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.