caseKey of

VK_Enter: window.Close; //при нажатии Enter графическое окно закроется

end;

end;

Begin

window.maximize; //максимальная величина окна

f: ='test.bmp'; //переменной f присваиваем значение test.bmp

c: = new PictureABC (20, 80, f); //добавляем рисунок (значение переменной f)

OnMouseDown: =MouseDown; //вызов процедуры нажатия кнопки мыши

t: = 'Для завершения задания нажмите Enter'; //переменной t присваиваем значение

a: = new TextABC (80, 830, 15, t, clBlue); //добавление подсказки (значение переменной t)

OnKeyDown: =KeyDown; //вызов процедуры нажатия на клавишу клавиатуры

end.

Результат работы программы

8) Информатика (методическая основа)

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

program random_;

uses GraphABC;

Var

x, y, i, n, r: integer;

Begin

window.Maximize; //максимальный размер графического окна

Write ('Введите количество окружностей ');

readln (n); //количество окружностей

for i: = 1 to n do //цикл с параметром от 1 до введенного количества окружностей

Begin

SetBrushColor (clrandom); //случайным образом выбирается цвет

x: =random(1000); //случайным образом выбирается координата цента х, задано максимальное значение 1000

y: =random(600); //случайным образом выбирается координата цента y, задано максимальное значение 600

r: =random(80); //случайным образом выбирается величина радиуса окружности, задано максимальное значение 80

circle(x, y, r); //строим окружность по полученным параметрам

end;

end.

Результат работы программы при n=5, выполняется несколько раз для демонстрации