Лабораторная работа №6
Работа из раздела: «
Программирование и комп-ры»
Цель работы: Освоение правил составления программ циклической структуры с
параметром.
Задание № 17. Вычислить значение функции [pic], по указанному графику для
значений аргумента [pic].
[pic]Блок-схема.
[pic][pic]
Программа на 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
-----------------------
Начало
Конец
x=0 x<=1
x<0
Конец
X:= -3
Вывод y
Начало