Практичесl= 2;ая работа № 26

Прак= 090;ическая работа № 26

Графика

Для рисования статичных рисунков используетl= 9;я компонент PaintBox (панель System). Этот l= 2;омпонент размещаетсn= 3; на форме в виде прозра = 95;ного пунктирногl= 6; квадрата, и в его предела = 93; можно рисовать. Рисование выполняетсn= 3; обращением = 82; свойству Canvas (графическа= 03; канва) этого компонента: PaintBox1.Canvas. У него в свою очеред= 00; есть свойст = 74;о Pixels (PaintBox1.Canvas.Pixels), которое представляk= 7;т собой матри = 94;у, двумерный массив заданного размера - поточечный образ канвы, каждый элем = 77;нт - отдельная точка. В Pixels[] отсчет точе = 82; (пикселов экрана) начинается = 89; 0.

Координат&#= 1099; x, y отсчитываюm= 0;ся от верхнего левого угла, то есть он считается точкой с коо= 088;динатой (0, 0), увеличени = 77; по оси x идет слева напра = 74;о, а по оси y - сверху вниз. Для конкрет = 85;ой точки указываетсn= 3; цвет. Функци= 103; RGB() формирует цвет комбинациеl= 1; интенсивноl= 9;ти красного, зеленого и синего (интенсивно = 89;ть задается числом от 0 до 255). Например, черный - RGB(0,0,0), красный - rgb(255,0,0), синий - rgb(0,0,255), белый - rgb(255,255,255).

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие действия:

1.      Размести= ть на форме компонент PaintBox.

2.      Заполнит= ь доступную канву 300 красными точками в случайных позициях по нажатиям на некоторую кнопку.

3.&n= bsp;     Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в строке заго = 83;овка.

4.&n= bsp;     Записат&#= 1100; код в обработчикk= 7; нажатия.

<= span style=3D'font-size:10.0pt'>

procedure<= b> TForm1.Button1Click(Sender: TObject);
var i,x,y: Integer;
begin

    randomize;<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'>
    for i := =3D 1 to 300 do
     begin <= /b>
        x :=3D random(100);
        y :=3D random(100);
        PaintBox1.Canvas.Pixels[x,y] :=3D RGB(255,0,0);
     end
end;

5.      Измени= 090;ь RGB(255,0,0) н= а RGB(random(255),random(255),random(255) ). =

6.&n= bsp;     Заполни&#= 1090;ь фон черным цветом пере = 76; началом выполнения программы с помощью мет = 86;да канвы FillRect. Метод вызывается = 89; указанием п = 88;ямоугольно&#= 1081; области заливки цветом: FillRect(Rect(0, 0, 100, 100)) = // координаты верхнего левого и правого ниж = 85;его углов

В= ;ложенное слово Rect формирует данное типа &qu= ot;прямоуголь&#= 1085;ик". Перед вызовом FillRect надо указат= 00; цвет заливки: Pain= tBox1.Canv= as.Brus= h.Colo= r :=3D RGB(0,0,0);

=

procedure<= b> TForm1.Button1Click(Sender: TObject);
var i,x,y: Integer;
begin

PaintBox= 1.Canvas.Brush.Color :=3D RGB= (0,0,0);

PaintBox= 1.Canvas.FillRect(Rect(0,0,100,100));

     = for i :=3D 1 to 300 do
       = begin
       = x :=3D random(100);
        y :=3D random(100);
        PaintBox1.Canvas.Pixels[x,y] :=3D RGB(random(255),random(255),random(255));

    end
end;

7.&n= bsp;     Заполни&#= 1090;ь канву случайными разноцветнm= 9;ми линиями разной толщины. Линия рисуется с помощью методов (сначала задается начальная т = 86;чка, потом конечная):

PaintBox1.Canvas.MoveTo(10,10);=

PaintBox1.Canvas.LineTo(50,50);

Цвет линии и толщина задаются свойством к = 72;нвы Pen (карандаш). Pen.Color - цвет карандаша), Pen.Width - толщина линии в пикселах (по умолчанию - 1).

for i :=3D 1 to 300 do <= /b>

begin

   PaintBox1.Canvas.Pen.Color :=3D RGB(random(255),random(255),random(255));

   PaintBox1.Canvas.Pen.Width :=3D random(3)+1;

   x :=3D random(100);

   y :=3D random(100);

   PaintBox1.= Canvas.MoveTo(x,y);

   x :=3D random(100);

   y :=3D random(100);

   PaintBox1.= Canvas.LineTo(x,y);

   end

8.&n= bsp;     Заполни&#= 1090;ь канву эллипсами случайным образом (кру= 075;и, окружности - частный случай эллипса). Элл&#= 1080;псы рисуются методом Ellipse() с четырьмя параметрамl= 0; - координатаl= 4;и верхнего левого и пра= 074;ого нижнего углов прямоугольl= 5;ика, в который эллипс вписываетсn= 3;. Кайма эллипса рис = 91;ется в соответствl= 0;и с параметрамl= 0; свойства Pen канвы, а заливается эллипс внутри цвет = 86;м кисти Brush канвm= 9;.

for i :=3D 1 to 3= 00 do=
    begin
       // цвет и ширин= 072; каймы будущего эл = 83;ипса
      PaintBox1.Canvas.Pen.Color :=3D RGB(random(255),random(255),random(255)) ;
      PaintBox1.Canvas.Pen.Width :=3D random(3)+1;

     // цвет заливк = 80; внутренносm= 0;и эллипса
     PaintBox1.Canvas.Brush.Color := =3D rgb(random(255),random(255),random(255)) ;

     // координаты углов прямоугольl= 5;ика, в который вписываетсn= 3; эллипс
     x :=3D random(150);
     y :=3D random(150);
     x2 :=3D random(150);
     y2 :=3D random(150);

  // вписы = 74;аем эллипс
  PaintBox1.Canvas.Ellipse(x,y,x2,y2);
end;

1.&n= bsp;     Сделать канву на вес= 100; экран. Заполнить разноцветнm= 9;ми прямоугольl= 5;иками в случайных позициях и случайных размеров с помощью FillRect().

2.&n= bsp;     Создать графическиl= 1; образ так называемогl= 6; множества Жюлиа.

proce= dure TForm1.Button1Click(Sender: TObject);
    var RE,IM,RE1,IM1: REAL ;
    V,X,Y : INTEGER;

        = // вывод точки заданног = 86; цветk= 2;
    procedure PUTPIXEL(x,y,c:Inte= ger);
    var cc: TColor;
    begin

        =       case c mod 8 of
         =       0:cc:=3DclBlack;
        =      1:cc:=3DclRed;
        =        2:cc:=3DclLime;
        =        3:cc:=3DclYello= w;
        =        4:cc:=3DclBlue;=
               5:cc:=3DclFuchsia;
        =        6:cc:=3DclAqua;=
        =       7:cc:=3DclWhite= ;
            end;

         PaintBox1.Canvas.Pixels[x,y] :=3D cc;
    end;

    procedure QWA ;
    begin
       = RE1:=3DRE*RE-IM*IM;

         IM1:=3D2*RE*IM;

         RE:=3DRE1;

        =      IM:=3DIM1;
    end;
    procedure KUB;

        = begin

        =       RE1:= =3DRE*(RE*RE-3*IM*IM);
         =     IM1:=3DIM*(3*RE*RE-IM*IM);

        =      RE:=3DRE1;

        =      IM:=3DIM1;

        end ;

   Begin
    PaintBox1.Canvas.Brush.Color :=3D rgb(0,0,0);
    PaintBox1.Canvas.FillRect(Rect(0,0,640,480));

    X:=3D-320 ;
    REPEAT Y:=3D-240 ;
    REPEAT V:=3D0 ; RE:=3D-1.+0.001*X ; IM:=3D0+0.001*Y ;     REPEAT KUB; RE:=3DRE+1.00003 ; IM:=3DIM+1.01828201638 ; =
    if RE*RE > 50 then break;
    if IM*IM > 50 then break;
    V:=3DV+1 ;
    UNTIL V>40 ;
    if ( ABS(RE) > 10 ) or ( ABS(IM) > 1= 000)

        then

        = begin
           =          PUTPIXEL((X+320),(Y+240),TRUNC(V)) ;

        = end
       else PUTPIXEL((X+320),(Y+240),0);
    Y:=3DY+1 ;
    UNTIL Y > 241 ;
    X:=3DX+1 ;
    UNTIL X>320 ;
    End;

<= o:p>