Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
10th
Ноя
Вычислить методом касательных (Pascal)
Posted by obzor under Delphi
Вычислить методом касательных корень уравнения x^3-2x^2+x-3=0. Начальное приближение к корню 2.2. Абсолютная погрешность приближения не должна превышать e(задается преподавателем). e=0.1
не знаю, правильно ли я взял производную, у меня получится такой «сложный» код:
function f(x:real) : real;
// x^3-2x^2+x-3=0
begin
f := x*x*x-2*x*x+x-3
end;
function fp(x:real) : real;
// 3*x^2-4x+1
begin
fp := 3*x*x-4*x+1
end;
var x, delta : real;
begin
x := 2.2;
repeat
delta := f(x)/fp(x);
x := x - delta;
until abs(delta)<0.1;
WriteLn('x = ',x:0:4,' f(x)=', f(x):0:4)
end.
