Вычислить функцию - Turbo Pascal (33908)

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

Дано действительное число X. Вычислить F(x),если F(x)=1 при 1≤x≤2; x при x<1; x-1 при x>2.

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

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

uses crt;
var y,x:real;
BEGIN
clrscr;
write('x = ');
read(x);
if (x>=1) and (x<=2) then
begin
 y:=1;
 write('F(x) = ',y:3:2);
end
 else
  if x<1 then
   begin
   y:=x;
   write('F(x) = ',y:3:2);
   end
    else
     if x>2 then
      begin
      y:=x-1;
       write('F(x) = ',y:3:2);
      end;
readkey;
END.

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

В начале кода подключается библиотека crt.
Затем объявляются две переменные: y и x, которые имеют тип real.
Выводится сообщение «x = », после чего считывается значение переменной x.
Далее происходит проверка условия: если значение x находится в диапазоне от 1 до 2, то присваивается значение y равное 1 и выводится формула F(x) = 1.
Если условие не выполняется, то проверяется значение x: если оно меньше 1, то присваивается значение y равное x, и выводится формула F(x) = x.
Если значение x больше 2, то вычисляется значение y как x-1, и выводится формула F(x) = x-1.
Конец программы.