сортировка букв по алфавиту

@Micros · Регистрация: 08.01.2010

Здравствуйте, уважаемые программеры)
помогите, как отсортироватье латинскиесимволы в строке по алфавиту?) это работа со строками, не получается((

наверное из строки в Memo надо записать результат

@JUK · 18.01.2010, 12:58

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var n,i,j:integer;
    c:char;
   s:string;
begin
 s:=Memo1.Text;
 n:=length(s);
for i:=1 to n-1 do
for j:=i+1 to n do
if ord(s[i])>ord(s[j]) then
  begin
   c:=s[i];
   s[i]:=s[j];
   s[j]:=c;
  end;
Memo2.Text:=s;
     end;

Добавлено через 1 минуту
Кинь на форму Memo1, Memo2, и Button1

@Micros · 18.01.2010, 13:18 **[ТС]**

спасибо, работает!!!)
напишите пожалуйста коментарии, я пытаюсь разобраться, а строки для меня пока темный лес(

@EJIF · 18.01.2010, 14:01

здесь использован принцип сортировки методом "пузырька"
строки тут не причем, все работает по аналогии с массивами

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var n,i,j:integer;
    c:char;
   s:string;
begin
 s:=Memo1.Text; {кидаем в переменную строку из Мемо}
 n:=length(s); {определяем длину ("колво букв") или по аналогии массивов колво элементов массива}
for i:=1 to n-1 do {сортировка пузырем}
for j:=i+1 to n do
if ord(s[i])>ord(s[j]) then {ord возвращает целое число от char - проверяем нужно переставить?}
  begin
   c:=s[i]; {кидаем в промежут переменную}
   s[i]:=s[j]; {переставляем}
   s[j]:=c; {возвращаем, пример - было АБ - станет БА}
  end;
Memo2.Text:=s; {в мемо выводим строку}
     end;

Добавлено через 1 минуту
Кинь на форму Memo1, Memo2, и Button1

где то так.

@Micros · 18.01.2010, 16:44 **[ТС]**

спасибо)))

Добавлено через 1 час 39 минут
народ а как осуществить эту сортировку вставками?

Добавлено через 30 минут
ну что никто не знает?((

@EJIF · 18.01.2010, 17:42

Pascal

procedure InsertSort;
var
  i, j, buf:integer;
begin
  for i:=2 to N do
  begin
    buf:=a[i];
    j:=i-1;
    while (j>0) and (buf<a[j]) do
    begin
      a[j+1]:=a[j];
      j:=j-1;
    end;
      a[j+1]:=buf;
  end;
end;

вот в инте нашел метод простых вставок, сам под себя переделать сможешь?

@Micros · 18.01.2010, 17:52 **[ТС]**

вот пытаюсь, но не получается(

@EJIF · 18.01.2010, 18:06

окей сейчас посмотрю

Добавлено через 6 минут
вот на глаз где-то так

Delphi

var
  i, j : Integer;
  buf : Char;
begin
  for i:=2 to N do
  begin
    buf:=s[i];
    j:=i-1;
    while (j>0) and (ord(buf)<ord(s[j])) do
    begin
      s[j+1]:=s[j];
      j:=j-1;
    end;
      s[j+1]:=buf;
  end;
end;

если не получается, скинь мне в личку весь проект посмотрю.

@Micros 1 / 1 / 0 Регистрация: 08.01.2010 Сообщений: 18
		1
	сортировка букв по алфавиту 18.01.2010, 12:49. Просмотров 4974. Ответов 7 Метки нет (Все метки) Здравствуйте, уважаемые программеры) помогите, как отсортироватье латинскиесимволы в строке по алфавиту?) это работа со строками, не получается(( наверное из строки в Memo надо записать результат 1

@Micros 1 / 1 / 0 Регистрация: 08.01.2010 Сообщений: 18
	18.01.2010, 13:18 [ТС]	3
	спасибо, работает!!!) напишите пожалуйста коментарии, я пытаюсь разобраться, а строки для меня пока темный лес( 0

@Micros 1 / 1 / 0 Регистрация: 08.01.2010 Сообщений: 18
	18.01.2010, 16:44 [ТС]	5
	спасибо))) Добавлено через 1 час 39 минут народ а как осуществить эту сортировку вставками? Добавлено через 30 минут ну что никто не знает?(( 0

@Micros 1 / 1 / 0 Регистрация: 08.01.2010 Сообщений: 18
	18.01.2010, 17:52 [ТС]	7
	вот пытаюсь, но не получается( 0

Опции темы