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;
Порядок выполнения работы
1. Разработайте алгоритм решения задачи в соответствии со своим вариантом.
2. Откройте текстовый редактор Turbo Pascal.
3. Напишите программу решения задачи по разработанному ранее алгоритму. В программе предусмотреть вывод справочной информации (информация об авторе, наименование и назначение программы), возможность многократных вычислений.
4. Отладьте программу.
5. Сохраните результаты работы программы.
