алфавит

[Sanyok1993]

Ввести строку символов. Упорядочить слова в строке по алфавиту. Количество пробелов произвольная.

uses crt;
  var txt,a,d,b:string;
  i,o,z:integer;
  begin
clrscr;
writeln('txt=');
readln(txt);
i:=length(txt);
d:='';
for o:=1 to i do
begin
 a:=copy(txt,o,1);
if a<>'' then d:=d+a;
как зделать что б слова упорядковувало по алфавиту?

writeln('txt=',txt);
readln;
end;
end.

помогите пожалуста очень нада

[Sauber]

402142430 напиши

[Летучий_СкилетиК]

uses crt;
var
  b:array[1..100]of string;
  a,t:string;
  i,l,j:integer;
begin
read(a);
i:=1;
l:=0;
while (i <= length(a)) do
begin
     while ((a[i]=' ')and(i <= length(a)))do
         inc(i);
     inc(l);
     b[l]:='';
     while ((a[i]<>' ')and(i <= length(a)))do
     begin
          b[l]:=b[l]+a[i];
          inc(i);
     end;
end;
if a[length(a)]=' ' then dec(l);
for i:=1 to l - 1 do
   for j:=i+1 to l do
       if b[i] > b[j] then
       begin
            t:=b[i];
            b[i]:=b[j];
            b[j]:=t;
       end;
for i:=1 to l do
write(b[i],' ');
end.

[WebbMan]

можешь каждой букве присвоить число... эмм в русском же алфавите 33 буквы?... после чего пропустить все числа через < или > ... потом всё получившееся: 6 7 4 7 33 5 7 перевести в буквы...

[Sauber]

боюсь, что со множествами будет гораздо проще, ибо там уже сортируется по алфавиту автоматом

[phomm]

простите, может я что-то сейчас тяжелое для восприятия скажу, но s1 > s2 когда посимвольно первая строка имеет бОльшие номера букв, чем вторая, см справку или мануал
ну, на крайний случай есть comparestr, comparetext

[Sauber]

Извините, не увидел что нужно отсортировать слова в строке

[Sanyok1993]

while (i <= length(a)) do
begin
     while ((a[i]=' ')and(i <= length(a)))do
         inc(i);
     inc(l);
     b[l]:='';
     while ((a[i]<>' ')and(i <= length(a)))do
     begin
          b[l]:=b[l]+a[i];
          inc(i);
     end;

можете ету часть обьяснить a[i]-что ето?и b[l]?

[Летучий_СкилетиК]

строку а, разделяю на слова и загоняю эти слова в масив слов b, затем сортирую массив. l - это количество найденных слов.

[Акоб]

Почему не через пузырьковую сортировку?

uses crt;
var a,j:integer; txt,restxt:string; t:boolean; N:char;
begin
read(txt);
a := 1;
for j := 1 to  length(txt) do
    if txt[j] <> ' ' then
    begin
            restxt[a] := txt[j]; inc(a);
    end;
t := true;
while t = true do
begin
     t := false;
     for j := 1 to a do
     begin
          if restxt[j] > restxt[j + 1] then
          begin
               N := restxt[j];
               restxt[j] := restxt[j + 1];
               restxt[j + 1] := N;
               t := true;
          end;
     end;
end;
for j := 1 to a do
write(restxt[j]);
end.