Name: Написать процедуру обмена столбца и строки двухмерного массива
Item: Написать процедуру обмена столбца и строки двухмерного массива
Author: NetSoftWare

Главная » » Написать процедуру обмена столбца и строки двухмерного массива

10:24 Написать процедуру обмена столбца и строки двухмерного массива
1. Написать процедуру обмена столбца и строки двухмерного массива. 2. С ее помощью поменять местами те строки и столбцы, первые элементы которых совпадают. (процедура не должна зависеть от программы - т.е. ее можно было вставить в другую программу) const MaxCount = 100; n=3; // кол-во элементов type TMassiv=Array [1..MaxCount,1..MaxCount] of Integer; {массив элементов } var b:TMassiv; Procedure change(var a:TMassiv;acol, arow: integer); var x,y:integer; tm1,tm2,z:integer; k,m:integer; arow_d:array [1..MaxCount] of integer; begin k:=arow;{строка} m:=acol;{столбец} {запоминаем строку } for x:=1 to n do arow_d[x]:=a[x,arow]; for x:=1 to n do begin a[x,arow]:=a[acol,x]; a[acol,x]:=arow_d[x]; end; end; блок схема функции вся программа
1 2 3 4 5 Просмотров: 2358 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0