Построение параллелограмма и заполнение его некоторым цветом - Free Pascal
Формулировка задачи:
Помогите решить задачу
Написать программу построение параллелограмма и заполнения его некоторым цветом после нажатия на клавишу Enter.
Решение задачи: «Построение параллелограмма и заполнение его некоторым цветом»
textual
Листинг программы
uses Graph,Crt; var gd,gm : smallint; x,y,d:integer; PathToDriver : string; begin gd:=detect; { highest possible resolution } gm:=0; { not needed, auto detection } PathToDriver:='C:\PP\BGI'; { path to BGI fonts, drivers aren't needed } InitGraph(gd,gm,PathToDriver); if GraphResult<>grok then halt; { whatever you need } x:=200; y:=200; d:=200; Line(x,y,x+d,y); Line(x-d div 2,y+d,x+d div 2,y+d); Line(x,y,x-d div 2,y+d); Line(x+d div 2,y+d,x+d,y ); SetFillStyle(SolidFill,Green); readln; FloodFill(x + d div 2,y+10,15); readkey; CloseGraph; { restores the old graphics mode } end.
Объяснение кода листинга программы
- Подключение необходимых модулей: Graph и Crt.
- Объявление переменных: gd (код разрешения), gm (код разрешения), x, y, d (координаты и размер параллелограмма), PathToDriver (путь к драйверу).
- Установка пути к драйверу и инициализация графического режима с помощью функции InitGraph.
- Проверка успешности инициализации графического режима с помощью функции GraphResult.
- Установка координат и размера параллелограмма: x=200, y=200, d=200.
- Отображение параллелограмма с помощью функции Line.
- Установка стиля заливки и цвета с помощью функции SetFillStyle.
- Заполнение параллелограмма зеленым цветом с помощью функции FloodFill, начиная с координат x + d div 2, y+10 со значением 15.
- Чтение символа из консоли с помощью функции readln.
- Закрытие графического режима с помощью функции CloseGraph.
- Программа завершается, когда пользователь нажимает любую клавишу.
- Ключи клавиатуры считываются с помощью функции readkey.
- Программа завершается, когда пользователь нажимает любую клавишу.