Составить процедуру сортировки по убыванию значений элементов одномерного массива. Используя ее отсортировать элементы в каждом столбце прямоугольной матрицы.
Пусть задана матрица А, содержащая n строк и m столбцов, описана процедура Sort сортировки одномерного массива C, например методом максимального элемента (выбора). Чтобы организовать сортировку столбцов матрицы, после ввода элементов матрицы необходимо предусмотреть цикл по номерам столбцов матрицы. Поскольку процедура сортировки обеспечивает преобразование только одномерного массива, необходимо на каждом шаге внешнего цикла с помощью дополнительного цикла по номерам строк матрицы преобразовать очередной ее столбец в одномерный массив С и обратиться к процедуре Sort. Полученный отсортированный массив записывается на место исходного столбца матрицы. В конце программы осуществляется вывод преобразованной матрицы А.
На рис. 4.1 приведены алгоритмы ввода и вывода столбцов прямоугольной матрицы. Алгоритм сортировки прямоугольной матрицы А представлен на рис. 4. 2, где ввод и вывод матрицы А, также оформлен в виде соответствующих процедур.
Процедура ввода матрицы
i= 1, n |
j =1, m |
InArr (n, m) |
Ввод aij |
InArr (A) |
Процедура вывода матрицы
i= 1, n |
j =1, m |
OutArr (A,n, m) |
Вывод aij |
OutArr |
Рис. 4.1. Схема алгоритма ввода и вывода столбцов прямоугольной матрицы.
Начало |
Ввод исходных данных |
i= 1, n-1 |
Преобразование столбца в массив С |
Sort (C, n) |
Запись массива в столбец |
Вывод матрицы |
Конец |
Процедура сортировки элементов одномерного массива
Sort (C, n) |
Ввод исходных данных |
i= 1, n-1 |
max=ci k=i |
j = i+1, n |
cj>max |
max=cj k=j |
да |
нет |
ck=ci ci=max |
Sort (C, n) |
Рис. 4.2. Схема алгоритма сортировки столбцов прямоугольной матрицы.
{Цель: сортировка столбцов прямоугольной матрицы }
{Параметры и переменные: а-двумерный массив, с-одномерный массив }
{n –число строк, m-число столбцов, Nmax,Mmax-максимально }
{допустимое число строк и столбцов, }
{ Vector – тип одномерного массива, }
{ Matrix-тип двумерного массива }
program SortingColumn;
Const
Nmax=20;
Mmax=20;
Type
Vector=array[1..Nmax] of real;
Matrix=array[1..Nmax,1..Mmax] of real;
Var
a:Matrix;
c:Vector;
i,j,m,n:integer;
{процедура ввода двумерного массива }
{Параметры;a-двумерный массив;n-число строк; }
{m-число столбцов;i,j-параметры циклов }
{Name-имя массива }
Procedure InArr(n,m:integer; Var a:Matrix; Name:Char);
var
i,j:integer;
Begin{InArr}
Writeln('введите',n*m,'элементов матрицы',Name);
for i:=1 to n do
for j:=1 to m do
begin
Write(Name,'[',i,',',j,']=');
read(a[i,j])
end
end;{InArr}
{процедура вывода двумерного массива }
{Параметры;a-двумерный массив;n-число строк; }
{m-число столбцов;i,j-параметры циклов }
Procedure OutArr(var a:Matrix;n,m:integer);
var
i,j:integer;
begin{OutArr}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6:2);
Writeln
end
End;{OutArr}
{процедура сортировки одномерного массива}
{Параметры: с-одномерный массив;n-размер массива;}
{k-номер максимального элемента; i,j-параметры циклов}
{Max- максимальный элемент}
procedure Sort(var c:Vector;n:integer);
Var
i,j,k:integer;
Max:real;
Begin{Sort}
For i:=1 to n-1 do
begin max:=c[i];
for j:=i+1 to n do
if c[j]>Max then
begin
Max:=c[j];
k:=j
end;
c[k]:=c[i];
c[i]:=max
end
end;{Sort}
Begin {SortingColumn}
Writeln('введите число строк и столбцов матрицы A');
read(n,m);
InArr(n,m,a,'a');{ввод матрицы A}
Writeln('исходная матрица');
OutArr(a,n,m);{вывод результата}
for j:=1 to m do
begin
{Преобразование столбца в одномерный массив}
for i:=1 to n do
c[i]:=a[i,j];
Sort(c,n);{Сортировка столбца}
{Запись массива в столбец матрицы }
for i:=1 to n do
a[i,j]:=c[i]
end;
Writeln('преобразованная матрица');
Outarr(a,n,m);{вывод результата}
End.{SortingColumn}
СТРОКИ
Подготовка к работе
По указанной литературе и методическим указаниям к данной работе изучить порядок работы. Ответить на контрольные вопросы.
Контрольные вопросы
1. Что такое строка?
2. Каким идентификатором определяются данные строкового типа?
3. Какова максимально возможная длина строки? Как определить текущую длину строки?
4. Какие выражения называются строковыми?
5. Каким образом производится сравнение строк?
6. Какие операции допустимы над строковыми выражениями?
7. Как можно обратиться к отдельным символам строки?
8. Назначение специальных процедур и функций обработки данных строкового типа.