Вычисление значения функции заданной в виде графика - Turbo Pascal (29254)
Формулировка задачи:
Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо!
Решение задачи: «Вычисление значения функции заданной в виде графика»
textual
Листинг программы
var x,y:real;
begin
write('x=');
readln(x);
if x<=-3 then y:=x+7
else if x<=-2 then y:=4
else if x<=2 then y:=x*x
else if x<=4 then y:=-2*x+8
else y:=0;
write('y=',y:0:2);
end.
Объяснение кода листинга программы
- Объявляются две переменные типа real: x и y.
- Выводится запрос на ввод значения переменной x.
- Значение переменной x сравнивается с -3. Если оно меньше, то значение переменной y присваивается равным значению переменной x плюс 7.
- Если значение переменной x меньше -2, то значение переменной y присваивается равным 4.
- Если значение переменной x находится в диапазоне от 0 до 2, то значение переменной y присваивается равным произведению значения переменной x на само себя.
- Если значение переменной x находится в диапазоне от 0 до 4, то значение переменной y присваивается равным -2 умноженному на значение переменной x плюс 8.
- Если значение переменной x больше 4, то значение переменной y присваивается равным 0.
- Выводится значение переменной y с точностью до двух знаков после запятой.