Помощь - Поиск - Пользователи - Календарь
Полная версия: строковый тип данных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
Ты знаешь, мне почему-то кажется, что ты неправильно понял задание... Что делает твоя программа? Я ввел, например, строку "start finish."
И что я получаю в результате? ".hsinif trats" blink.gif А по заданию,
Цитата
Напечатать эту же последовательность слов, но в обратном порядке
, то есть должен был я получить "finish start", правда?
kosiak
Цитата(volvo @ 4.04.2006 22:03) *

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

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

И в конце удаляем из конца строки S пробел:
Delete(S,Length(S),1).
volvo
Все проще гораздо... Только не надо забывать, что по строке можно идти НЕ ТОЛЬКО из начала в конец, но и к началу... rolleyes.gif
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.