(* Получение номера ошибки, если инициализация режима не произошла *)

er := GraphResult ;

if er <> grOk then

begin

writeln (GraphErrorMsg (er));

Halt

end;

Xmax := GetMaxX; Ymax := GetMaxY;

Xf := trunc (Xfr * Xmax); Xe := Xmax – trunc (Xb * Xmax);

Y0 := Ymax div 2; SY := Dy* Ymax / 2; Ym := trunc (SY); mY := 0.1*Em/Dy;

hx := (Xe – Xf) / N; hfi := 2 * pi *Nt / N;

SetBkColor (blue); SetLineStyle (0, 0, 1); SetColor (white);

Line (Xf, Y0, Xe, Y0); Line (Xf, Y0 + Ym, Xf, Y0 – Ym);

(* Блок вычисления и рисования синусоиды *)

SetLineStyle (0, 0, 3); SetColor (red);

for k := 0 to N do with coords [k] do

begin

X := Xf + trunc (k*hх);

Y := Y0 – trunc (mY*SY*sin (k*hfi);

(* Рисование синусоиды с помощью процедуры DrawPoly)

DrawPoly (N, coords);

end;

readln;

CloseGraph

end.

Функция GraphResult: integer; модуля Graph возвращает код ошибки, если инициализация гра­фического режима не произошла.

Функция GraphErrorMsg (ErrorCode : integer): string; модуля Graph, возвращает строку сообщения об ошибке, указывая её код ErrorCode.

Для построения сложных фигур, образованных прямыми и дугами окружностей, весьма важной является процедура GetArcCoords (var Coords: ArcCoordType) модуля Graph, определяющая координаты центра и точек начала и конца дуги. Здесь переменная Coords имеет тип "запись".

Полный синтаксис процедуры должен иметь вид:

type

ArcCoordType = record

X, Y, (* Координаты центра дуги окружности *)

Xs, Ys, (* Координаты точки начала дуги *)

Xe, Ye: integer (* Координаты точки конца дуги *)

end;

var

coords: ArcCoordType;

begin

. . . . . . . . .

GetArcCoords;

3 Порядок выполнения работы

1. Разработайте алгоритм решения задачи в соответствии со своим вариантом.

2. Откройте текстовый редактор Turbo Pascal.

3. Напишите программу решения задачи по разработанному ранее алгоритму. В программе предусмотреть вывод справочной информации (информация об авторе, наименование и назначение программы), возможность многократных вычислений.

4. Отладьте программу.

5. Сохраните результаты работы программы.

4 Содержание отчета

Отчет оформляется индивидуально и содержит:

- титульный лист;

- наименование, цель и содержание работы;

- алгоритм и текст программы

- изображения экранов монитора с результатами работы программы;

- выводы по результатам работы.

5 Варианты заданий

Разработайте алгоритм и программу, выводящую на экран график функции в соответствии с заданным вариантом. Интервал построения функции определяет пользователь в процессе работы программы. В программе предусмотреть вывод справочной информации: наименование программы, выполняемые программой действия, автор программы.

Таблица 1. Варианты заданий

№ вар.	Функция	№ вар.	Функция
1		16
2		17
3		18
4		19
5		20
6		21
7		22
8		23
9		24
10		25
11		26
12		27
13		28
14		29
15		30