Цель работы:
Освоение правил
составления
программ циклической
структуры с
параметром.
Задание
№ 17. Вычислить
значение функции
 ,
по указанному
графику для
значений аргумента
 .
 Б
y
лок-схема.
 
Программа
на Turbo
Pascal
{****************************************************************
}
{Программа:
lab6,
Лаб. раб. №6, Вар.
17 }
{Цель:
вычисление
значения ф-ции
f(x)
с помощью оператора
с параметром
}
{
оператора
и правил программирования
разветвляющихся
алгоритмов.
}
{Описание
параметров
и переменных:
}
{x
–переменная
цикла, y
-значение функции,
i –
параметр цикла
}
{Требуемые
подпрограммы:
нет.
}
{Программист:
Позднышев А.А.,
гр. 316
}
{Проверил:
Баринов В.В.,
каф. ВПМ
}
{Дата
написания: 28
февраля 2004 г.
}
{*****************************************************************}
program lab6;
var i:integer;
x,y:real;
begin
x:=-3;
for
i:=1 to 12 do
begin
if x<0
then y:=sqrt(3)*x/3;
if x>1
then y:=ln(x);
if(x>=0)
and (x<=1) then y:=0;
writeln('y=',y);
x:=x+0.5;
end;
end.
Результаты
вычисления
программы:
y=-1.7320508076E+00
y=-1.4433756730E+00
y=-1.1547005384E+00
y=-8.6602540379E-01
y=-5.7735026919E-01
y=-2.8867513460E-01
y=
0.0000000000E+00
y=
0.0000000000E+00
y=
0.0000000000E+00
y=
4.0546510811E-01
y=
6.9314718056E-01
y=
9.1629073188E-01
Министерство
образования
РФ
Рязанская
государственная
радиотехническая
академия
Кафедра ВПМ
Отчет о
лабораторной
работе № 6:
«Проектирование
программ циклической
структуры
с известным
числом повторений»
Выполнил: ст.
гр. 316
Позднышев
А.А.
Проверил:
Баринов В.В.
Рязань 2004
|
