Лабораторная работа №4
“Программирование алгоритмов разветвляющейся структуры”
Вариант – 3
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{***********************************************************}
{Имя программмы в банке программ: LAB5V3.PAS }
{Программа:ZnachFunct, Лаб. раб. №5, Вар.3 }
{Цель: Вычисление значения функции Y=F(X) }
{при различных значениях переменной X. }
{Описание параметров и переменных: }
{ X-независимая переменная; Y-зависимая переменная; }
{ A,B-переменные, облегчающие вычисление значения функции. }
{Требуемые подпрограммы: нет }
{Метод: вычисление с помощью условного оператора }
{Программист: Борискин Д.В., гр. 243 }
{Проверил: Новичков В.С., каф. ВПМ }
{Дата написания: 9 октября 2002 г. }
{***********************************************************}
Program ZnachFunct;
Var
x,y,a,b:real;
begin{ZnachFunct}
Write('Введите значение X ');read(x);
Writeln('x=',x);
if (x=3) or (x=5)
then
begin
y:=sin(x)+2;
writeln('Y=',y)
end
else if x=20
then
begin
y:=cos(x*x);
writeln('Y=',y)
end
else if (x=15) or (x=10)
then
begin
a:=cos(x);
b:=sin(x);
y:=a/b+b*b*b;
writeln('Y=',y)
end
else writeln('Значение Y не определено.');
end.{ZnachFunct}
|
Главная
Каталог файлов
