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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2014, 00:31   #1
andrew m
Новичок
Джуниор
 
Регистрация: 15.06.2014
Сообщений: 1
По умолчанию Сортировка чисел, введенных пользователем

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

И здесь проблема в том, что сортировка идет в виде
1
11
222
33
а не по возрастанию значения
Код:
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.

Последний раз редактировалось Stilet; 15.06.2014 в 09:14.
andrew m вне форума Ответить с цитированием
Старый 15.06.2014, 00:46   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

все верно - вы ж строки сортируете, а не числа
Переводите строки в числа и пузырьком по ним, пузырьком
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 15.06.2014, 00:47   #3
SlavaSSU
Пользователь
 
Регистрация: 15.04.2012
Сообщений: 46
По умолчанию

сортируешь их как строки, а не как числа. это называется лексикографический порядок
НИУ СГУ им. Чернышевского
SlavaSSU вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
По C. Сумма введенных пользователем чисел HenryO Общие вопросы C/C++ 6 31.05.2013 14:56
Деление двух чисел, введенных пользователем с клавиатуры Шизофрения Общие вопросы C/C++ 4 02.12.2012 21:58
Номер большего из четырех введенных чисел odisseyb Паскаль, Turbo Pascal, PascalABC.NET 14 14.01.2011 20:56
Как ограничить число введенных чисел в delphi Kati Помощь студентам 3 23.10.2010 21:02
Функция суммы введенных чисел. I_student Помощь студентам 5 10.10.2010 14:43