Вычислить значение функции - Pascal ABC (14262)

Формулировка задачи:

Вычислить значения функции и распечатать в виде таблицы х,у: y=(2x+0,7)^16 для пяти равноотстоящих значений х; х1=0,4 h =0,1.

Решение задачи: «Вычислить значение функции»

Листинг программы

function f(x:real):real;
begin
f:=power(2*x+0.7,16);
end;
const x1=0.4;
      h=0.1;
      n=5;
var x:real;
    i:byte;
begin
for i:=0 to n-1 do
writeln('x=',x1+i*h:3:1,' f(x)=',f(x1+i*h):9:2);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

x: real - переменная для хранения значения функции
f: real - результат вычисления функции
x1: real - начальное значение переменной x
h: real - шаг изменения значения переменной x
n: byte - количество итераций цикла
i: byte - переменная для хранения текущего значения цикла
const - константа для хранения значения x1
power - функция, которую мы хотим вычислить
2*x + 0.7 - выражение, которое передается в функцию power
16 - число, которое передается в функцию power
writeln - функция для вывода строки в консоль
'x=',x1+i*h:3:1 - строка, которая выводится на экран
f(x1+i*h):9:2 - значение функции, которое вычисляется и выводится на экран
for - цикл, который выполняется n раз
i:=0 to n-1 - инициализация цикла
writeln('x=',x1+ih:3:1,' f(x)=',f(x1+ih):9:2); - вывод значения на экран
end. - завершение цикла Цель данного кода - вычислить значение функции power(2*x+0.7,16) для x=0.4 с шагом h=0.1 и вывести результаты на экран.