Цель работы: Освоение правил составления программ циклической структуры с параметром.

Задание № 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