Работа со строками

[immortal12388]

Добрый день коллеги.
Прошу помочь с решением программы.
"Дана английская фраза слов, разделенная хотя бы одним пробелом. Расположить слова по одному в каждой строчке и упорядочить слова по алфавиту. Вывести исходную строку и результат обработки строки".
К исходной программе нехватает сортировки по алфавиту.

program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;

var input, collect: String;
    len, i: Integer;
    c: Char;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  WriteLn('Input text:');
  ReadLn(input);
  if Length(input) = 0 then Exit;
 
  input := input + ' ';
  len := Length(input);
  collect := '';
  for i := 1 to len do begin
    c := input[i];
    if (c = ' ')       if collect <> '' then begin
        WriteLn(collect);
        collect := '';
      end;
    end else begin
      collect := collect + input[i];
    end;
  end;
  ReadLn;
end.

Помогите реализовать сортировку

[Naive]

Сортировать нечего, у Вас слова не сохраняются. Выводятся на экран, но не сохраняются.
Вместо одной переменной используйте массив для хранения слов. Отсортировать уже его будет не сложно.

[immortal12388]

Сделал через массив, но не совсем понимаю как сделать сортировку. Т е сравнивать каждый элемент слова(массива) с каждым другим элементом слова.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var a: array [1..50] of string;
      b: string;
      i: integer;
      c: string;
begin
  writeln ('Vvedite text:');
  readln(b);
  b:=b+' ';
  for i:=1 to length (b) do
  begin
   //writeln(b[i]);         //izmenit' na if (b[i])=;

  if b[i]= ' ' then writeln (c);
  if b[i]= ' ' then c:=''
  else  c:= c+b[i];
  end;
  readln;
end.

[andrewpalkin]

Псевдокод

Вход: массив A, состоящий из элементов A[1], A[2], ..., A[n]

t := истина
цикл пока t:
  t := ложь
  цикл для j = 1, 2, ..., n − 1:
    если A[j] > A[j+1], то:
      обменять местами элементы A[j] и A[j+1]
      t := истина

[alex_fcsm]

В чем проблема? Строки отсортируйте например пузырьковой сортировкой. Или проблемы с реализацией? Тогда в поиск идите
P.S. И код оформляйте в специальных тегах - это правило все-таки

[andrewpalkin]

(********************************** *********************************** ********
* A simple bubble sort program. Reads integers, one per line, and prints *
* them out in sorted order. Blows up if there are more than 49. *
*********************************** *********************************** *******)

PROGRAM Sort(input, output);
    CONST
        (* Max array size. *)
        MaxElts = 50;
    TYPE 
        (* Type of the element array. *)
        IntArrType = ARRAY [1..MaxElts] OF Integer;

    VAR
        (* Indexes, exchange temp, array size. *)
        i, j, tmp, size: integer;

        (* Array of ints *)
        arr: IntArrType;

    (* Read in the integers. *)
    PROCEDURE ReadArr(VAR size: Integer; VAR a: IntArrType);
        BEGIN
            size := 1;
            WHILE NOT eof DO BEGIN
                readln(a[size]);
                IF NOT eof THEN 
                    size := size + 1
            END
        END;

    BEGIN
        (* Read *)
        ReadArr(size, arr);

        (* Sort using bubble sort. *)
        FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO 
                IF arr[j] > arr[j + 1] THEN BEGIN
                    tmp := arr[j];
                    arr[j] := arr[j + 1];
                    arr[j + 1] := tmp;
                END;

        (* Print. *)
        FOR i := 1 TO size DO
            writeln(arr[i])
    END.

[alex_fcsm]

Достаточно вот этого куска

 FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO 
                IF arr[j] > arr[j + 1] THEN BEGIN
                    tmp := arr[j];
                    arr[j] := arr[j + 1];
                    arr[j + 1] := tmp;
                END;

[immortal12388]

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

Псевдокод

Вход: массив A, состоящий из элементов A[1], A[2], ..., A[n]

t := истина
цикл пока t:
  t := ложь
  цикл для j = 1, 2, ..., n − 1:
    если A[j] > A[j+1], то:
      обменять местами элементы A[j] и A[j+1]
      t := истина

Спасибо, но честно говоря не совсем понятно, хотя цикл пока нам объясняли, только хреново

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

Достаточно вот этого куска

 FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO 
                IF arr[j] > arr[j + 1] THEN BEGIN
                    tmp := arr[j];
                    arr[j] := arr[j + 1];
                    arr[j + 1] := tmp;
                END;

Спасибо большое! Сейчас попробую

[alex_fcsm]

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

Спасибо, но честно говоря не совсем понятно, хотя цикл пока нам объясняли, только хреново

Вам готовый код предложили, просто подставьте свои переменные

[immortal12388]

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

(********************************** *********************************** ********
* A simple bubble sort program. Reads integers, one per line, and prints *
* them out in sorted order. Blows up if there are more than 49. *
*********************************** *********************************** *******)

PROGRAM Sort(input, output);
    CONST
        (* Max array size. *)
        MaxElts = 50;
    TYPE 
        (* Type of the element array. *)
        IntArrType = ARRAY [1..MaxElts] OF Integer;

    VAR
        (* Indexes, exchange temp, array size. *)
        i, j, tmp, size: integer;

        (* Array of ints *)
        arr: IntArrType;

    (* Read in the integers. *)
    PROCEDURE ReadArr(VAR size: Integer; VAR a: IntArrType);
        BEGIN
            size := 1;
            WHILE NOT eof DO BEGIN
                readln(a[size]);
                IF NOT eof THEN 
                    size := size + 1
            END
        END;

    BEGIN
        (* Read *)
        ReadArr(size, arr);

        (* Sort using bubble sort. *)
        FOR i := size - 1 DOWNTO 1 DO
            FOR j := 1 TO i DO 
                IF arr[j] > arr[j + 1] THEN BEGIN
                    tmp := arr[j];
                    arr[j] := arr[j + 1];
                    arr[j + 1] := tmp;
                END;

        (* Print. *)
        FOR i := 1 TO size DO
            writeln(arr[i])
    END.

Спасибо коллеги