Обработка строк.

[Светлана11]

Очень нужна помощь в решении задачи по информатике.
Вывести слова исходной строки в обратном порядке.

[Leshii]

Светлана11

Пишу без проверки, так что возможны ошибки.

Uses crt; 
var s: string;
    i, k: integer;
begin
clrscr;
write('Vvedite stroky slov:');
readln(s);
k:=length(s);
for i:=k downto 0 do
write(s[i]);
readln;
end.

Если есть вопросы, пишите, отвечу.

[Xardas]

var
  s1, s2, s3 : string; // исходная строка, строка для слов, результат
  i : integer;
begin
.......
s3 := ''; // строка в которой будут слова в обратном порядке
s1 := s1 + ' '; // пробел в конец, чтоб не клепать лишних условий дальше
for i := 1 to length(s1) do
  if s1[i] <> ' ' then s2 := s2 + s1[i] //берем слово
  else
     begin
        insert(s2+' ', s3, 1); //вставляем в начало другой строки
        s2 := '';
     end;
.......
end.

[vovk]

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

Светлана11

Пишу без проверки, так что возможны ошибки.

Uses crt; 
var s: string;
    i, k: integer;
begin
clrscr;
write('Vvedite stroky slov:');
readln(s);
k:=length(s);
for i:=k downto 0 do
write(s[i]);
readln;
end.

Если есть вопросы, пишите, отвечу.

Есть ошибки )) строка не 0 а с 1, и перевернуть как я понял нужно слова, а не строку

[Leshii]

Уже не важно =), по сути человек написал выше.

[vovk]

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

Уже не важно =), по сути человек написал выше.

Действительно))
Когда отправлял видел только ваше сообщение)

[Poma][a]

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

  if s1[i] <> ' '  //берем слово

а может лучше сразу пробел искать? Pos(' ', s)