Символы и строки [Паскаль]

[<Tyz>]

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[rubius2008]

for i:=1 to length(s) do 
  if s[i] in [{множество русских букв}] then s1[k]:=s1[k]+s[i]
  else if length(s1[k])>0 then k:=k+1;
for j:=1 to k-1 do
for i:=1 to k-1 do
  if s1[i]>s1[i+1] then begin
    s:=s1[i];
    s1[i]:=s1[i+1];
    s1[i+1]:=s;
  end;

Если нужны полные тексты программ(не бесплатно), то пиши в асю 600-927-970

[<Tyz>]

CONST
 max_words = 120;
VAR
  S, temp: String;
  s_array: array[1..max_words] of String;
  count: Integer;
  i, j, len, beg_of_word : Integer;
BEGIN

  s := 'hfdh ashj aasd  dh  ';
  while (s <>'') and (POS('  ',s)<>0) do
   delete(s, POS('  ',s), 1);


  i:=1;
  len := length(s);
  count := 0;
  while i < len do
  begin
    if s[i] <> ' 'then
    begin
      inc(count);
      beg_of_word := i;
      s_array[count] := '';
      while (s[i] <> ' ') and (i < len) do
      begin
        s_array[count] := s_array[count] + s[i];
        inc(i);
      end;
    end;
    inc(i);
  end;
  if count <> 0 then
  begin

   for i:=1 to count-1 do
     for j:=i+1 to count do
        if s_array[j] < s_array[i] then
        begin
          temp := s_array[j];
          s_array[j] := s_array[i];
          s_array[i] := temp
        end
  end;
  WriteLn(s);
  for i:=1 to count do
    Write(s_array[i],' ');
  WriteLn;
END.

вот есть программа, но она написана заумно и я не пойму работает она или нет

[rubius2008]

Проверь: позапускай с различными исходными данными и смотри результаты (правильные или нет)

[andrewpalkin]

Сообщение от <Tyz>

...


вот есть программа, но она написана заумно и я не пойму работает она или нет

А ты не пробовал ее запустить , что бы понять работает она или нет ?

[<Tyz>]

пробовал, она работает, но она заумно написано, как можно ее проще написать?

[andrewpalkin]

Сообщение от <Tyz>

пробовал, она работает, но она заумно написано, как можно ее проще написать?

На каком языке она написана , да и что она точно должна делать , если то что написано в первом сообщение и если это паскаль , то она не работает

[<Tyz>]

CONST
 max_words = 120;
VAR
  S, temp: String;
  s_array: array[1..max_words] of String;
  count: Integer;
  i, j, len, beg_of_word : Integer;
BEGIN

  s := 'бвкщ вгдп азжх  гж  ';
  while (s <>'') and (POS('  ',s)<>0) do
   delete(s, POS('  ',s), 1);


  i:=1;
  len := length(s);
  count := 0;
  while i < len do
  begin
    if s[i] <> ' 'then
    begin
      inc(count);
      beg_of_word := i;
      s_array[count] := '';
      while (s[i] <> ' ') and (i < len) do
      begin
        s_array[count] := s_array[count] + s[i];
        inc(i);
      end;
    end;
    inc(i);
  end;
  if count <> 0 then
  begin

   for i:=1 to count-1 do
     for j:=i+1 to count do
        if s_array[j] < s_array[i] then
        begin
          temp := s_array[j];
          s_array[j] := s_array[i];
          s_array[i] := temp
        end
  end;
  WriteLn(s);
  for i:=1 to count do
    Write(s_array[i],' ');
  WriteLn;
END.

написана на паскале, вот заменил английскую строку на русскую, запускаю её на PascalABC. бвкщ вгдп азжх гж -> азжх бвкщ вгдп гж

[andrewpalkin]

Я запустил программу , вот что она выдает .

бвкщвгдпазжхгж
бвкщвгдпазжхг

Откуда ты взял результаты я не знаю .