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

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

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

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

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

uses crt;
var x,h,y:real;
begin
clrscr;
h:=0.25;
x:=0;
while x<=6 do
 begin
  if x<2 then y:=2*x
  else if x<=4 then y:=2*x+exp(2/x)
  else y:=2*x*sin(x);
  if x<6 then writeln('x=',x:4:2,' y=',y:6:3)
  else write('x=',x:4:2,' y=',y:6:3);
  x:=x+h;
 end;
readln
end.

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

Объявлены три переменные: x, h, y (строки 1-3)
Инициализируется переменная h значением 0.25 (строка 5)
Переменная x инициализируется нулем (строка 6)
Запускается цикл while, который выполняется до тех пор, пока значение переменной x меньше или равно 6 (строка 7)
Внутри цикла определены три условия с помощью оператора if:
- Если x меньше 2, то y присваивается значение 2*x (строка 8)
- Если x меньше или равно 4, то y присваивается значение 2*x + exp(2/x) (строка 9)
- Если x больше 4, то y присваивается значение 2xsin(x) (строка 10)
С помощью оператора if проверяется, если x меньше 6, и если это так, то выводится значение x и y с точностью до 2 знаков после запятой (строки 11-12)
После каждой итерации цикла значение x увеличивается на h (строка 14)
По завершении цикла выводится сообщение x=<конец> (строка 17)
Программа ожидает ввода данных с помощью функции readln (строка 18)