Question

Построить оси координат. Начало координат следует поместить вблизи левого нижнего угла экрана, полуоси 0х и 0у разместить, как показано на рис.

Answer 1

uses
  GraphABC;

var
  x: integer;

begin
  Line(5, 5, 5, Window.Height - 5);
  Line(5, Window.Height - 5, Window.Width - 5, Window.Height - 5);
  Line(Window.Width - 5, Window.Height - 5, Window.Width - 15, Window.Height);
  Line(Window.Width - 5, Window.Height - 5, Window.Width - 15, Window.Height - 10);
  Line(5, 5, 0, 15);
  Line(5, 5, 10, 15);
  x := Window.Height - 5;
  while (x > 20) do
  begin
    Line(1, x, 9, x);
    x := x - 30;
  end;
  x := 5;
  while (x < Window.Width - 20) do
  begin
    Line(x, Window.Height - 2, x, Window.Height - 8);
    x := x + 30;
  end;
  TextOut(15, 5, 'y');
  TextOut(Window.Width - 15, Window.Height - 30, 'x');
end.