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

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

15.12.2013, 22:40. Просмотров 246. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

Найти и напечатать сумму значений элементов массива А и произведение значений элементов массива В
пожалуйста кто сможет,помогитзаписать программу. спасибо заранее! Даны два...

Найти элементы массива, меньшие среднего арифметического элементов того же массива
Нужно написать в Delphi(в форме) вот эту штуку: В массиве c=(c1,c2,...,cn)...

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


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

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

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