Создание класса точки на плоскости (Pascal)

Описать класс tPoint, инкапсулирующий основные свойства и методы точки на плоскости. Создать массив из 100 точек. Нарисовать точки случайным образом случайным цветом на экране.

Создадим класс точки с тремя свойствами – координаты x, y и цвет (color), а также метод Draw – вывод точки на экран. Для вывода на экран используем процедуру из графического модуля putPixel(x,y,color).

Для работы программы необходимо подключить два модуля – Crt и Graph и прописать путь к драйверу.

В программе создадим массив точек из 100 элементов. Инициализируем генератор случайных чисел randomize.

Установим графический режим InitGraph. Если попытка будет неудачной, то выведем сообщение об ошибке. Если графический режим установлен, то присвоим каждой точке случайные координаты (в пределах экрана) и случайный цвет (из 256 возможных значений). Затем выведем каждую точку на экран и будем ждать, пока пользователь нажмет любую клавишу (иначе окно программы сразу закроется). В конце закрываем графический режим.

Текст программы:

PROGRAM LAB1;

Uses Crt,Graph;

const Path_of_driver='C:\TP7\BGI';{установка пути к драйверу}

Type      {описание класса Точка}

             tPoint = object

                    x, y: integer;{координаты точки}

                    color: word;{цвет точки}

                procedure Draw; {вывод точки на экран}

              end;

procedure tPoint.Draw;

begin

                putPixel(x,y,color);  {вывод точки}

end;

  var

           mas: array [1..100] of tPoint;  {массив точек}

           gd,gm,NewX,NewY,i: integer;

NewColor : Word;

   begin

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

     gd:=Detect;

     InitGraph(gd,gm,Path_of_driver); {установка графического режима}

     if GraphResult<>grok then begin

         write('error:',GraphErrorMsg(GraphResult)); {ошибка при установке граф.режима}

         halt;

     end;

{Обработка массива точек, установка координат и цвета}

for i:=1 to 100 do

begin

                NewX:=Random(GetMaxX);

                NewY:=Random(GetMaxY);

                NewColor:=Random(256);

        mas[i].x:= NewX;

        mas[i].y:= NewY;

        mas[i].color:= NewColor;

        mas[i].Draw;

end;

  readLn; {ожидание нажатия клавиши}

  closegraph;  {закрыть графический режим}

  clrscr;

  end.