Форум программистов, компьютерный форум, киберфорум
Наши страницы

решение нелинейного уравнения. Метод Ньютона - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Решение уравнения с используя функцию http://www.cyberforum.ru/cpp-beginners/thread622297.html
Используя пользовательскую функцию (одну для двух сумм) рассчитать по формуле:
C++ Реализовать в виде модуля набор подпрограмм для работы с многочленами Реализовать в виде модуля набор подпрограмм для работы с многочленами от одной переменной (1й степени t, 2й степени n). 1) сложение 2) вычитание 3) умножение 4) деление с остатком 5)... http://www.cyberforum.ru/cpp-beginners/thread622293.html
Круг и прямая C++
Дорогие форумчане! Не откажите в помощи, если есть идеи по заданию. Алгоритм или небольшая помощь с кодом На плоскости заданы множество точек М и круг. Выбрать из М две различные точки так, чтобы...
Ввод строки из потокового файла целиком C++
В файле строка format ascii 1.0, оператор File>>Buffer; вводит только "format". А как ввести целиком до символа перевода строки?
C++ Дано целое число N и набор из N целых чисел, упорядоченный по возрастанию. http://www.cyberforum.ru/cpp-beginners/thread622246.html
вот задание Дано целое число N и набор из N целых чисел, упорядоченный по возрастанию. Данный набор может содержать одинаковые элементы. Вывести в том же порядке все различные элементы данного...
C++ Дано два числа А и В (А<В). Вывести в порядке увеличения все целые числа Дано два числа А и В (А<В). Вывести в порядке увеличения все целые числа, расположеные между А и В(не включая чисед А и В), а также количество N этих чисел. подробнее

Показать сообщение отдельно
Masham
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 15

решение нелинейного уравнения. Метод Ньютона - C++

11.07.2012, 14:01. Просмотров 596. Ответов 0
Метки (Все метки)

Здравствующие, помогите, пожалуйста, перенести программу с Делфи на С++, т.к. на ни на Си, ни на С++ не работала.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
  function f(x:single):single;
begin
  Result:=Sin(x)+x-1;
end;
 
//Производная
function df(x:single):single;
begin
  Result:=cos(x)+1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x0, xn, a, e : real;
begin
  a:=strtofloat(edit1.Text);
  e:=strtofloat(edit3.Text);
 
  x0:=a;
  xn:=x0-(f(x0)/df(x0));
  // поиск корня
 
  while abs(x0-xn)>e do
  begin
    x0:=xn;
    xn:=x0-(f(x0)/df(x0));
  end;
  edit4.Text:=FloatToStr(xn);
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.