Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

Имеется программа, решающая нелинейное уравнение. Первые три цифры считает правильно, а остальные нет. Вместо числа -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 в 19:09.
broiler747 вне форума   Ответить с цитированием
Старый 14.01.2018, 20:58   #2
broiler747
Пользователь
 
Регистрация: 30.11.2017
Сообщений: 22
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с выводом данных в цикле С++ 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 01:54
Проблема в цикле Fekla Общие вопросы C/C++ 4 28.06.2009 12:50


02:31.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru