Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
1

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

04.03.2015, 21:57. Просмотров 597. Ответов 1
Метки нет (Все метки)


Дано двухмерный масив размерность которого НхМ. Элементы массива - целые числа. Упорядочить столбцы по возрастанию элементов первой строки.
Написал код, но он неработает.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program mass;
uses crt;
CONST m = 10;
n = 5;
type mas=array[1..n, 1..m] of integer;
var a:mas; y:integer;
procedure init_mas(var x:mas;m:integer);
 
var i,j:byte;
begin
 
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100);
 
writeln;
end;
end;
end;
procedure print_mas(x:mas;m:byte);
var i,j:byte;
begin
writeln('elements of mas: ');
for i:=1 to m do write(a[i,j]:3);
writeln;
end;
procedure sort(var x:mas;m:byte);
var i,j:byte;
begin
for i:= 2 to n do
begin
y:= x[i];
x[0]:=x[i];
j:=i;
while y<x [j-1] do 
begin
x[j]:= x[j-1]; j:=j-1;
end;
x[j]:=y;
end; 
end;
BEGIN
writeln('input ');readln(n);
init_mas(a,n);
sort(a,n);
print_mas(a,n);
readln;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2015, 21:57
Ответы с готовыми решениями:

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов (методом линейного выбора с подсчётом)
Дана действительная матрица А размерности (n x n). Если минимальный элемент матрицы встречается...

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом
Дана действительная матрица A размерности . Если среднее арифметическое элементов первой строки...

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом
Дана действительная матрица A размерности (m x n). Если среднее арифметическое элементов первой...

Упорядочить столбцы матрицы по возрастанию элементов k-й строки
Дана матрица размером M*N. Упорядочить ее столбцы по воз- растанию элементов k-й строки.

1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,997
Записей в блоге: 1
05.03.2015, 11:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program mass;
 
uses
  crt;
 
const
  m = 10;
  n = 5;
 
type
  mas = array[1..n, 1..m] of integer;
 
var
  a: mas;
 
procedure init_mas(var x: mas; n, m: integer);
 
var
  i, j: byte;
begin
  
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      x[i, j] := random(100);
      write(x[i,j]:4);
    end;
    writeln;
  end;
end;
 
procedure print_mas(x: mas; n, m: byte);
var
  i, j: byte;
begin
  writeln('elements of mas: ');
  for i := 1 to n do 
  Begin
    for j := 1 to m do
     write(x[i, j]:4);
    writeln;
  End;
  writeln;
end;
 
procedure sort(var x: mas; n, m: byte);
var
  i, j, k: byte;
  temp: integer;
begin
  for i := m downto 2 do
    for j := 2 to i do
      if x[1, j] < x[1, j - 1] then
      begin
        for k := 1 to n do
        begin
          temp := x[k, j];
          x[k, j] := x[k, j - 1];
          x[k, j - 1] := temp;
        end;
      end;
end;
 
begin
  init_mas(a, n, m);
  sort(a, n, m);
  readln;
  print_mas(a, n, m);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2015, 11:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

упорядочить массив по возрастанию элементов первой строки. подкорректировать.
здесь чего-то не хватает..... вот задание:упорядочить массив по возрастанию элементов первой...

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейной вставки
1 задача... Тема: «Методы сортировок» Выполнить задание по обработке матриц с использованием...

Упорядочить столбцы матрицы по возрастанию первой строки
Заполнить массив из (MxN) элементов,случайными целыми числами в диапазоне (10:100).Упорядочить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.