![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Sensitive |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 132 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Здравствуйте!
Мне необходимо найти минимум функции с помощью метода половинного деления на заданном отрезке (с точность Е) Вот то, что получилось у меня, но работает не верно. Возможно Вы увидите ошибку в коде. uses crt;
function f(x:real):real;
begin
f:=sqr(x-4)*sqr(x-4); {сама функция}
end;
var x,y:array [1..50] of real;
eps,min,a,b:real;
i,n:byte;
begin
clrscr;
write('vvedite a = '); readln(a); {начало отрезка}
write('vvedite b = '); readln(b); {конец отрезка}
write('vvedite eps = '); readln(eps); {точность}
min:=f(x[1]);
x[1]:=a;
x[5]:=b;
repeat
x[3]:=(x[5]-x[1])/2;
x[2]:=(x[3]-x[1])/2;
x[4]:=(x[5]-x[3])/2;
for i:=1 to 5 do
begin
y[i]:=f(x[i]);
if y[i]<min then
begin
min:=y[i]; n:=i;
end;
end;
x[1]:=x[n-1];
x[5]:=x[n+1]
until x[5]-x[1]<eps;
writeln('x = ',x[n]:0:5);
writeln('min = ',min:0:5);
readln;
end.
|
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 5:54 |