Построение таблицы кусочной функции - Turbo Pascal (247738)

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

Построение таблицы кусочной функции. Кусочной называется функция, которая на разных участках числовой оси задаётся разными выражениями.

Функция	Условие	a	b	Шаг h
1.2Ln(x+1.5) 1-x e^x-Cos(2+x³)	x < 1 1 ≤ x ≤ 2.1 x > 2.1	0.1	3.1	0.15

Решение задачи: «Построение таблицы кусочной функции»

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

uses crt;
const a=0.1;
      b=3.1;
      h=0.15;
var x,y:real;
begin
clrscr;
x:=a;
repeat
if x<1 then y:=1.2*ln(x+1.5)
else if x<=2.1 then y:=1-x
else y:=exp(x)+cos(2+x*x*x);
writeln('x=',x:4:2,' y=',y:6:3);
x:=x+h;
until x>b;
readln
end.

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

Объявлены константы a, b и h, а также переменные x и y типа real.
Запускается процедура clrscr, которая очищает экран.
Значение переменной x инициализируется значением константы a.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение x меньше или равно b.
Внутри цикла вычисляется значение y в зависимости от диапазона, в котором находится значение x.
Выводится на экран значение x и y с заданным шагом.
Значение x увеличивается на значение h.
Цикл продолжается до тех пор, пока значение x меньше или равно b.
Запускается процедура readln, которая ожидает ввода пользователя.