PutPixel(x,y,цвет:Word).

Здесь (x,y) – координаты точки, а цвет – ее цвет (из палитры).

В графическом режиме используется своя система координат. Координаты задаются не в символах, а в точках экрана (пикселях, Pixel).

6) Для перемещения курсора (чаще называемого текущим указателем – CP, Current Pointer) по экрану используется процедура:

MoveTo(X,Y : integer);

Курсор помещается в точку с координатами (X,Y). Эта процедура аналогична процедуре GotoXY для текстового режима, но в графическом режиме курсор на экране невидим. Максимальные значения координат экрана X и Y (см. рис. 2.21) можно определить с помощью не имеющих аргументов функций:

GetMaxX и GetMaxY,

Рассмотрим пример программы с использованием описанных выше процедур.

Задача. Составить программу "Звездное небо", которая выводит на экран разноцветные точки в случайных местах. В программе для задания координат и цвета будем использовать генератор случайных чисел Random. Диапазон случайных чисел определяется функциями GetMaxX, GetMaxY и GetMaxColor соответственно. Программа будет иметь вид, приводимый ниже.

Program Plot_Stars;

Uses

Crt, Graph;

Var

Er, GDr, Gmode : Integer;

X, Y : Integer;

Color :Integer;

Begin

{ Параметры графического режима }

Gdr := Vga;

Gmode := VgaLo;

InitGraph(Gdr,GMode,’’);

Er := GraphResult;

If Er = GrOk then

Begin

Randomize; {Инициализация генератора случайных чисел}

SetBkColor(Black);

ClearDevice;

Repeat

Color := Random(GetMaxColor)+1;

X := Random(GetMaxX);

Y := Random(GetMaxY);

PutPixel(x,y, Color);

Delay(10);

Until Keypressed;

CloseGraph;

End

Else

begin

Writeln(’Ошибка графики: ’,Er,’. ’,GraphErrorMsg(Er));

Writeln(’ Нажмите любую клавишу...’);

Repeat Until KeyPressed;

end

End.