Перестановка I-го и J-го столбцов в матрице Опции

[KBEHTUH]

Парни и девчонки...у меня такой геморрой....помогите плиз очень срочно надо!
Задача следующая:
В файле A.dat дана действительная квадратная матрица А порядка 15 и два целых числа i и j. Поменять в матрице А i-й и j-й столбцы. Замену оформить в виде подпрограммы. Конечную матрицу записать в файл B.res.
p.s. Там еще вроде схема какая-то нужна (ну типа алгоритм), но это по возможности. Заранее добрым людям - огромнейший РЕСПЕКТ=).

[virt]

Код

assign(input,'a.dat');reset(input);
assign(output,'B.dat');rewrite(output);
{ввод А}
for k := 1 to m do
   begin
      vr := a[k,i];
      a[k,i] := a[k,j];
      a[k,j] := vr;
   end;
{вывод А}

ввод ,вывод в FAQ()

[GoodWind]

у меня такой геморрой

с геммороем не к нам, а сюда

[Гость]

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

[volvo]

Не шаришь? А если тебе все время решать полностью - то и не научишься... Ссылка на FAQ и Поиск - у меня в подписи...

[KBEHTUH]

Да не мне это надо, а челу у которого ваще нет инета...парни, плиз выручайте.Я в Паскале ваще ни че не вкуриваю.

[Altair]

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

Я в Паскале ваще ни че не вкуриваю.

а ты как его куришь ?