Readln(H);

Begin

...

F: = < результат функции >

End;

· в заголовке функции записывают имя функции, в скобках – список параметров, далее через двоеточие – тип возвращаемого значения; в приведенном примере функция F принимает один целый параметр, к которому внутри функции нужно обращаться по имени x, и возвращает целое число

· результат функции записывается в специальную переменную, имя которой совпадает с именем функции; объявлять эту переменную не нужно

· если параметров несколько, для каждого из них указывают тип:

function F(x: integer; y: integer): integer;

· если несколько соседних параметров имеют одинаковый тип, можно их объединить в список:

function F(x, y: integer): integer;

· следующая программа ищет наименьшее значение функции F(x) на интервале [a, b], просматривая значения от a до b с шагом 1:

M: =a; R: =F(a);

for t: =a to b do

if F(t) < R then begin

R: =F(t); M: =t;

End;

· цикл для поиска наибольшего значения выглядит точно так же, только знак < нужно заменить на знак >

· если функция представляет собой квадратный трехчлен вида , то абсцисса, соответствующая точке минимума, вычисляется по формуле

этот результат можно получить (вывести, если забыли), например, так:

§ в критической точке (точке минимума, точке максимума или точке перегиба) производная функции обращается в 0;

§ находим производную

§ приравниваем ее к нулю: .

· если квадратный трехчлен задан в виде , то абсцисса, соответствующая точке минимума, вычисляется по формуле

Пример задания:

Определите, какое значение H нужно ввести, чтобы число, напечатанное в результате выполнения следующего алгоритма, было наименьшим.

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: = -10; 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;