Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,., второй,первый - Pascal ABC
Формулировка задачи:
Решение задачи: «Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,., второй,первый»
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 происходит вставка элемента массива в определенную позицию.