Построение параллелограмма и заполнение его некоторым цветом - 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.

Объяснение кода листинга программы

  1. Подключение необходимых модулей: Graph и Crt.
  2. Объявление переменных: gd (код разрешения), gm (код разрешения), x, y, d (координаты и размер параллелограмма), PathToDriver (путь к драйверу).
  3. Установка пути к драйверу и инициализация графического режима с помощью функции InitGraph.
  4. Проверка успешности инициализации графического режима с помощью функции GraphResult.
  5. Установка координат и размера параллелограмма: x=200, y=200, d=200.
  6. Отображение параллелограмма с помощью функции Line.
  7. Установка стиля заливки и цвета с помощью функции SetFillStyle.
  8. Заполнение параллелограмма зеленым цветом с помощью функции FloodFill, начиная с координат x + d div 2, y+10 со значением 15.
  9. Чтение символа из консоли с помощью функции readln.
  10. Закрытие графического режима с помощью функции CloseGraph.
  11. Программа завершается, когда пользователь нажимает любую клавишу.
  12. Ключи клавиатуры считываются с помощью функции readkey.
  13. Программа завершается, когда пользователь нажимает любую клавишу.

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы