Упорядочить по возрастанию элементы каждого столбца матрицы.

@Best-pm07 · Регистрация: 19.03.2009

Author24 — интернет-сервис помощи студентам

Задание:
Составить программу решения задачи на Pascal.
Вывод матрицы на экран оформить в виде процедуры. Упорядочить по возрастанию элементы каждого столбца матрицы.

Пожалуйста, помогите сделать

@Puporev · 27.03.2009, 12:08

Пожалуйста, помогите сделать

Давай начало программы, до того места, где не выходит, доделаем. А то критики море, но ни одной строчки кода от Вас еще не видели. Пора уже.

@NasmAPIk · 27.03.2009, 12:20

Решение задачи:

Pascal

Program Zadacha;
uses crt;
const
  n = 5;
  m = 5;
type
  mat = array[1..n,1..m] of byte;
var
 a:mat;
 i,j,q,k:byte;
 
procedure create(var z:mat);
begin
 for i:=1 to n do
    for j:=1 to m do z[i,j]:=random(50);
end;
 
procedure vivod(z:mat);
begin
 for i:=1 to n do begin
    for j:=1 to m do write(z[i,j]:3);
    writeln;
 end;
 writeln;
end;
 
begin
 clrscr;
 randomize;
 create(a);
 vivod(a);
 for j:=1 to m do
   for q:=1 to n do
   for i:=1 to n-1 do begin
      if a[i,j]>a[i+1,j] then begin k:=a[i,j]; a[i,j]:=a[i+1,j]; a[i+1,j]:=k; end;
   end;
 vivod(a);
 readkey;
end.

@Best-pm07 · 27.03.2009, 12:33 **[ТС]**

Puporev, действительно

@Best-pm07 ..:::BesT:::.. 8 / 8 / 5 Регистрация: 19.03.2009 Сообщений: 195
		1
	Упорядочить по возрастанию элементы каждого столбца матрицы. 27.03.2009, 10:31. Показов 1225. Ответов 3 Метки нет (Все метки) Задание: Составить программу решения задачи на Pascal. Вывод матрицы на экран оформить в виде процедуры. Упорядочить по возрастанию элементы каждого столбца матрицы. Пожалуйста, помогите сделать 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.03.2009, 12:08	2
	Пожалуйста, помогите сделать Давай начало программы, до того места, где не выходит, доделаем. А то критики море, но ни одной строчки кода от Вас еще не видели. Пора уже. 0

@Best-pm07 ..:::BesT:::.. 8 / 8 / 5 Регистрация: 19.03.2009 Сообщений: 195
	27.03.2009, 12:33 [ТС]	4
	Puporev, действительно 0