Поменять местами все четные и нечетные строки матрицы

@Keppo12 · Регистрация: 03.10.2018

Author24 — интернет-сервис помощи студентам

Дана матрица размером N строк и M столбцов. Поменять местами все четные и нечетные строки матрицы.

@Puporev · 28.11.2018, 09:39

Консольное приложение или с формой?

@ZX Spectrum-128 · 28.11.2018, 09:42

Pascal

const
  n = 6;
  m = 8;
 
var
  a: array[1..n, 1..m] of integer;
  i, j, k, l: integer;
 
begin
  writeln('Matrix:'); 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      //a[i, j] := random(n) + 1; 
      a[i, j] := byte(odd(i));
      write(a[i, j]:4);
    end;
    writeln; 
  end;
  i := 1;
  repeat
    for j := 1 to m do 
    begin
      k := a[i, j];
      a[i, j] := a[i + 1, j];
      a[i + 1, j] := k;
    end;
    i := i + 2;
  until i > n;
  writeln('New matrix:'); 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
      write(a[i, j]:4);
    writeln; 
  end;
end.

@Keppo12 · 28.11.2018, 12:39 **[ТС]**

С формой

@Puporev · 28.11.2018, 13:04

Delphi

type str=array of integer;
     mtr=array of str;
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var m,n,i,j:integer;
    a:mtr;
    b:str;
begin
randomize;
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
setlength(a,m);
for i:=0 to m-1 do
setlength(a[i],n);
setlength(b,n);
with StringGrid1 do
 begin
  fixedcols:=0;
  colCount:=n;
  defaultcolwidth:=30;
  fixedrows:=0;
  rowcount:=m;
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  colCount:=n;
  defaultcolwidth:=30;
  fixedrows:=0;
  rowcount:=m;
 end;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
   a[i,j]:=10+random(90);
   StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
i:=0;
while i<m-1 do
 begin
  b:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=b;
  i:=i+2;
 end;
for i:=0 to m-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
end;

@Keppo12 0 / 0 / 0 Регистрация: 03.10.2018 Сообщений: 17
		1
	Поменять местами все четные и нечетные строки матрицы 28.11.2018, 09:33. Показов 4247. Ответов 4 Метки нет (Все метки) Дана матрица размером N строк и M столбцов. Поменять местами все четные и нечетные строки матрицы. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.11.2018, 09:39	2
	Консольное приложение или с формой? 0

@Keppo12 0 / 0 / 0 Регистрация: 03.10.2018 Сообщений: 17
	28.11.2018, 12:39 [ТС]	4
	С формой 0

	28.11.2018, 13:04

Поменять местами все четные и нечетные строки матрицы

Решение