Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
steve37
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 1
#1

Урорядочивание элементов массива - Delphi

15.12.2013, 22:40. Просмотров 240. Ответов 0
Метки нет (Все метки)

Дана матрица размером NxM. Упорядочить ее строки по неубыванию суммы их элементов
Delphi
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
procedure TForm1.N3Click(Sender: TObject);  //заполнение 
begin
randomize;
for i:=1 to StrToInt(Edit2.Text) do
for j:=1 to StrToInt(Edit1.Text) do begin
StringGrid1.Cells[i,j]:=IntToStr(random(10));
a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
s[j]:=s[j]+StrToInt(StringGrid1.Cells[i,j]);
end;
end;
 
procedure TForm1.N4Click(Sender: TObject); // упорядочивание. не робит что не так?
begin
for i:=1 to StrToInt(Edit2.Text) do
for j:=2 to StrToInt(Edit1.Text) do
if s[i]<s[i-1] then begin
t:=a[i,j];
a[i,j]:=a[i,j-1];
a[i,j-1]:=t;
end;
 
for i:=1 to StrToInt(Edit2.Text) do
for j:=1 to StrToInt(Edit1.Text) do
StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
 
 
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2013, 22:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Урорядочивание элементов массива (Delphi):

Определить количество тех элементов массива, значения которых меньше среднего арифметического элементов массива - Delphi
Помогите составить программу Массив содержит 8 действительных чисел. Определить количество тех элементов массива, значения которых меньше...

Сформировать массив В размером 16, включая впервые 8 элементов массива В значения элементов с четными индексами массива А - Delphi
Задан массив А размером 16. Сформировать массив В размером 16, включая впервые 8 элементов массива В значения элементов с четными индексами...

Найти сумму элементов массива больших среднего арифметического элементов массива, массив задается вручную. - Delphi
Написать программу, которая вводит с клавиатуры 20 реальных чисел, и организовывает их хранение в массиве. После этого определяет сумму...

Вычислить сумму элементов массива А, количество положительных элементов массива В и его максимальный элемент - Delphi
Дано натуральное число n, массивы А и В размерностью n. Вести с клавиатуры элементы массивов и вычислить сумму элементов массива А ,...

Опередлить номера элементов массива А, которые являются квадратами соответствующих элементов массива В - Delphi
Помогите пожалуйста в среде программирования Делфи разработать программу, которая бы для заданных массивов целых чисел А и В размерности n...

Найти и напечатать сумму значений элементов массива А и произведение значений элементов массива В - Delphi
пожалуйста кто сможет,помогитзаписать программу. спасибо заранее! Даны два массива: А (10) и В (9) вещественных чисел. Найти и...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2013, 22:40
Привет! Вот еще темы с ответами:

Формирование нового массива из сумм пар элементов исходного массива. - Delphi
Задали линейный массив А, содержащий четное количество элементов. Вывести линейный массив В, элементы которого образовано по схеме: первый...

Найти количество элементов массива, сумму, упорядочить элементы массива - Delphi
помогите решить задачу по дэльфи: 1. Найти количество элементов массива, лежащих в диапазоне от А до В (вводятся с клавиатуры). ...

Записать положительные элементы массива X подряд в массив Y. Вычислить сумму элементов массива - Delphi
Всем привет, меня данная проблема, у нс в колледже мягко говоря все преподаватель озверели и на практике просто ни чего не объясняя дают...

Найти сумму всех элементов массива, кроме элементов с номером от K до L включительно. - Delphi
Добрый день. В делфи=&gt; Дан массив размера N и целые числа K и L (1 &lt; K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с...


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

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

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