Дан двумерный массив А. Расставить его столбцы в следующем порядке:первый,последний,второй,предпоследний и т.д

@Voley · Регистрация: 30.01.2015

Дан двумерный массив А. Расставить его столбцы в следующем порядке: первый,последний,второй,предпоследний и т.д
Желательно с процедурами Init, print,insert

@vint-81 · 30.10.2015, 17:18

Pascal

const n=3;m=7;
type mas=array[1..n,1..m] of integer;
var a:mas;j,mm:integer;
procedure init(var x:mas);
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to m do
   x[i,j]:=random(11)
end;
procedure print(x:mas;mm:string);
var i,j:integer;
begin
 writeln(mm,':');
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:3);
   writeln
  end;
 writeln
end;
procedure insert(var x:mas;st1,st2:integer);
var i,j,temp:integer;
begin
 for i:= 1 to n do
   begin
    for j:=st2 downto st1+1 do
     begin
       temp:= a[i,j];
       a[i,j]:=a[i,j-1];
       a[i,j-1]:=temp
     end
   end
end;
begin
 init(a);
 print(a,'A');
 j:=2;
 while j<=m do begin insert(a,j,m); inc(j,2) end;
 print(a,'A''');
end.

@Voley 1 / 1 / 0 Регистрация: 30.01.2015 Сообщений: 81
		1
	Дан двумерный массив А. Расставить его столбцы в следующем порядке:первый,последний,второй,предпоследний и т.д 30.10.2015, 11:26. Показов 1126. Ответов 1 Метки нет (Все метки) Дан двумерный массив А. Расставить его столбцы в следующем порядке: первый,последний,второй,предпоследний и т.д Желательно с процедурами Init, print,insert 0

Опции темы

Дан двумерный массив А. Расставить его столбцы в следующем порядке:первый,последний,второй,предпоследний и т.д

Решение