Question

Какое наибольшее целое значение h нужно ввести чтобы программа напечатала число 30. var a,b,t,M,R,H :integer; Function F(H, x: integer):integer; begin F := 11*(x-H)*(x-H)+13; end; BEGIN readln(h); a := 0; b := 30; M := a; R := F(H, a); for t := a to b do begin if (F(H, t) > R) then begin M := t; R := F(H, t) end end; write(m); END.

Answer 1

Программа получает со ввода значение H и выполняет табуляцию функции F(t,H)=11(t-H)²+13 на интервале [0;30]. На вывод поступает значение t, при котором функция F(t,H) принимает максимальное значение.
В задании требуется определить максимальную величину H, при которой функция F(t,H) на заданном интервале принимает максимальное значение для t=30, т.е. на правом конце интервала.
График функции F(t,H) - это квадратная парабола, ветви которой направлены вверх, поэтому максимальное значение такой функции достигается на одном или одновременно на обоих концах интервала. Для нашего случая
F(30,H) > F(0,H)
11(30-H)²+13 > 11(0-H)²+13
11(900-60H+H²)+13 > 11H²+13
9900-660H+11H²+13 > 11H²+13
9900-660H > 0 ⇒ H < 9900/660 или H<15.
В целых числах получаем H=14 (в программе H описывается как integer).
Ответ: H=14

Answer 2

Программа, представленная в вашем вопросе, вычисляет значение функции F(H, x) для всех значений x от a до b и находит максимальное значение функции. Чтобы программа напечатала число 30, нужно ввести наибольшее целое значение H.

Решение:

В данной программе переменные a и b задают диапазон значений x, для которых будет вычисляться функция F(H, x). Переменная M хранит значение x, при котором функция F(H, x) достигает максимального значения, а переменная R хранит это максимальное значение.

Для нахождения наибольшего целого значения H, при котором программа напечатает число 30, нужно выполнить следующие шаги: 1. Введите целое значение H. 2. Инициализируйте переменные a и b со значениями 0 и 30 соответственно. 3. Установите начальные значения переменных M и R равными a и F(H, a) соответственно. 4. В цикле от a до b вычислите значение функции F(H, t) для каждого значения t. 5. Если значение функции F(H, t) больше текущего значения R, обновите переменные M и R соответствующим образом. 6. По завершении цикла напечатайте значение M.

Пример решения на языке Pascal: ```pascal var a, b, t, M, R, H: integer;

function F(H, x: integer): integer; begin F := 11 * (x - H) * (x - H) + 13; end;

begin readln(H); a := 0; b := 30; M := a; R := F(H, a); for t := a to b do begin if F(H, t) > R then begin M := t; R := F(H, t); end; end; write(M); end. ```

Примечание: Для данной программы необходимо ввести значение H, чтобы определить наибольшее целое значение, при котором программа напечатает число 30. Я не могу предоставить точное значение H, так как это зависит от логики программы и требований задачи.