Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2018, 17:52   #1
broiler747
Пользователь
 
Регистрация: 30.11.2017
Сообщений: 22
По умолчанию Проблема в цикле.

Имеется программа, решающая нелинейное уравнение. Первые три цифры считает правильно, а остальные нет. Вместо числа -0.50 должно быть -0.78.
Код:
program Project1_iready;

{$APPTYPE CONSOLE}

uses
  SysUtils;


const
    a = 1.0;
    b = 3.0;




    var
      lam, max, eps, fx : Extended;
      x0, x1 : Real;
      iter : Integer;

begin
  iter := 0;
  max := (-cos(b) + (1/b));
  lam := 1 / max;
  x0 := a;
     repeat
       fx := Ln(x0) - Sin(x0);
       Writeln( iter,'.x= f(x)=', x0:6:4, fx:6:4);
       x1 := x0 - (lam * ln(x0)) + (lam * sin(x0));
       eps := Abs(x0 - x1);
       iter := iter + 1;
       x0 := x1;
     until (eps<1e-3);
   Writeln('Answer f(x)=', fx:8:6);
   Writeln('Answer x=', x0:8:6);
   Writeln('Iterations:', iter);
  Readln;
end.
Вот какие ответы должны быть:
N x F(x)
1 1 -0.8415
2 1.6359 -0.7841
3 2.2285 -0.4434
4 2.5636 -0.1375
5 2.6675 -0.03044
6 2.6905 -0.00612
7 2.6951 -0.00121
Уравнение Lnx-sinx [1;3]

Последний раз редактировалось broiler747; 14.01.2018 в 18:09.
broiler747 вне форума Ответить с цитированием
Старый 14.01.2018, 19:58   #2
broiler747
Пользователь
 
Регистрация: 30.11.2017
Сообщений: 22
По умолчанию

Проблему решил.
broiler747 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с выводом данных в цикле С++ Inio Помощь студентам 10 27.06.2013 19:09
Проблема в цикле FOR [PHP] madmaniac Помощь студентам 3 12.01.2012 22:16
Выборка в цикле [проблема] us4us БД в Delphi 2 24.05.2011 07:34
Проблема с указателями в цикле kolob2000 Общие вопросы C/C++ 7 26.03.2010 00:54
Проблема в цикле Fekla Общие вопросы C/C++ 4 28.06.2009 12:50