Лабораторная работа №5

Лабораторная работа №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

else y:=0;

Writeln(‘y=’,y)

End. {lab5}

Результаты вычисления программы:

x=-3 y=9

x=2 y=9.09297426826015E – 0001

x=5 y=0

-----------------------

Начало

Конец

x

x<=0

Вывод y

Ввод x

y:=x*x

y:=sin(x)

y:=0