IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Метод хорд. график.
Tay
сообщение 22.04.2005 17:01
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской

Репутация: -  0  +


Вот другая задача не запускается. Где ошибка?

Код
program;

  function f(x: double): double;
  begin
     f:=(4+sqr(x))*(exp(x)-exp(-x))-18;
  end;

  function chord(a, b: double): double;
  begin
     chord:=(f(b)*a-f(a)*b)/(f(b)-f(a));
  end;

var  n:integer;
    x, a, b, c, eps: double;
begin
  n:=0;
  writeln('BBeguTe 3Ha4eHu9I a u b');
  read(a, b);

  writeln('BBeguTe To4HocTb eps');
  read(eps);
  a:=1.2;
  b:=1.3;

  repeat
     c:=chord(a,b);
     if f(a)*f(c)>0 then a:=c
     else b:=c;
     inc(n);
  until abs(chord(a,b)-c)<eps;
  x:=c;
  writeln('KopeHb paBeH x = ',x:10:7);
  writeln('Ko/\/\u4ecTBo uHTepaaL|uu` = ', n);
  readln;
  readln;
end.


Условие задачи которая не запускается:
Составить программу нахождения приближенного значения корня уравнения в интервале методом хорд с точностью е. Обеспечить в программе построение графика, иллюстрирующего задание

Сообщение отредактировано: volvo - 22.04.2005 17:20


--------------------
Никакие рассуждения не в состоянии указать человеку путь, которого он не хочет видеть.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 22.04.2005 17:19
Сообщение #2


Гость






Tay,
какое отношение метод хорд имеет к длинночисленной арифметике, можно поинтересоваться? Или может график к этому имеет отношение?

Это первое. Ну, а второе - что значит
Цитата
Вот другая задача не запускается. Где ошибка?
Что, при компиляции ошибка не выдается? Или программа проходит компиляцию и запускается, но вылетает с ошибкой?

Мне почему-то представляется несколько иной вариант: кто-то хочет, чтобы ему написали, отладили и откомментировали программу, а уж потом он соизволит ее откомпилировать и запустить angry.gif
Иначе выражения "где ошибка?" я понять не могу...
 К началу страницы 
+ Ответить 
Altair
сообщение 22.04.2005 17:21
Сообщение #3


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Программа демонстрирует графический способ нахождения корней методом хорд


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Tay
сообщение 22.04.2005 19:27
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 22.04.05 18:19)
Tay,
какое отношение метод хорд имеет к длинночисленной арифметике, можно поинтересоваться? Или может график к этому имеет отношение?

Это первое. Ну, а второе - что значит
Что, при компиляции ошибка не выдается? Или программа проходит компиляцию и запускается, но вылетает с ошибкой?

Мне почему-то представляется несколько иной вариант: кто-то хочет, чтобы ему написали, отладили и откомментировали программу, а уж потом он соизволит ее откомпилировать и запустить  angry.gif
Иначе выражения "где ошибка?" я понять не могу...

Нет ты неправильно понял.Я не мог понять где у меня ошибка. Когда я запускал прогу меня выбрасывало из паскаля.
P.S. я её исправил сам все дело было в компиляторе


--------------------
Никакие рассуждения не в состоянии указать человеку путь, которого он не хочет видеть.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 6:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"