Паскаль. Минимум функции на отрезке с точностью (см. внутри)

@Maxick94 · Регистрация: 08.12.2012

Студворк — интернет-сервис помощи студентам

Найти приближенно, с точностью до 0,01, минимум функции f(x) = ax^2 + bx + с на отрезке х1<= х <=х2. Значения х1, х2 и а, b, с ввести как константы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
a,b,c,x1,x2,x,fx,fx_min:real;
begin
read(a,b,c,x1,x2);
x:=x1;
fx_min:=a*x*x+b*x+c;
while x<x2 do
begin
fx:=a*x*x+b*x+c;
x:=x+0.01;
if fx<fx_min then
begin
fx_min:=fx;
end;
end;
writeln('Минимум функции',fx_min:0:2);
end.

С таким заданием столкнулся впервые. Не могу понять, что здесь не так.

Добавлено через 14 минут
Она то работает, но она сделана не так. Нужно, чтобы была проверка точности.

@Donokate · 05.04.2013, 20:07

Не понял вопроса...

@Maxick94 · 05.04.2013, 21:32 **[ТС]**

Вообщем, надо прочитать условие. А код - это то, что у меня получилось. Я надеюсь на помощь более разбирающихся ребят в этом деле.

@Jener · 06.04.2013, 15:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
a,b,c,x1,x2,x,fx,fx_min:real;
function f(x,a,b,c:real):real;
begin
  f := a*x*x+b*x+c;
end;
begin
read(a,b,c,x1,x2);
x:=x1;
fx_min:=f(x1,a,b,c);
while x<x2 do
begin
fx:=f(x,a,b,c);
x:=x+0.01;
if fx<fx_min then
begin
fx_min:=fx;
end;
end;
writeln('Минимум функции',fx_min:0:2);
end.

@Maxick94 · 06.04.2013, 17:08 **[ТС]**

Спасибо, но это не то. Вы сделали фактически тоже самое, что и я, но только через пользовательскую функцию.

@Maxick94 · 14.04.2013, 13:05 **[ТС]**

У меня есть вариант с массивом и изменением x1 и x2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const e=0.01;
var y:array[1..4]of real;
x,x1,x2,h:real; 
i:byte;
begin
write('Введите a,b,c,x1,x2: ');
read(a,b,c,x1,x2);
repeat
h:=(x2-x1)/3;
for i:=1 to 4 do
begin
x:=x1+(h*(i-1)); 
y[i]:=a*sqr(x)+b*x+c;
end;
if (y[1]>y[2]) and (y[2]>y[3]) then
x1:=x1+h
else 
x2:=x2-h;
until abs(y[3]-y[4])<e;
writeln('x= ',x:10:8); writeln('f= ',y[4]:10:8);
end.

Мне нужно без массива и не трогать x1 и x2. В условии сказано, что их ввести как константы, т.е. ввести с клавиатуры и не изменять.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Donokate 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 8
	05.04.2013, 20:07
	Не понял вопроса... 0

@Maxick94 1 / 1 / 1 Регистрация: 08.12.2012 Сообщений: 47
	05.04.2013, 21:32 [ТС]
	Вообщем, надо прочитать условие. А код - это то, что у меня получилось. Я надеюсь на помощь более разбирающихся ребят в этом деле. 0

@Maxick94 1 / 1 / 1 Регистрация: 08.12.2012 Сообщений: 47
	06.04.2013, 17:08 [ТС]
	Спасибо, но это не то. Вы сделали фактически тоже самое, что и я, но только через пользовательскую функцию. 0