Задачка на графику в Delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Knight_of_Darkness, 3 Oct 2007.

  1. Knight_of_Darkness

    Knight_of_Darkness Elder - Старейшина

    Joined:
    3 Feb 2007
    Messages:
    69
    Likes Received:
    68
    Reputations:
    24
    Дано: Черный рисунок 300х100 пикселей, по которому произвольно расставлены 4 белых точки(по 1px). Задача в следующем: определить и вывести местоположение каждой точки.
    Кто поможет - буду признателен.
     
    2 people like this.
  2. a1ex

    a1ex Banned

    Joined:
    11 Oct 2006
    Messages:
    517
    Likes Received:
    130
    Reputations:
    -13
    ТОбишь, тебе нужно что бы пре запуске программы она посказывала координаты этих 4-ёх точек?
     
  3. Knight_of_Darkness

    Knight_of_Darkness Elder - Старейшина

    Joined:
    3 Feb 2007
    Messages:
    69
    Likes Received:
    68
    Reputations:
    24
    Ну не при запуске, а при нажатии на кнопку. И программа должна быть не консольной, а Vcl.
     
  4. a1ex

    a1ex Banned

    Joined:
    11 Oct 2006
    Messages:
    517
    Likes Received:
    130
    Reputations:
    -13
    Блин дружище чё-та я немогу найти исходник похожой проги.
    Найду - дам.
    Ненайду сорри.
     
    1 person likes this.
  5. da_ff

    da_ff Elder - Старейшина

    Joined:
    11 Jul 2006
    Messages:
    118
    Likes Received:
    22
    Reputations:
    26
    а где должны проходить оси координат?
     
    1 person likes this.
  6. Brun

    Brun Elder - Старейшина

    Joined:
    21 Mar 2006
    Messages:
    95
    Likes Received:
    57
    Reputations:
    16
    где 255 - цвет точки которых ты ищеш.

    P.S. Не проверял, так как нет под рукой Delphi. Но принцып должен быть такой.
     
    1 person likes this.
  7. Knight_of_Darkness

    Knight_of_Darkness Elder - Старейшина

    Joined:
    3 Feb 2007
    Messages:
    69
    Likes Received:
    68
    Reputations:
    24
    Решил пример так:
    Code:
    
    if (Form1.Image1.Canvas.Pixels [i,j] = $00FFFFFF) then
    Begin
    Form1.StringGrid1.Cells[0,Form1.StringGrid1.RowCount-1] := IntToStr (i);
    Form1.StringGrid1.Cells[1,Form1.StringGrid1.RowCount-1] := IntToStr (j);
    Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1;
    End;
    
    заменил 255 на $00FFFFFF и получилось, сенкс. Всем, кто учавствовал ставлю +2 -- что могу.
     
    #7 Knight_of_Darkness, 6 Oct 2007
    Last edited: 6 Oct 2007
    1 person likes this.