|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа со строками
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран слова этого текста в порядке, соответствующем латинскому алфавиту.
|
#2
|
|||
|
|||
Как организовать непосредственно перестановку слов?
|
#3
|
||||
|
||||
Разбить на массив слов, отсортировать, вывести.
jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
|||
|
|||
Цитата:
Это я прекрасно понял... Можно немного конкретики?) Я не понимаю как организовать цикл проверки |
#5
|
|||
|
|||
Ну, типа так:
Код:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var sl : TStringList; begin sl := TStringList.Create; sl.Delimiter := ' '; sl.DelimitedText := Edit1.Text; sl.Sort; Memo1.Lines.Text := sl.Text; sl.free; end; end. Последний раз редактировалось lmikle, 19.12.2016 в 09:06. |