Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 109 стр.

InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
If ErrCode=grOk then {инициализация графического экрана прошла
                        успешно}
       begin {*** Построение осей координат ***}
               CX := Round(GetMaxX / 2); {для настройки на координаты любого}
               CY := Round(GetMaxY / 2); {экрана используем функции GetMaxX и GetMaxY}
                                            {(СХ, СУ) - центр сист. коорд-т}
               Line(0, CY, GetMaxX, CY); {вычерчивание оси ординат}
               Line(CX, 0, CX, GetMaxY); {          -" -         абцисс}
               {*** Построение графика функции Y = Sqr(X)***}
               XG:=Round(Sqrt(20*(GetMaxY-CY)));{определение ширины параболы}
               for X:= -XG to XG do
                      begin
                             X1 := X + CX; {определение текущей координаты Х экрана}
                             Y := Sqr(X); {определение ординаты функции}
                             Y1 := GetMaxY - Round(( Y / 20 + CY)); {преобразование
                             текущей ординаты функции в текущую координату Y экрана}
                             Circle(X1, Y1, 2) { точка, инцидентная параболе, вычерчивается
                             в виде окружности радиусом в два пикселя}
                      end;
               {*** Вывод на экран пояснительного сообщения ***}
               SetTextStyle(0, 0, 2);
               OutTextXY(180, 350, 'Гpафик функции Y = Sqr(X)');
               ReadLn;
               CloseGraph;
       end
else { возникла ошибка при инициации графического экрана}
       WriteLn('Graphics      error:',GraphErrorMsg(ErrCode));     {вывод    диагностического
       сообщения}
End.
Содержание отчета
1. Титульный лист.
2. Словесная постановка задачи.
3. Текстуальный или графический алгоритм работы программы.
4. Листинг программы.
5. Анализ допущенных ошибок.
6. Сведения об использованных цветах и шаблонах заполнения областей.
7. Ответы на контрольные вопросы по согласованию с преподавателем.
Варианты заданий
1. Y = A · lg(X);
2. Y = A · sin(X);
3. Y = A · exp(X);
4. Y = A·X2 + B·X + C;
5. Y = A · tg(X);
6. Y = A · arctg(X);
7. Y = A · Xn + C,      n=1;
             n
8. Y = A · X + C,       n=2;
9. Y = A · Xn + C,      n=3;
10. Y = A · Xn + C,     n=4,
где A, B, C - произвольные параметры.

                                                                                         109