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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.07.2016, 13:54   #51
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
7-й пост не подходит?
TList в Lazarus сортироваться не захотел. Попробую ваш способ переделать для себя:
Изображения
Тип файла: jpg сортировка newerow1989.JPG (43.8 Кб, 43 просмотров)
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 06.07.2016, 17:53   #52
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Получилось:
Код:
procedure TForm1.Button2Click(Sender: TObject);// Утырил у кого-то и не стесняюсь... Спасибо.
  var i,j:integer;
      b:integer;
      begin  //сортировать по убыванию
      for i:=0 to n-2 do
      for j:=i+1 to n-1 do
      if a[i]<a[j] then
        begin
          b:=a[i];
          a[i]:=a[j];
          a[j]:=b;
        end;
      for i:=0 to n-1 do
      StringGrid1.Cells[i,1]:=IntToStr(a[i]);
end;

procedure TForm1.Button3Click(Sender: TObject);
  var i,j:integer;
      b:integer;
  begin    // сортировать по возрастанию
  for i:=0 to n-2 do
  for j:=i+1 to n-1 do
  if a[i]>a[j] then
    begin
      b:=a[i];
      a[i]:=a[j];
      a[j]:=b;
    end;
  for i:=0 to n-1 do
  StringGrid1.Cells[i,2]:=IntToStr(a[i]);
end;
Изображения
Тип файла: jpg Хвастаюсь !.JPG (38.1 Кб, 38 просмотров)
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как объявить классовый массив, с большим числом? koker_007 Visual C++ 7 31.03.2015 19:46
Следующим президентом США будет республиканец Alar Свободное общение 18 17.04.2014 06:18
Написать программу, с помощью которой изображение будет разбиваться по пикселям и будет создаваться матрица andrey4515 Помощь студентам 2 08.01.2014 18:44
Точка с координатами х, у будет находиться в заштрихованной области, написать выражение которое будет истинным для данного рис. Polina S1 Помощь студентам 1 31.10.2013 16:38
Как работать с большим числом? phobos Общие вопросы C/C++ 2 21.04.2009 07:05