Матрицы, помогите решить 1 задачку Опции

[lesena-85]

Формулировка условия задачи

а) В матрице А поменять местами два столбца с заданными номерами
б) сформировать из элементов полученной матрицы, которые определяются как суммы элементов ее столбцов, диагональную матрицу С;
в) если среди элементов главной диагонали С нет равных, найти ее след, в противном случае вычесть из С единичную матрицу.
Помогите пожалуйста, надо очень срочно решить. а никак. и если есть возможность-поразвернутей, плиз.

[klem4]

Ответы на ВСЕ вопросы ты наедешь здесь
Просто поищи.
+ поиск по форуму. Будут конкретные вопросы, задавай.

Сообщение отредактировано: klem4 - 6.04.2006 19:34

[lesena-85]

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

[volvo]

хотелось бы именно программку полностью

А поможет она тебе?

Ну, попробуй разобраться:

[lesena-85]

А поможет она тебе?

Ну, попробуй разобраться:

Спасибо, я разобралась. единственное, у меня еще задача. чтобы ввод и вывод данных был из файла. а с этим проблемы...

[volvo]

Вот с этим как раз никаких проблем:

Program matrix_test(input, output); { добавляешь это }

{ меняешь старую процедуру enter на эту }
procedure enter(var res: mx);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do read(res[i, j]); {  }
    readln;
  end;
end;

{ добавляешь в начале основной программы вот это: }
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);

  ... { остальная часть программы }

  { не забываем закрывать файлы }
  close(output);
  close(input);
end.

Естественно, что в файле матрица должна храниться в виде: N строк в каждой по N элементов...