[Asira]

Дан двумерный массив действительных чисел размером NxM. Поменять местами строки с номерами 1 и 3, 2 и 4, 5 и 7, 6 и 8 и т. д. Мой вариант

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils; const N=5;M=7; type mas=array[1..N,1..M] of integer; var l:mas; i,j:integer;    procedure vvod(var l:mas); var i,j: integer; begin randomize; for i:=1 to N do for j:=1 to M do l[i,j]:=random(100); end;   procedure vivod(l:mas); var i,j: integer; begin for i:=1 to N do begin for j:=1 to M do write(l[i,j]:4,' ');  writeln; end; end;   procedure ioke(var l:mas); var i,j,p: integer; begin i:=1; while i< = m -2 do begin for j:=1 to n do begin p:=l[i,j]; l[i,j]:=l[i+2,j]; l[i+2,j]:=p; end; if i mod 2=0 then i:=i+3 else i:=i+1;end; end; begin vvod(l);vivod(l); ioke(l); writeln(' '); vivod(l); readln; end.

Помогите найти ошибку!! Программа работает но из-за того что M >N в последней строке получаются 0 Подскажите как можно это исправить

[lmikle]

А причем тут то, что M > N???

Тут такая фигня.
1. Нужна процка, которая будет менять строки местами, притом на вход они просто принимает массив и индексы строк.
2. В основной процке у нас цикл, в котором вычисляем пары и запускаем обмен.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

const   N = 5;   M = 7;   type   TMatrix = Array [1..N,1..M] Of Integer;   procedure ExchangeRows(var M : Matrix; Index1, Index2 : Integer); var   I, Buf : Integer; begin   For I := 1 To N Do // по колонкам     Begin       Buf := M[I,Index1];       M[I,Index1] := M[I,Index2];       M[I,Index2] := Buf;     End; end;   procedure DoWork(var M : TMatrix); var   I : Integer;   I1, I2 : Integer; begin   I := 1;   While I < N Do     Begin       I1 := I;       I2 := I+2;       If (I1 <= N) And (I2 <= N) Then ExchangeRows(M,I1,I2);       I1 := I+1;       I2 := I+3;       If (I1 <= N) And (I2 <= N) Then ExchangeRows(M,I1,I2);       I := I + 4;     End; end;

Вот.

[Asira]

Спасибо!!!!!!!!Но она тож работает не правильно тож не меняет последние 3 столба в этом условии надо While I <= N Do