квадратный массив

← →
saty (2003-05-02 15:23) [0]

Подскажите пожалуйста как можно определить в квадратном массиве NxN в каждой его строке встречаются все числа от 1 до N по одному разу

← →
KSergey (2003-05-02 15:29) [1]

У вас плохо с пересказом. Нифига не понятно.
Перепечатайте дословно задание из задачника.

← →
saty (2003-05-02 15:33) [2]

Подскажите пожалуйста как можно определить в квадратном массиве NxN встречаются ли все числа от 1 до N по одному разу в каждой его строке

← →
app (2003-05-02 15:41) [3]

Достаточно одной таблетки

← →
Набережных С. (2003-05-02 15:43) [4]

>квадратный массив
Хорошо хоть не круглый...

← →
Yanis (2003-05-02 15:48) [5]

Не хочу мешать вам прикалываться так как сам это люблю делать, но если вы знаете как помочь человеку, то почему бы этого не сделать.

← →
Palladin (2003-05-02 16:31) [6]

> KSergey © (02.05.03 15:29)

что именно тут непонятного?

> saty (02.05.03 15:23)

нарисуй на бумажке квадрат, заполни его числами от балды, и проверь его, чтобы все числа встечались по одному разу.
во время проверки следи за ходом своих мыслей, составь алгоритм, как ты действовал, напиши все на листочке шаг за шагом, потом уже пытайся реализовать...

← →
KSergey (2003-05-02 16:44) [7]

Боюсь опять не совсем мне понятно...

Т.е. надо проверить, что в каждой строке числа от 1 до N:
а) присутствуют
б) встречаются только 1 раз

Верно?

Если верно, то вижу такое решение в лоб. (наверное можно и как-то красиво, но надо думать...)
Да, прошу прощения, могу наврать в синтаксисе доступа к многомерному массиву. Сам пользуюсь этим редко, а уточнять в справке - лень. Но думаю, что будет понятно.

var
Arr: array [1..N, 1..N] of integer; // наш квадратный массив
CntArr: array [1..N] of integer; // наш вспомогательный массив
i, j: Integer; // а куда без них?
begin
for i := 1 to N do
begin
// для начала почистим вспомогательный массив
for j := 1 to N do
CntArr[j] := 0;
// теперь для тек. строки посчитаем кол-во каждой цифры
for j := 1 to N do
if (Arr[i,j] >= 1) AND (Arr[i,j] <= N) then
Inc (CntArr[Arr[i,j]]);
// теперь проверим все ли числа встретились и 1 ли раз
for j := 1 to N do
if CntArr[j] <> 1 then
begin // хоть для одной строки условия не выполняются - выход
ShowMessage ("Ай-яй-яй! условия не выполняются!");
Abort; // ну или иной подходящий метод прервать все это безобразие
end;
end; // for i
ShowMessage ("Условия выполняются");
end;

квадратный массив Найти похожие ветки