Цель работы: изучение условного оператора, оператора отбора, составного оператора и правил программирования разветвляющихся алгоритмов.

Задание № 17. Вычислить значение функции, заданной графиком [pic] при
[pic], [pic]при [pic] и [pic] при [pic].

Блок-схема.

[pic]

Программа на Turbo Pascal

{****************************************************************}
{Программа: lab5, Лаб. раб. №5, Вар. 17

}
{Цель: изучение условного оператора, оператора отбора, составного
}
{ оператора и правил программирования разветвляющихся алгоритмов. }
{Описание параметров и переменных:

}
{x -исходные значения, y -значение функции

}
{Требуемые подпрограммы: нет.

}
{Программист: Позднышев А.А., гр. 316

}
{Проверил: Баринов В.В., каф. ВПМ

}
{Дата написания: 18 февраля 2004 г.

}
{*****************************************************************}

Program lab5;
Var x,y:real;
Begin

Write(‘Введите x=’); read(x);

If x