Какое наибольшее целое значение h нужно ввести чтобы программка напечатала число

Какое величайшее целое значение 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) amp;gt; R) then begin M := t; R := F(H, t) end end; write(m); END.

Задать свой вопрос
1 ответ

Перед циклом вводится h и рассчитывается R = F(h,0).

В цикле для каждого целого t  (0 lt;= t lt;= 30) вычисляются значения F(h,t) = 11(t-h)^2 +13. Cм. набросок http://bit.ly/2EhdwJs.

R и m меняются тогда, когда F(h, t) превосходит значение, присвоенное ранее R, иначе m = 0.   

Функция F(h,t) на графике имеет вид параболы с направленными вверх ветвями. Минимум в точке t = h.

При h = 15 парабола симметрична условно t = 15. Значения функции в точках t = 0 и t = 30 одинаковы и R = F(15,0) в цикле превышено не будет.

Убавленье h симметрию нарушает. При h = 14  R(14,0) lt; F(14,30), после обработки условия m = 30.  Соотношение правосудно для любых h lt; 15.   

Ответ: h = 14.         

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт