Добрый вечер дамы и господа прошу вашей помощи!!! Задача такова: Дана строка, состоящая из нескольких слов. За последним словом- точка. Напеча-тать эту же последовательность слов, но в обратном порядке. Я вроде сделал но непонятен один момент.
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.
Ты знаешь, мне почему-то кажется, что ты неправильно понял задание... Что делает твоя программа? Я ввел, например, строку "start finish."
И что я получаю в результате? ".hsinif trats" А по заданию,
http://forum.pascal.net.ru/index.php?showtopic=6972
Вот здесь способы разбиения строки на слова.
А алгоритм такой: допустим у нас есть строка S в которую мы должны поместить конечную последовательность слов; извлекаем из исходной строки очередное слово W и добавляем его в начало конечной строки:
S:=W + ' ' + S.
Delete(S,Length(S),1).
Все проще гораздо... Только не надо забывать, что по строке можно идти НЕ ТОЛЬКО из начала в конец, но и к началу...
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.