Цель работы: Освоение правил составления программ циклической структуры с
параметром.
Задание № 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 x1 then y:=ln(x); if(x>=0) and (x