матрица и дубликаты...

[xakkkkker]

вот такой вопрос.
Есть матрица из 8 строк и 4 столбца. Как можно удалить одинаковые строки (то есть дубликат) ?

3 3 1 1
3 1 1 3
3 3 1 1
1 3 1 3
1 1 3 1
3 1 1 3
1 3 1 1
2 2 2 2

Надо чтоб получилось

3 3 1 1
3 1 1 3
1 3 1 3
1 1 3 1
2 2 2 2

Хотя бы алгоритм подскажите

[sllh_111]

язык пр не указан, так что х.з на каком вам и писать?!

Sub DeleteRows()
 Dim R As Integer
 Dim i As Integer
 Dim j As Integer
 Range("A1").Select
 Selection.End(xlDown).Select
 R = Selection.Row
 Range("A1").Select
 For i = R To 2 Step -1
     For j = 1 To i - 1 Step 1
         If Cells(i, 1) = Cells(j, 1) And Cells(i, 2) = Cells(j, 2) Then Row(i).Delete
     Next j
 Next i
End Sub

такой сгодиться

[xakkkkker]

нет не сгодится мне на паскале надо. Лучше алгоритм скажите я сам напишу

[Stilet]

Ну например тупо три вложенных цикла, первые два - проход по матрице, третий - проход по элементам сравниваемых строк.