Лабораторная работа №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 x1 then y:=ln(x);

if(x>=0) and (x=0 x<=1

x<0

Конец

X:= -3

Вывод y

Начало

Рефераты