![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
TS* |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 71 Пол: Мужской Реальное имя: Max Репутация: ![]() ![]() ![]() |
Ошибка в решении уравнения методом деления отрезка по полам(быстрее всего в записи уравнения), не могу найти корень,
![]() Uses Crt;
Function f(x: real): real;
Begin
f :=0.95*x-23.04*exp(0.33*ln(x))+46.63*exp(0.21*ln(x));
End;
Var
x, Eps, a, b, c: real;
n: Integer;
begin
ClrScr;
Writeln('vvedite a i b'); Read(a, b);
WriteLn('vvedite Eps'); Read(Eps);
n := 0;
Repeat
c := (a + b) / 2;
If (f(a) * f(с)) < 0 Then b := c
Else a := c;
Inc(n)
Until (b - a) <= Eps;
x := (a + b) / 2;
WriteLn('корень равен x=', x:10:7);
WriteLn('количество итераций = ',n);
readln;
end.
Хотя остальные уравнения без выражения типа "exp(a*ln(x))" решаються без проблем... Сообщение отредактировано: volvo - 2.11.2006 20:07 |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Ну, вот тебе и ответ...
Ln(-100) чему равен? ![]() |
TS* |
![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 71 Пол: Мужской Реальное имя: Max Репутация: ![]() ![]() ![]() |
![]() |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 10:57 |