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

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Scarlet1

0 / 0 / 0

Регистрация: 23.05.2014

Сообщений: 6

Переделать на сортировку возрастания и убывания

24.05.2014, 06:34. Показов 623. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Code    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function SortSpisok(top: PList): PList;
var newh, cur, sel: PList;
begin
  newh:=nil;
  while top<>nil do
    begin
      sel:=top;
      top:=top^.next;
      if (newh=nil) or (sel^.name2<>newh^.name2) then
        begin
          sel^.next:=newh;
          newh:=sel;
        end
      else
        begin
          cur:=newh;
          while (cur^.next<>nil) and (cur^.next^.name2<>sel^.name2) do cur:=cur^.next;
          sel^.next:=cur^.next;
          cur^.next:=sel;
         end;
    end;
  SortSpisok:=newh;
end;

Щас оно меняет местами:
Допустим есть 0.2.3.4
будет: 4.3.2.0

Code    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
  PList = ^TList;
  TList = record
    Name2:Integer;
    prior: PList;
    next : PList
  end;

Code    
        
    Скопировано
1
2
var
  pfirst, plast : PList;

Помогите переделать пожалуйста.

Добавлено через 10 часов 9 минут

Ребят,помогите

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.05.2014, 06:34

Ответы с готовыми решениями:

Подскажите как эту сортировку переделать в сортировку по алфавиту?
Подскажите как эту сортировку переделать в сортировку по алфавиту?? vector<std::pair<string, int>> popularAuthor; ...

Переделать сортировку студентов по баллам на сортировку по фамилии
Вот у меня есть код сортировки введенных данных по среднему балу: TZap st, *mas_Z; Fz =...

Делфи порядок возрастания и убывания
Напечатать числа АВС в порядке возрастания и убывания

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.05.2014, 06:34

Помогаю со студенческими работами здесь

Укажите промежуток возрастания и убывания функции
Укажите промежуток возрастания и убывания функции: {log}_{7}({x}^{2}+6x+11)

Упорядочить цифры в порядке возрастания/убывания
Задание звучит примерно так : взять произвольные 10-15 цифр и чтобы программа их упорядочила в порядке как убывания , так и возрастания . ...

Найдите промежутки возрастания и убывания функции
f(x)=x^3-4x^2+5x-1

Упорядочить массив в порядке возрастания и убывания
1 Вариант. Заранее спасибо :)

Поменять сортировку с убывания на возрастание элементов в массиве
#include <iostream> using namespace std; int proverka(int n); void v1(double *num, int n); void sort(double *num1,double *num2, int...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

Наверх