Лабораторная работа №2. Программы с линейной и разветвляющейся структурами.Цель: научиться использовать в программах линейную структуру и структуру ветвления. Задание 5:
Принцип работы алгоритма: объявляются переменные x и fx, считывается переменная x, далее проверяется значение выражения 2*x+1 на положительность/отрицательность/равенство нулю. Далее в соответствии с результатом сравнения вычисляется fx по соответствующей данному случаю формуле. В конце происходит вывод результата с точностью до 3 знаков после десятичной запятой.
Код программы на языке Pascal: program functional; {Программа для нахождения значения функции f(x)=(x/(2*x+1), при (2*x+1)>0, x*x+3*x+1, при (2*x+1)<0, 1, при (2*x+1)=0)} var x,fx:real; {x-пременная, fx=f(x)} begin writeln('Enter x'); readln(x); {Ввод данных} if (2*x+1)>0 then fx:=x/(2*x+1) {вычисление f(x)} else if (2*x+1)<0 then fx:=x*x+3*x+1 {в зависимости от} else fx:=1; {значения 2*x+1} writeln('f(x)=',fx:0:3); {Вывод f(x)} end. Блок-схема:
Пример входных-выходных данных:
Вывод: в ходе выполнения данной лабораторной работы мы научились основным навыкам использования линейной и разветвляющейся структуры в СП Pascal.
|
