Вычислить значение выражения - Turbo Pascal (34022)

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

Пожалуйста помогите разобраться с табуляцией в Borland Pascal Пример: y = 3 sin ^ 2 ( 5 * x + 0, 5 ) при X є [0; 0; 2] Заранье Спасибо.

Уважаэмые помогите решить, в завтра сдача сессии робота нужна по зарез!

Решение задачи: «Вычислить значение выражения»

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

function f(x: real): real;
begin
result := 3 * sqr(sin(5*x + 0.5));
end;
 
var x,y,dx: real;
i,n: integer;
begin
n := 10;
dx := (2 - 0)/n;
WriteLn('|  x  |   y   |');
for i:=0 to n do
begin
x := 0 + i * dx;
y := f(x);
 WriteLn('| ',x:1:3,' | ',y:1:4,' |');
end;
 
end.

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

Создается функция f, которая принимает один аргумент типа real и возвращает значение типа real.
В переменной result вычисляется значение выражения 3 sqr(sin(5x + 0.5)) где x - аргумент функции f.
В переменных x, y, dx хранятся значения, используемые в функции f и вычислениях.
Переменная n инициализируется значением 10.
Переменная dx вычисляется как (2 - 0) / n.
Выводится заголовок | x | y |.
Запускается цикл for, который выполняется 10 раз.
На каждой итерации цикла переменная x вычисляется как 0 + i * dx, где i - переменная-счетчик, инициализированная значением 0.
Переменная y вычисляется как результат выполнения функции f(x).
Выводится строка |, с пробелами, символами x и y, разделенными запятой.
Выводится строка |, с пробелами, символами x и y, разделенными запятой.
И так далее, пока цикл не будет выполнен 10 раз.
В конце программы выводится символ новой строки.