13. Графика на Pascal. В начало

Овладение основами работы с графикой на Паскале нельзя недооценивать. Мы рассмотрим только самые азы применения графических возможностей в программах. Итак, начнем...     Перед использованием программной графики мы должны перевести работу нашей видеосистемы (видеоконтроллера и монитора) в соответствующий графический режим.  Группа команд включения графического режима имеет вид: Gd := Detect; InitGraph(Gd, Gm, ''); if GraphResult <> grOk then Halt(1); Использование графического режима ... CloseGraph; Графические режимы различаются разрешением (максимально отображаемым количеством точек по горизонтали и вертикали) экрана и количеством возможных цветов. Рассмотрим полный пример программы вывода цветных точек до нажатия любой клавиши uses Crt, Graph; {Объявление дополнительных модулей, которые будет использовать наша программа} Var                                                              {Объявление необходимых переменных} Gd, Gm : Integer; Color : Word; Begin {Начало программы}   Gd := Detect; InitGraph(Gd, Gm, ''); {Определение и включение графического режима}   if GraphResult <> grOk then Halt(1);   Randomize;                                             {Перенастройка генератора случайных чисел} repeat   Color := Random(15);                            {Выбор случайного цвета}   PutPixel(Random(640), Random(480), Color); { Цветное «звездное» небо}   Delay(300);                                               {Задержка времени} until KeyPressed;                                    {Ожидание нажатия любой клавиши} CloseGraph;                                              {Закрытие графического режима} end.                                                              {Закрытие программы} Научимся рисовать различные геометрические фигуры.

Uses Crt, Graph; const Gray50 : FillPatternType = ($AA, $55, $AA, $55, $AA, $55, $AA, $55); var   Gd, Gm : Integer;   Color : Word; begin   Gd := Detect; InitGraph(Gd, Gm, '');   if GraphResult <> grOk then Halt(1);   Randomize; repeat   SetColor(Random(GetMaxColor)+1);   Line(Random(400), Random(400), Random(400), Random(400)); {Линии}   Circle(Random(500), Random(500), Random(200));                           {Окружности}   SetFillPattern(Gray50, Random(15));   Bar(Random(400), Random(400), Random(400), Random(400));     {Закрашенные прямоугольники}   delay(9000); until KeyPressed; CloseGraph; end. Внимание! Примеры создания графики построены по принципу программ хранителей экрана - выводят меняющееся изображения до нажатия любой клавиши.

14. В заключение. В начало

  Я постарался охватить те разделы создания программ на языке программирования Pascal которые наиболее часто используются в инженерных расчетах и при написании учебных и других полезных программ.     Для уяснения темы обратитесь к страничке примеров программ с комментариями.   Примеры на Паскале