VPF::[Delphi] метод хорд - Форум программистов

namra

Дата 9.10.2008, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 26.4.2007

Репутация: нет
Всего: нет

Помогите решить задачу нужно найти приблеженное значение "e=10^-4" у меня все в одну итерацию чувствую проблема с счетчиком и основным уравнением
Условие:
2^x+5*x-3

uses crt;
var
   Xn1,xn,e:real;
   n,b:integer;

   begin
   clrscr;
   b:=1;
   xn:=0;
   e:=10E-04;
   n:=0;
     repeat
         Xn1:=xn-(exp(ln(2)*xn)+5*xn-3)/((exp(ln(2)*b)+5*b-3)-(exp(ln(2)*xn)+5*xn-3))*(b-xn);
         xn:=Xn1;
         inc(n);

     until abs(Xn1)>e;

      writeln('Xn1 = ',Xn1 :0:5);
      write('iteracii = ',n );
   readkey;

   end.

Alexeis

Дата 9.10.2008, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

smith163

Дата 17.10.2008, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

Попробую помочь. У меня была подобная задача пару лет назад.

Добавлено через 8 минут и 36 секунд
uses crt;
const E=0.00001;{ точность }
var
x,a,b,y: real;
n: integer;
function fun(x:real):real;
begin
  fun:=(exp(x*ln(2))+exp(x))+5*x-2;
end;
begin
clrscr;
a:=0.1;{ [ab] отрезок на котором ищешь корень }
b:=1.0;
n:=0; { кол-во итераций }
repeat
  n:=n+1;
  if (fun((a+b)/2)*fun(a)<0) then
   b:=(a+b)/2
  else
   a:=(a+b)/2;
until (abs((a-b)/2)<=(E));
writeln('ЋвўҐв: x = ',(a+b)/2:10:10);
WriteLn('—Ёб«® Ї®ўв®аҐЁ© жЁЄ« = ',n);
readln;
end.

Писал на  турбо паскале поэтому в writeln() такая китайская грамота. Сам исправишь

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »