Лабораторная работа №5
Цель работы: изучение условного оператора, оператора отбора, составного
оператора и правил программирования разветвляющихся алгоритмов.
Задание № 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<=0 then y:=x*x
else
if x<pi then y:=sin(x)
else y:=0;
Writeln(‘y=’,y)
End. {lab5}
Результаты вычисления программы:
x=-3 y=9
x=2 y=9.09297426826015E – 0001
x=5 y=0
-----------------------
Начало
Конец
x<pi
x<=0
Вывод y
Ввод x
y:=x*x
y:=sin(x)
y:=0