Паскаль. Строки.

[Nubas]

Такая задача:
Дана строка. Напечатать в алфавитном порядке все слова из данной строки, имеющие заданную длину.
Советы, код - приму все. Заранее спасибо.

[Serge_Bliznykov]

совет.
порулите поиском - на форуме многократно были примеры кода, выделяющие слова из строки.
Полученные слова сразу проверяйте, длина совпадает с заданной длиной (if Length(CurWord) = ZadannayDlina then )
засовываем, например, в массив.
После окончания строки - сортируем массив.
Печатаем.
всё. задача решена.

p.s. для массива строк я бы рекомендовал по простому задать статический массив с размерностью заведомо больше, чем может быть слов.
Например так:
Words : array[1..200] of string[50];

[Nubas]

На сортировке слов в алфавитном порядке хотелось бы по подробней еще остановится.

[Serge_Bliznykov]

не вижу никаких проблем. Неужели поиск ничего не дал?!
Ладно.
вот код. (там два варианта сортировки (правда, и в том и другом случае это банальная сортировка "пузырьком"):

const n = 4;
var
  a: array[1..n] of string[50];
  TempRec: string[50];
  {t, x,} i, j, IndexMin, iCount: integer;
  min: integer;
  b: boolean;
begin
 a[1] := 'Пушкин';
 a[2] := 'Лермонтов';
 a[3] := 'Аверченко';
 a[4] := 'Булгаков';
 iCount := 4;

(*
  {Вариант 1}
   
  {сортировка}
  repeat b := true;

    for i := 1 to n-1 do
    begin
      if a[i] > a[i + 1] then
      begin
        y := a[i];
        a[i] := a[i + 1];
        a[i + 1] := y;
        b := false;
      end;
    end;
  until b;
*)  
  
  {Вариант 2}
  {сортировка массива A
    методом "пузырька"}

  {сортировка методом "пузырька" (методом простого выбора )

  Выбирается минимальный элемент массива
  и меняется местами с первым элементом массива.
  Затем процесс повторяется с оставшимися элементами и т. д. }

  for i:=1 to iCount-1 do begin
    IndexMin := i; {предварительно считаем, что первый элемент наименьший }
    {ищем индекс максимального элемента}
    for j:=i+1 to iCount do
      if A[j]<A[IndexMin] then IndexMin := j;

    {меняем местами элементы массива с индексами i и IndexMin
    (ну, если они не равны, конечно) }
    if i<>IndexMin then begin
      TempRec := A[IndexMin];
      A[IndexMin] := A[i];
      A[i] := TempRec;
    end;
  end;    
  
  
  {выводим отсортированный массив}
  writeln;
  writeln('Sortirovka :');
  for i := 1 to n do
    writeln(a[i]);
  readln;
end.

[Nubas]

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

if A[j]<A[IndexMin] then IndexMin := j;

[/CODE]

Аха... что-то я не подумал что паскаль знает алфавит.

[Serge_Bliznykov]

Аха... что-то я не подумал что паскаль знает алфавит.

он его и не знает...
просто кодовая таблица обычно составляется в алфавитном порядке... правда, есть и определённые проблемы, например, текст в кодировке DOS (она же OEM, она же 866), то буква Ё отсортируется после буквы Я (смотри кодовую таблицу), а в кодировке Windows (она же ANSI, она же 1251) буква Ё имеет код меньше чем коды всех остальных русских букв, поэтому буква будет после сортировки до буквы А...