Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Оптимизировать


Автор: Xrymz 11.12.2007, 00:30
вот тут 2 программки, это лабораторные работы... скажите можно ли как-то оптимизировать код. если где есть ошибки и недочёты?

Автор: Alexeis 11.12.2007, 00:47
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 

Автор: kemiisto 11.12.2007, 02:02
А что делает процедура
Код

procedure MassivSart(var Massiv:TMassiv;SG:TStringGrid;var Matrix:TMatrix);


Сортирует массив? Какой-то странный алгоритм. И нерабочий!  smile 

Автор: Xrymz 11.12.2007, 07:56
она методом обычной вставки сартируем массив SG3 и по нему сортирует поля в SG4
прога работает как
создается рендомом значения в массив m1
берется сумма каждой строки и пихается в матрицу mass
методом обычной вставке сортируется эта матрица и с нейже меняется позиции в m1

вот наглядный пример
создаётся рендомом матрица:
1 2 3 4 5
3 4 3 4 3
2 2 2 2 2
высчитывается сумма значений в столбике и заганяется в массив
наш массив будет из 3х значений которые получаться так
1+2+3+4+5=15
3+4+3+4+3=17
2+2+2+2+2=10

следовательно массив будет выглядеть
15 17 10

потом сортируем методом обычной вставке становиться
17 15 10

и одновременно с ними меняется в массиве строки местами(станет так)
3 4 3 4 3
1 2 3 4 5
2 2 2 2 2

я не мастер объяснять, но надеюсь понятно написал)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)