Написание программ с применением процедур и функций - Free Pascal

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

при a=10,7 ; b=6,3 ; y=0,35 ; x принимает значения 0,6 ; 0,51 ; 0,42.

Решение задачи: «Написание программ с применением процедур и функций»

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

const a=10.7;
      b=6.3;
      y=0.35;
var x:real;      
function i(x:real):real;
begin
  i:=a*sin(x+y)-b*cos(x-y)/sqrt(4*x*y);
end;
begin
  x:=0.42;
  repeat
    writeln(x:10:2,i(x):10:4);
    x:=x+0.09;
  until x>0.6;
end.

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

В начале кода объявляются константы a, b и y, а также переменная x типа real.
Далее идет объявление функции i(x:real):real.
Внутри функции i происходит вычисление значения функции i = asin(x+y)-bcos(x-y)/sqrt(4xy).
После объявления функции i идет начало выполнения программы.
Переменная x инициализируется значением 0.42.
Далее начинается цикл repeat, который выполняется до тех пор, пока значение x не станет больше 0.6.
Внутри цикла выводится на экран текущее значение x и значение функции i(x).
Значение x увеличивается на 0.09 после каждой итерации цикла.
Цикл завершается, когда значение x становится больше 0.6.
Код завершается.