обмен столбца и строки двумерного массива

[Shelena]

Постановка задачи: используя функции, решить указанную задачу. Массив должен передаваться в функцию как параметр.
А надо, собственно, написать процедуру обмена столбца и строки двумерного массива. С ее помощью поменять местами те строки и столбцы, первые элементы которых собпадают.
Заранее огромное спасибо. Помогите, хотя бы частично...

[fbus]

вариантов немного:
для квадратной матрицы
1) (думаю самый простой вариант) это создание еще одного массива (одномерного) в качестве буфера.
2) (параноидальный) можно использовать всего 1 переменную как буфер, но главное перед этим делом выпить, потому как вероятность ошибиться оч. велика

[RUSt88]

program test;

const 
    N = 4;

type TMass = array[0..N] of Integer;
type TMatr = array[0..N] of TMass;

var
    matr: tmatr;
    i, j: integer;
    key: char;

procedure Change(var a: tmatr);
var
    i, j: integer;
    col: integer;
begin
    for i := 0 to N do begin
        if (matr[i, 0] = matr[0, i]) then begin
            for j := 0 to N do begin
                col := matr[i, j];
                matr[i, j] := matr[j, i];
                matr[j, i] := col;
            end;
        end;
    end;
end;

begin
    writeln('Enter matrix elements by string with spaces');
    for i := 0 to N do
        for j := 0 to N do
            read(matr[i, j]);
    writeln('---matrix after procedure Change---');
    change(matr);
    for i := 0 to N do begin
         for j := 0 to N do begin
            write(matr[i, j], #32);
        end;
        writeln;
    end;
    write('Press any key for exit...')
    readln(key);
end.

только сделал изменение строк и столбцов тех, у к-рых первые элементы совпадают по индексам, т.е. первый элемент совпадает только например у 2-ой строки и у 2-ого столбца, если нужно по другому, то тут изменять придется код

держите нямку ))

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

[fbus]

RUSt88, это конечно проблема студента но я бы не стал массивы объявлять в Type поскольку задание явно из первого курса (напомню что сейчас ноябрь, тоесть с 1 сентября прошло 2 месяца) на первом курсе массивы объявляют в Var а не type и не делают их динамическими...
хотя у просящего должна быть и своя голова на плечах

[RUSt88]

хотя у просящего должна быть и своя голова на плечах

весьма и весьма поддерживаю, но я сижу на рабе, делать нечего :DDD решил замутить

и не делают их динамическими...

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

Массив должен передаваться в функцию как параметр.

стопудов так надо было делать, как я написал

[Shelena]

Сообщение от fbus

на первом курсе массивы объявляют в Var а не type и не делают их динамическими...
хотя у просящего должна быть и своя голова на плечах

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

[RUSt88]

он не понимает, когда я закончила матрицу набирать

что это значит не понимает?? вы хоть правильно матрицу заполнятете?
матрица размером идет 5х5, а не 4х4, как вы подумали наверно, потому что идет отсчет от 0 до 4, а не от 1

матрица во-вторых квадратная, т.е. вводить так надо было

5 4 9 2 4
4 8 7 0 2
9 5 6 4 7
3 1 8 2 3
7 8 9 2 7

[Shelena]

Сообщение от RUSt88

матрица размером идет 5х5, а не 4х4, как вы подумали наверно, потому что идет отсчет от 0 до 4, а не от 1

ой, извиняюсь

О_о Что это?

[Shelena]

преподаватель не принял =(
он дооолго пытался разобраться, где ошибка, но так и не понял.
и сказал что надо по-другому... рассматривать только 1 вариант: когда совпадают первые элементы ОДНОЙ строки и ОДНОГО столбца, без разницы какие у них индексы, и их менять.
В процедуре Change нужно менять 2 параметра: номер строки и номер столбца, он так сказал (а было не так чтоли? Оо), типа должно быть
"Procedure Change (i,j: integer);" и т.д., для чего там "var a:tmatr" он не понял %)

[RUSt88]

он дооолго пытался разобраться, где ошибка, но так и не понял.

преподаватель дуб

первые элементы совпадут ВСЕГДА у первой строки и у первого столбца!!!