Составить блок-схему алгоритма и программу вычисления выражения - PascalABC.NET

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

функция Y Расчетные выражения = Ax2 + Bx = 5Ax + Sin Bx Условие Выбора выражения x > 0 x <= 0 Интервал изменения аргумента X от –1,2 до 1,2 шаг аргумента 0,2

Решение задачи: «Составить блок-схему алгоритма и программу вычисления выражения»

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

begin
  var A := ReadLnReal('A =');
  var B := ReadLnReal('B =');
  var x := -1.2;
  repeat
    WriteLnFormat('y({0,4:0.0}) = {1,10:0.00000}', x, (x > 0 ? A*x*x + B*x : 5*A*x+sin(B*x)));
    x += 0.2;
  until x > 1.2;
end.

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

Считаем значения переменных A и B с помощью функции ReadLnReal.
Инициализируем переменную x значением -1.2.
Входим в цикл repeat.
В каждой итерации цикла выводим значение переменной x с помощью функции WriteLnFormat.
Вычисляем значение переменной y с помощью выражения (x > 0 ? Axx + Bx : 5Ax+sin(Bx)).
Прибавляем к переменной x значение 0.2.
Проверяем условие x > 1.2 с помощью оператора until.
Повторяем шаги с 4 по 7, пока условие не станет ложным.
Завершаем выполнение программы.