1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. neznayka

    neznayka Гость

    Репутация:
    0
    Я в Делфи полный ноль, поэтому прошу вашей помощи..объясните что не так и как это исправить
    Задача: есть матрица 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;


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

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