Вычислить функцию и найти среднее значение функции y - Pascal ABC

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

Составьте пожалуйста программу с блок схемой вычислить функцию на интервале c шагом необходимо найти среднее значение функции y, если A=2,3

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

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

const A=2.3;
var x,y,s:real;
    k:integer;
begin
s:=0;
k:=0;
x:=-4;
while x<=4 do
 begin
  if x<0 then y:=3*(A-x)
  else y:=A*ln(x+1);
  writeln('x=',x:4:1,'  y=',y:6:3);
  s:=s+y;
  k:=k+1;
  x:=x+0.4;
 end;
write('Среднее значение=',s/k:0:3)
end.

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

В первой строке объявляются константа A и переменные x, y, s, k типа real.
Значение константы A присваивается значению 2.3.
Переменная k инициализируется значением 0.
Переменная s инициализируется значением 0.
Переменная x инициализируется значением -4.
Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равным 4.
Внутри цикла if-else происходит вычисление значения переменной y в зависимости от значения переменной x.
- Если значение переменной x меньше 0, то значение переменной y присваивается равным 3*(A-x).
- В противном случае значение переменной y присваивается равным A*ln(x+1).
С помощью функции writeln выводится значение переменных x и y в формате x= -4 y= 2.999.
Значение переменной y добавляется к переменной s.
Значение переменной k увеличивается на 1.
Значение переменной x увеличивается на 0.4.
После выхода из цикла while значение переменной s делится на значение переменной k и выводится на экран в формате Среднее значение= 2.999.
Код завершается.