строковый тип данных, чуток непонятно Опции

[kosiak]

Добрый вечер дамы и господа прошу вашей помощи!!! Задача такова: Дана строка, состоящая из нескольких слов. За последним словом- точка. Напеча-тать эту же последовательность слов, но в обратном порядке. Я вроде сделал но непонятен один момент.

Program son_stroki;
  Var
     u,s:string;
     L,i,j:integer;
   Begin
     Writeln('BBedite cloBa');
     Readln(s);
      Begin
      I:=1;
        repeat
         L:=i;
         While  (s[i]<>' ') and (s[i]<>'.') do
         I:=i+1;      {прграмма работает только в том случае если выражение I:=i+1 повторяется два раза подряд
         I:=i+1;                                       почему???? обьясните или поправьте если неверно !!!ПОЖАЛУЙСТА!!!}
       Until s[i-1]='.';
       For j:=length(s) downto 1 do
       Write(s[j]);
       end;
   End.

Сообщение отредактировано: volvo - 2.11.2006 14:30

[volvo]

Ты знаешь, мне почему-то кажется, что ты неправильно понял задание... Что делает твоя программа? Я ввел, например, строку "start finish."
И что я получаю в результате? ".hsinif trats" А по заданию,

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

, то есть должен был я получить "finish start", правда?

[kosiak]

Ты знаешь, мне почему-то кажется, что ты неправильно понял задание... Что делает твоя программа? Я ввел, например, строку "start finish."
И что я получаю в результате? ".hsinif trats" А по заданию,
, то есть должен был я получить "finish start", правда?

Да ты прав этого я не заметил если можешь помоги пожалуйста переделать прогу.

[Бравый генерал]

http://forum.pascal.net.ru/index.php?showtopic=6972
Вот здесь способы разбиения строки на слова.
А алгоритм такой: допустим у нас есть строка S в которую мы должны поместить конечную последовательность слов; извлекаем из исходной строки очередное слово W и добавляем его в начало конечной строки:

S:=W + ' ' + S.

И в конце удаляем из конца строки S пробел:

Delete(S,Length(S),1).

Сообщение отредактировано: volvo - 2.11.2006 14:30

[volvo]

Все проще гораздо... Только не надо забывать, что по строке можно идти НЕ ТОЛЬКО из начала в конец, но и к началу...

Var
  s: string;
  L, i: integer;
Begin
  Writeln('BBedite cloBa');
  Readln(s);

  i := length(s);
  while (i > 0) and (s[i] <> '.') do i := i - 1;
  i := i - 1;

  repeat

    L := i;
    while (i > 0) and (s[i] <> ' ') do i := i - 1;
    write(copy(s, i, L - i + 1), ' ');
    i := i - 1;

  until i = -1;

End.