Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Elegia77
0 / 0 / 0
Регистрация: 06.11.2013
Сообщений: 27
1

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

24.04.2014, 10:01. Просмотров 352. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста переделать программу на делфи. Переводил код с паскаля на делфи, не работает. На паскале работает.

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

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
Type mas=array[1..5] of integer;
Var a: array[1..5, 1..5] of integer;
s, d:mas; {массив элементов одной строки и массив количеств одинаковых элементов в строках}
j,k,w, min, m :integer;
 
procedure kolich(b:mas; Var kol: integer); {кол-во одинаковых элементов с строке}
Var j, k, max :integer;
c:mas;
begin
for j:=1 to 5 do
begin
c[j]:=0;
for k:=1 to 5 do
if b[k]= b[j] then c[j]:=c[j]+1;
end;
max:=c[1];
for j:=2 to 5 do
if c[j]> max then max:=c[j];
kol:=max;
end; {конец процедуры}
 
Procedure obmen(Var x,y:integer); {для обмена местами элементов}
Var p:integer;
begin
p:=x;
x:=y;
y:=p;
end; {конец процедуры}
 
begin
writeln('Исходный массив ');
for j:=1 to 5 do
begin
for k:=1 to 5 do
begin
a [j, k ] := Random(10);
write( a [ j,k ]:3,' ');
end;
writeln;
end;
 
for j:=1 to 5 do
begin
for k:=1 to 5 do
s [ k] := a [ j,k ]; {формирование матрицы из элементов строки};
kolich(s, d[j]);
writeln('Количество одинаковых элементов в ', j, ' строке= ', d[j]);
end;
 
{сортировка массива d и перестановка строк}
for j:=1 to 4 do
begin
min:=d[j]; m:=j;
for k:=j+1 to 5 do
if d[k]< min then begin min:=d[k]; m:=k end;
obmen(d[j],d[m]);
for w:=1 to 5 do {перестановка строк}
obmen(a[j,w],a[m,w]);
end;
 
writeln('матрица с переставленными строками в соответствии с ростом количества одинаковых элементов в строке: ');
for j:=1 to 5 do
begin
for k:=1 to 5 do
write( a[j,k]:3,' ');
writeln;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 10:01
Ответы с готовыми решениями:

Упорядочить элементы в каждой строке динамической матрицы по возрастанию значений элементов
По запросу пользователя создать двухмерный динамический массив, состоящий из символьных типов....

Упорядочить элементы каждой строки матрицы по возрастанию
Дана матрица A(nxn). Написать программу, которая упорядочивает элементы каждой строки этой матрицы...

Упорядочить строки матрицы по возрастанию суммы их элементов
Дана вещественная матрица nxm.Упорядочить ее строки по возрастанию суммы их элементов.

Упорядочить строки матрицы по возрастанию их первых элементов
Нарисуйте схему алгоритма. Во всех заданиях переменные вводить и выводить с помощью компонента...

Упорядочить строки матрицы по возрастанию их наибольших элементов
Помогите пожалуйто решить 2 задачи: Задача1. Дана матрица размером NxM. Упорядочить её строки...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2014, 10:01

Вычислить суммы и количества элементов каждой строки матрицы
вычислить и запомнить суммы и числа элементов каждой строки матрицы.Результаты отпечатать в виде...

Отсортировать столбец с номером n_sort целочисленной матрицы М(4,4) по возрастанию элементов с использованием модуля
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Массив: Сформировать массив, элементы которого состоят из расположенных по возрастанию максимальных элементов каждой строки матрицы А.
Помогите пожалуйста написать такую программу Есть массив A размерностью m на n. Сформировать...


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

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

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