Написать программу по блок-схеме. - Pascal

Решение задачи: «Написать программу по блок-схеме.»

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

const x1=0.1;
      x2=1.0;
      h=0.1;
      a=0.3;
var x,y:real;
begin
x:=x1;
while x<=x2 do
 begin
  if x<=0.5 then y:=sin(x/4)/cos(x/4)
  else y:=exp(a*sin(x))*(sqr(sin(x))+a*a);
  writeln('x=',x:4:1,'  y=',y:6:3);
  x:=x+h;
 end;
end.

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

В первой строке объявляются константы: x1, x2, h и a.
Далее, объявляются переменные x и y с типом real.
Переменная x инициализируется значением x1.
Затем, в цикле while, который выполняется до тех пор, пока x не станет больше x2, выполняются следующие действия:
1. Если значение x меньше или равно 0.5, то значение y вычисляется как синус (x/4)/косинус (x/4).
2. В противном случае, значение y вычисляется как экспонента (asin(x))(квадрат синуса (x)+a*a).
3. Значения x и y выводятся на экран с помощью функции writeln, при этом значение x выводится с точностью до 4 знаков после запятой, а значение y - с точностью до 3 знаков после запятой.
4. Значение x увеличивается на h.
Цикл while повторяется до тех пор, пока не будут выполнены условия выхода из цикла.
Программа заканчивается после выполнения цикла while.