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

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

Выполнить задачу 3 мя спосабами while,repeat,for f(x)=(cosx/√x)^((x^3-27)/(x^2+1)) 9;Интервал x∈[0.5;0.8];количество точек n=20 Ответ должен повторяться 20 раз в 3-ех способах.

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

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

function f(x:real):real;
begin
f:=exp(ln(cos(x)/sqrt(x))*(x*x*x-27)/(x*x+1))
end;
var a,b,h,x:real;
    n,i:integer;
begin
n:=20;
a:=0.5;
b:=0.8;
h:=(b-a)/(n-1);
for i:=0 to n-1 do
 begin
  x:=a+i*h;
  writeln(i+1:2,' x=',x:5:3,' f(x)=',f(x):8:4);
 end;
writeln;
i:=0;
while i<=n-1 do
 begin
  x:=a+i*h;
  writeln(i+1:2,' x=',x:5:3,' f(x)=',f(x):8:4);
  i:=i+1;
 end;
writeln;
i:=0;
repeat
x:=a+i*h;
writeln(i+1:2,' x=',x:5:3,' f(x)=',f(x):8:4);
i:=i+1;
until i=n;
end.

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

Объявлены переменные:
- f(x) - функция, которую необходимо вычислить
- a, b, h, x - переменные для вычислений
- n, i - целочисленные переменные для управления циклом
Задается значение переменной n - количество точек на графике (20)
Задаются начальные значения переменных a и b (0.5 и 0.8 соответственно)
Вычисляется шаг h для равномерного распределения точек на графике
Запускается цикл for для вычисления и вывода значений функции f(x) и соответствующих значений x для каждой точки на графике
После окончания цикла выводится горизонтальная линейка
Запускается цикл while для повторного вывода значений функции f(x) и соответствующих значений x для каждой точки на графике
После окончания цикла выводится единица
Запускается цикл repeat для непрерывного вывода значений функции f(x) и соответствующих значений x для каждой точки на графике до достижения условия i=n
После окончания цикла выводится единица