Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии на клавишу - окружность.

Для работы с рисованием перед началом программы нам нужно будем подключить специальный модуль:

uses graphabc;

Он нужен для того, чтобы программа понимала команды, связанные с рисованием.

При нажатии на клавишу к появится точка в произвольном месте, поэтому нам нужно сгенерировать случайные координаты.

Так как размера окна мы не знаем, то будем использовать Window. Width и Window. Height - специальные параметры для определения размера окна:

x : = random (Window. Width);

y : = random (Window. Height);

А затем размещаем точку:

SetPixel (x, y);

Для построения окружности используем те же координаты:

Circle (x, y, 10);