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

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

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

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

http://www.cyberforum.ru/delphi-beginners/thread2007244.html
Задача: Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке.

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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке (Delphi):

Упорядочить элементы каждой строки матрицы по возрастанию
Дана матрица 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,...

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

Упорядочить строки матрицы по возрастанию их характеристик
Смысл задачи: Характеристикой строки назовем наибольшее количество идущих...

Массив: Найти среднее арифметическое в каждой строке матрицы A и вычесть его из всех элементов этой строки...
Разработать программу для решения задачи. Протестировать разработанную...


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

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

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