Версия для печати темы

Автор: lesena-85 6.04.2006 22:44

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

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

Автор: klem4 6.04.2006 23:32

Ответы на ВСЕ вопросы ты наедешь http://forum.pascal.net.ru/index.php?showtopic=2694
Просто поищи.
+ поиск по форуму. Будут конкретные вопросы, задавай.

Автор: lesena-85 8.04.2006 22:51

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

Автор: volvo 8.04.2006 23:04

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

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


Прикрепленные файлы
 tt.pas ( 1.63 килобайт ) Кол-во скачиваний: 228

Автор: lesena-85 10.04.2006 18:19

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

Автор: volvo 10.04.2006 18:28

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

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 элементов...