Сортировка чисел, введенных пользователем

@Andrew M · Регистрация: 14.06.2014

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

Задача такова: Пользователем вводятся числа через пробел, напечатать их в порядке возрастания

Проблема в том, что числа сортируются в виде
11
2
444
5
А нужна сортировка по возрастанию значения

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ts:TStringList;
  mass:array of integer;
  i:integer;
 
  implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ts:=TStringList.Create;
  ts.Delimiter:=' ';    
  ts.DelimitedText:= Edit1.Text;
  ts.Sorted:= True;
  Memo1.lines.add(ts.Text);
end;
end.

@FIL · 15.06.2014, 00:36

Сортировка массива

@NIKOLAYY · 15.06.2014, 10:55

Сообщение от Andrew M

Проблема в том, что числа сортируются в виде
11
2
444
5

Выравниваеш числа в начале пробелами или ноликами до одинаковой длины и сортируеш как строки, Затем делаеш обратное, удалеш эти самые нолики спереди цифр

@Puporev · 15.06.2014, 12:26

Сообщение от NIKOLAYY

и сортируеш как строки,

А вот и нет. Строки сортируются в лексикографическом порядке, т.е так как у автора темы.
2>11

@Sergio Leone · 15.06.2014, 12:37

Сообщение от Puporev

2>11

да, но если перед 2-кой будет пробел, то _2 < 11

вообще, данная задача всего два приниципиальных варианта решения имеет.
1-й предложил NIKOLAYY - дополнить строки слева до максимально возможной длины.
2-й - переводить строковые значения в числовые и сравнивать уже их.
(кстати, если использовать TStringList, то можно воспользоваться методом TS.CustomSort )

@NIKOLAYY · 15.06.2014, 12:49

Puporev,
Я незнаю как ему надо, но числа сортируются как на картинке, правда у меня в коде нолики автоматом добавляются перед сортировкой и стираются после сортировки.

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	15.06.2014, 00:36	2
	Сортировка массива 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	15.06.2014, 10:55	3
	Сообщение от Andrew M Проблема в том, что числа сортируются в виде 11 2 444 5 Выравниваеш числа в начале пробелами или ноликами до одинаковой длины и сортируеш как строки, Затем делаеш обратное, удалеш эти самые нолики спереди цифр 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2014, 12:26	4
	Сообщение от NIKOLAYY и сортируеш как строки, А вот и нет. Строки сортируются в лексикографическом порядке, т.е так как у автора темы. 2>11 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	15.06.2014, 12:37	5
	Сообщение от Puporev 2>11 да, но если перед 2-кой будет пробел, то _2 < 11 вообще, данная задача всего два приниципиальных варианта решения имеет. 1-й предложил NIKOLAYY - дополнить строки слева до максимально возможной длины. 2-й - переводить строковые значения в числовые и сравнивать уже их. (кстати, если использовать TStringList, то можно воспользоваться методом TS.CustomSort ) 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	15.06.2014, 12:49	6
	Puporev, Я незнаю как ему надо, но числа сортируются как на картинке, правда у меня в коде нолики автоматом добавляются перед сортировкой и стираются после сортировки. Изображения 0