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

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

Наш партнер Genesis Hackspace
  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;


    Сравнивает только первых две строки.Остальные игнорирует.
     
Загрузка...

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