Спасите пожалуйста! ( про матрицу)

Тема в разделе "Delphi - FAQ", создана пользователем neznayka, 28 мар 2009.

  1. neznayka

    neznayka Гость

    Я в Делфи полный ноль, поэтому прошу вашей помощи..объясните что не так и как это исправить
    Задача: есть матрица m*n. нужно сравнить ее строки и если одинаковых нет, вывести сообщение об этом.


    procedure TMainForm.GoBtnClick(Sender: TObject);
    var text: string;
    i,j,k : Integer;
    begin
    for i:=0 to Rows.value do
    for j:=i+1 to Rows.value-1 do
    for k:=0 to Cols.value-1 do
    begin
    if Matrix.Cells[k,i]=Matrix.Cells[k,j]
    then
    text:='Есть одинаковые строки'
    else
    text:='Нет одинаковых строк'
    end;
    MessageDlg(text, mtInformation, [mbOk], 0);
    end;


    Сравнивает только первых две строки.Остальные игнорирует.
     
Загрузка...
Похожие Темы - Спасите пожалуйста про
  1. vital
    Ответов:
    3
    Просмотров:
    2.610
  2. abbatik
    Ответов:
    27
    Просмотров:
    7.305
  3. morpheus
    Ответов:
    0
    Просмотров:
    1.740
  4. grigsoft
    Ответов:
    14
    Просмотров:
    17.509
  5. limbra
    Ответов:
    3
    Просмотров:
    44

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