Delphi. Ход Конем

Тема в разделе "Pascal and Delphi", создана пользователем BLG, 24 фев 2013.

Статус темы:
Закрыта.
  1. BLG

    BLG New Member

    Регистрация:
    24 фев 2013
    Сообщения:
    1
    Симпатии:
    0
    Здравствуйте.

    Есть задача:

    Вот то, что получилось на настоящий момент:

    Код (Text):
    var
    i,j:integer;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    with StringGrid1 do begin
    for i:=0 to 7 do
    for j:=0 to 7 do
    Cells[i,j]:='0';

    i:=StrToInt(Edit1.Text)-1;
    j:=StrToInt(Edit2.Text)-1;


    if (i<2) then
    Cells[i,j]:='K';
    Cells[i+1,j+2]:='*';
    Cells[i+2,j+1]:='*';
    Cells[i+2,j-1]:='*';
    Cells[i+1,j-2]:='*';

    if (i>2) then
    Cells[i,j]:='K';
    Cells[i-1,j-2]:='*';
    Cells[i-2,j-1]:='*';
    Cells[i-2,j+1]:='*';
    Cells[i-1,j+2]:='*';

    if (j<2) then
    Cells[i,j]:='K';
    Cells[i-1,j-2]:='*';
    Cells[i-2,j-1]:='*';
    Cells[i+2,j-1]:='*';
    Cells[i+1,j-2]:='*';

    if (j>2) then
    Cells[i,j]:='K';
    Cells[i+1,j+2]:='*';
    Cells[i+2,j+1]:='*';
    Cells[i-2,j+1]:='*';
    Cells[i-1,j+2]:='*';


    end;
    end;
    Есть пара вопросов:

    1. Если i или j такое, что i-1, j-1, i-2, j-2 будут отрицательными, то в итоге будет ошибка и решаться не будет.

    2. Координаты по j идут сверху вниз, а надо снизу вверх. Т.е. если мы пишем j=2, то это будет не вторая клетка снизу, а седьмая (или вторая сверху).

    Помогите, пожалуйста, разобраться.
     
Загрузка...
Похожие Темы - Delphi Ход Конем
  1. cybert
    Ответов:
    0
    Просмотров:
    101
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    167
  3. antares
    Ответов:
    0
    Просмотров:
    452
  4. Луиза
    Ответов:
    0
    Просмотров:
    298
  5. avizer
    Ответов:
    5
    Просмотров:
    738
Статус темы:
Закрыта.

Поделиться этой страницей