Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.09.2009, 23:39   #1
Erges
Новичок
Джуниор
 
Регистрация: 06.05.2009
Сообщений: 2
По умолчанию Сортировка побочной диагонали Pascal

Здравствуйте, помогите с алгоритмом сортировки побочной диагонали, уже два дня как не могу найти ответа.
Erges вне форума Ответить с цитированием
Старый 09.09.2009, 07:17   #2
Скарам
Дружите с Linq ;)
Форумчанин
 
Аватар для Скарам
 
Регистрация: 15.10.2008
Сообщений: 822
По умолчанию

Напиши язык,на котором надо написать,полное задание)
Не давай организму поблажки, каждый день тренируй его в шашки..
Скарам вне форума Ответить с цитированием
Старый 09.09.2009, 07:26   #3
Consol
Пользователь
 
Регистрация: 19.08.2009
Сообщений: 89
По умолчанию

Код:
for i:=1 to n-1 do
 begin
  for j:=1 to n-1 do
    for k:=j+1 to n do
      if a[j,j]>a[k,k] then 
                           begin
                             temp:=a[k,k];
                             a[k,k]:=a[j,j];
                             a[j,j]:=temp;
                           end;
 end;
Для побочной
Код:
for i:=1 to n-1 do
 begin
  for j:=1 to n-1 do
    for k:=j+1 to n do
      if a[n-j+1,j]>a[n-k+1,k] then 
                           begin
                             temp:=a[n-k+1,k];
                             a[n-k+1,k]:=a[n-j+1,j];
                             a[n-j+1,j]:=temp;
                           end;
 end;

Последний раз редактировалось Stilet; 09.09.2009 в 08:06.
Consol вне форума Ответить с цитированием
Старый 10.09.2009, 12:15   #4
Erges
Новичок
Джуниор
 
Регистрация: 06.05.2009
Сообщений: 2
По умолчанию

Consol, большое спасибо!
Erges вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Pascal] найти сумму элементов лежащих ниже побочной диагонали Рамик Помощь студентам 12 28.03.2011 22:53
Вычислить сумму элементов главной и побочной диагонали двумерного массива , найти среднее арифметическое neBu4kaMaXiM Помощь студентам 7 24.02.2009 15:58
Оптимизировать алгоритм вычисления сумм элементов главной и побочной диагонали в матрице - Delphi r9m Помощь студентам 5 04.02.2009 11:01
произведение всех элементов, расположенных на главной диагонали и выше ее матрицы размером 4х4, Pascal __FIRST__ Помощь студентам 2 12.12.2008 02:43
Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы Elmander Помощь студентам 2 21.06.2007 07:15