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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
const n=3;m=6;
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,temp:integer;
begin
   for i:=1 to n do
     begin
       temp:= a[i,st1];
       a[i,st1]:=a[i,st2];
       a[i,st2]:=temp
     end
end;
begin
 init(a);
 print(a,'A');
 for j:=1 to m div 2 do insert(a,j,m-j+1);
 print(a,'A''');
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные: n, m - числа, характеризующие размерность двумерного массива; mas - тип данных, представляющий двумерный массив; a - переменная, в которую записывается двумерный массив; j, mm - переменные, используемые в цикле; init - процедура, инициализирующая значения элементов массива случайными числами; print - процедура, выводящая значения элементов массива в определенном формате; insert - процедура, вставляющая элемент массива в определенную позицию. В процедуре init происходит инициализация значений элементов массива случайными числами от 0 до 10. В процедуре print происходит вывод значений элементов массива в определенном формате. В процедуре insert происходит вставка элемента массива в определенную позицию.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы