вычислите У при заданнх значениях Х: у:=6х2 3(х2 х 4)

function rez( x: real ): real;var y: real;beginy := 6 * x * x + 3 * ( x * x + x + 4 );writeln(y);end;var a: array[1..4] of real;begina[1] := -0.5;a[2] := 0.11;a[3] := -2.66;a[4] := 10;writeln('Значение функции y при х = ', a[1]);rez(a[1]);writeln('Значение функции y при х = ', a[2]);rez(a[2]);writeln('Значение функции y при х = ', a[3]);rez(a[3]);writeln('Значение функции y при х = ', a[4]);rez(a[4]);end.

Сначала немного математики.Мы получили выражение для вычисления значения полинома по схеме Горнера, оптимизирующей число операций и избавляющей нас от использования возведения в степень.Ниже - текст программы на Pascal.ABC. На самых старых версиях Паскаля инициализация элементов массива не может объединяться с его описанием и её следует выполнить отдельно в виде набор операторов присваивания.var  a: array[1..4] of real := (-0.5, 0.11, -2.66, 10);  x, y: real;  i: integer;begin  for i := 1 to 4 do  begin    x := a[i];    y := 3 * (4 + x * (1 + 3 * x));    Writeln('x=', x:5:2, '  y=', y:8:4)  endend.Тестовое решение:x=-0.50  y= 12.7500x= 0.11  y= 12.4389x=-2.66  y= 67.7004x=10.00  y=942.0000