VPF::Матрицы.Помогите - Форум программистов

grabovo

Дата 8.12.2008, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.12.2008

Репутация: нет
Всего: нет

Дана двумерная матрица.Есть ли в ней одинаковые строки? (Без процедур и функций.Сделать чисто через циклы).

mr.Anderson

Дата 8.12.2008, 22:17 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

Лови. Не проверял.

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A: Array [1..5, 1..8] Of Integer; //5 строк, 8 столбцов
  I, J, K: Integer;
  C: Boolean;

begin
  for I := 1 to 4 do //по строкам (можно 4 раза, 5-й лишний будет)
  begin
    for J := 1 to 5 do //снова по строкам
    begin
      if J = I then
        continue; //строку саму с собой сравнивать нечего

      C := True; //допустим, строки одинаковы

      for K := 1 to 8 do //по элементам строк, их равное количество, поэтому одного цикла хватит
          if A[I, K] <> A[J, K] then
          begin
            C := False;
            break;
          end;

      if C then
      begin
        WriteLn('There are equal strings.');
        ReadLn;
        exit;
      end;
    end;
  end;

  WriteLn('There are NO equal strings.');
  ReadLn;
end.

Это сообщение отредактировал(а) mr.Anderson - 8.12.2008, 22:20

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »