Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Реализовать сортировку методом Шелла https://www.cyberforum.ru/ turbo-pascal/ thread728944.html
Помогите организовать метод Шелла, если не затруднит с подробными комментариями
Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова Turbo Pascal
Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова.
Turbo Pascal Вычислить среднеарифметическое значение нечетных по значению элементов третьей четверти массива!
Мыслей вообще никаких! Задание: Вычислить среднеарифметическое значение нечетных по значению элементов третьей четверти массива!
Turbo Pascal Сформировать одномерный массив, каждый элемент которого равен количеству элементов соответствующей строки Дан двумерный массив размерностью 4 х 6, заполненный случайным образом целыми числами. определить есть ли в данном массиве столбец , в котором имеются одинаковые элементы . сформировать одномерный... https://www.cyberforum.ru/ turbo-pascal/ thread728913.html
Turbo Pascal Подсчитать количество квадратов нечётных значений элементов данного массива https://www.cyberforum.ru/ turbo-pascal/ thread728909.html
Дан массив из "n" элементов. Подсчитать количество квадратов нечётных значений элементов данного массива. Помогите написать программу.
Turbo Pascal Заменить все положительные элементы массива минимальным элементом этого массива
Такие дела : задан вектор А, который содержит n элементов. Нужно заменить все положительные элементы массива минимальным элементом этого массива. Вот из этого всего нужно составить программу на...
Turbo Pascal Зачетная работа!
1 задание. Текст (массив символьных строк или предложений). Функции: выборка всех строк, начинающейся с заданной буквы, выборка всех строк, содержащих заданное слово, выделение первого слова каждой...
Turbo Pascal Известны фамилии всех 30 сотрудников фиры и их адреса Известны фамилии всех 30 сотрудников фиры и их адреса. Определить, работают ли в фирме люди с одной из фамилий: Кузин, Куравлев, Кудин, Кульков или Кубиков. В случае положительного ответа напечатать... https://www.cyberforum.ru/ turbo-pascal/ thread728838.html
Turbo Pascal Строки текста.Найти слова в каждой строке https://www.cyberforum.ru/ turbo-pascal/ thread728823.html
Задача: В текстовом файле находятся строки текста,разбитого на отдельные слова.Слова отделяются знаками припинания или пробелами.Представить каждую строку как список слов.Найти все слова которые...
Turbo Pascal Переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик ребята гляньте в чем ошибка, вот задача: Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы заданной матрицы, расположить... https://www.cyberforum.ru/ turbo-pascal/ thread728816.html
11 / 11 / 2
Регистрация: 01.06.2012
Сообщений: 114
0

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

12.12.2012, 15:23. Просмотров 4286. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.