Замена строки и столбца в матрице. - Форум
Суббота, 30.08.2014, 10:28

Программирование на паскале

Приветствую Вас Гость| RSS
Главная Замена строки и столбца в матрице. - Форум Регистрация Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Admin, renovatio 
Форум » Помощь в решении задач на паскале » Помощь в решении задач » Замена строки и столбца в матрице. (Отладка программы.)
Замена строки и столбца в матрице.
TonikДата: Вторник, 05.01.2010, 17:44 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 14
Награды: 0
Репутация: 0
Статус: Offline
Написал прогу, она работает, синтаксических ошибок вроде бы нет, но меняет местами не те элементы.
Кто знает, подскажите пожалуйста, как исправить?
Оригинал задания:
Дана матрица. Поменять местами i-ый столбец и j-ую строку.
Текст программы:
Code

Program Smena_elementov_mestami;
Uses CRT;
Const n=10;
var
pi:array[1..n] of real;
pj:array[1..n] of real;
a:array[1..n,1..n] of real;
m,i,j,str,stb:integer;
Begin
writeln('Vvedite poryadok matrici, ot 1 do 10');
readln(m);
for i:=1 to m do begin
for j:=1 to m do begin
writeln('Vvedite [',i:2,',',j:2,'] element matrici');
readln(a[i,j]);
end;
end;
writeln('Vvedite nomer stori, ot 1 do 10');
readln(str);
writeln('Vvedite nomer stolbca, ot 1 do 10');
readln(stb);
for i:=1 to m do
for i:=1 to m do
pi[i]:=a[str,j];
pj[j]:=a[i,stb];
for i:=1 to m do
for i:=1 to m do
a[str,j]:=pj[j];
a[i,stb]:=pi[i];
for i:=1 to m do begin
for j:=1 to m do begin
gotoXY(j*3,i*80);
writeln(a[i,j]);
end;
end;
end.

--------------------------------------
С уважением, Антон.
 
Форум » Помощь в решении задач на паскале » Помощь в решении задач » Замена строки и столбца в матрице. (Отладка программы.)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2014 Сайт управляется системой uCoz