Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.11.2015, 07:16   #1
Boys
 
Регистрация: 30.10.2015
Сообщений: 8
По умолчанию поменять местами средние столбцы

поменять местами средние столбцы. для этого требуется процедура swap.
вот начало:
Код:
program Ex1;
const n=5; m=6;
type dmyarray=array[1..n,1..m] of integer;
var a : dmyarray;
procedure init(var x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  x[i,j]:=random(50);
end;
procedure print(x : dmyarray);
var i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to m do
  write(x[i,j]:5);
 writeln;
 end;
writeln;
end;

Последний раз редактировалось Аватар; 03.11.2015 в 07:31.
Boys вне форума Ответить с цитированием
Старый 03.11.2015, 10:07   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

допустим, есть матрица 3x6
Код:
 1  2  3  4  5  6
11 12 13 14 15 16
21 22 23 24 25 26
после SWAP что должно быть?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.11.2015, 12:47   #3
Boys
 
Регистрация: 30.10.2015
Сообщений: 8
По умолчанию

3 и 4 столбцы должны поменяться местами
Boys вне форума Ответить с цитированием
Старый 03.11.2015, 12:55   #4
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
для этого требуется процедура swap.
Код:
procedure swap(var x: dmarray; n1, n2: integer);
var
  n: integer;
begin
  n:=length(x, 1);
  assert(n1>=0 and n1<n);
  assert(n2>=0 and n2<n);

  for j:=0 to length(x, 2)-1 do begin
     t:=x[n1, j];
     x[n1, j]:=x[n2, j];
     x[n2, j]:=t;
  end;   
end;
Внимание!!! Это не код!! Copy-Paste не получится! Не компилируется.
Только как пример того что должно БЫТЬ у вас.
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поменять местами столбцы матрицы по правилу. Leshii Общие вопросы C/C++ 4 28.04.2012 18:58
Поменять местами столбцы в массиве Naposaram Общие вопросы Delphi 5 03.04.2012 22:32
С++. Поменять местами средние столбцы со вторым и предпоследним Bonne Помощь студентам 0 10.02.2010 19:52
Поменять в таблице exel столбцы местами marYna Microsoft Office Excel 2 15.01.2009 18:40
поменять местами столбцы veter_s_morya SQL, базы данных 4 29.06.2008 13:36