Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/22: Рейтинг темы: голосов - 22, средняя оценка - 4.82
11 / 11 / 2
Регистрация: 01.06.2012
Сообщений: 114
1

Сортировка двумерного массива по строкам

12.12.2012, 15:23. Просмотров 4117. Ответов 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
program lab_10;
uses crt;
var
 matr:array [1..100,1..100] of integer;
 s:array [1..100] of integer;
 m,n,i,k,p: integer;
begin
 clrscr;
  write('Vvedite kolichestvo stolbcov: ');
   readln(m);
  write('Vvedite kolichestvo strok: ');
   readln(n);
  for i:=1 to n do
   for k:=1 to m do
    begin
     write('Vvedite matr[',i,',',k,'] : ');
      readln(matr[i,k]);
     if matr[i,k]>0 then
      s[i]:=s[i]+matr[i,k];
    end;
  for i:=1 to n do
   begin
    for k:=1 to m do
     begin
      write('  ',matr[i,k]);
     end;
    writeln;
   end;
 
  writeln;
 
  for i:=1 to n-1 do
    for k:=1 to m-i do
     if(s[i]>s[i+1]) then
      begin
       p:=matr[i,k];
       matr[i,k]:=matr[i+1,k];
       matr[i+1,k]:=p
      end;
 
  for i:=1 to n do
   begin
    for k:=1 to m do
     begin
      write('  ',matr[i,k]);
     end;
    writeln;
   end;
 
 for i:=1 to n do
  writeln('summa  ',i,' stroki: ', s[i]);
 
 readkey;
end.
После запуска не правильно сортирует. в чем ошибка?
0
Миниатюры
Сортировка двумерного массива по строкам  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 15:23
Ответы с готовыми решениями:

Сортировка двумерного массива по строкам и по столбцам (методом вставки, обмена и выбора)
Завтра зачёт по информатике я не знаю как сделать 3 программы помогите, вот условия: 1: это лаба...

Сортировка выбором, по строкам двумерного целочисленного массива
Нужна помощь с решением. В выбранной среде программирования необходимо написать программу для...

сумма элементов двумерного массива по строкам.
Написать программу, которая вычисляет сумму элементов двумерного массива по строкам. еси можно...

Сумма элементов двумерного массива по строкам
Проверьте, пожалуйста. Найти сумму элементов двумерного массива по строкам. var A:array of...

2
Модератор
61692 / 46182 / 31862
Регистрация: 18.05.2008
Сообщений: 111,382
12.12.2012, 15:43 2
Добавьте переменную
Pascal
1
var j:integer;
Сортировку можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i:=1 to n-1 do
  for k:=i+1 to n do
  if(s[i]<s[k]) then
   begin
    p:=s[i];
    s[i]:=s[k];
    s[k]:=p;
    for j:=1 to m do
     begin
      p:=matr[i,j];
      matr[i,j]:=matr[k,j];
      matr[k,j]:=p
     end;
   end;
1
11 / 11 / 2
Регистрация: 01.06.2012
Сообщений: 114
12.12.2012, 15:52  [ТС] 3
Ага работает большое спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 15:52

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

Написать программу , которая вычисляет сумму элементов двумерного массива по строкам
помогите плз.

Написать программу, которая вычисляет сумму элементов двумерного массива по строкам
Написать программу, которая вычисляет сумму элементов двумерного массива по строкам.

Сортировка двухмерного массива по строкам. Расставить строки в порядке возрастания суммы их элементов
Паскаль. Нужно отсортировать двухмерный массив по строкам. Т.е строки выстроить в порядке...

Сортировка двумерного массива по строкам
Попытался отсортировать двумерный массив по строкам, но ничего не получилось. Вот код моей попытки...


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

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

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