обратный порядок слов Опции

[18192123]

Преобразовать строку, изменив порядок следования слов на обратный.

А каков алгоритм такого преобразования?

[-steet-]

Всем кому нужно:

program slova;
uses crt;
var
   x,k,len : byte;
   str,buf : string;
procedure PrintString(var buf : string ; var k : byte);
var
   i : byte;
begin
     if k=1 then begin
                      write(' ');
                      buf:='';
                 end
            else
                begin
                     i:=k;
                     while i>=1 do begin
                                        write(buf[i]);
                                        i:=i-1;
                                   end;
                     write(' ');
                     buf:='';
                end;
end;
begin
     clrscr;
     writeln('Vvedite slova:');
     readln(str);
     writeln;
     writeln('Resultat:');
     k := 1;
     x := length(str);
     if length(str)=1 then writeln(str);
     while x>=1 do begin
                        if (str[x]=' ') or (x=1) then
                           begin
                                if x=1 then else k:=k-1;
                                PrintString(buf,k);
                                k:=1;
                           end
                        else
                            begin
                                 buf[k]:=str[x];
                                 if x=2 then buf[k+1]:=str[x-1];
                                 k:=k+1;
                            end;
                   x:=x-1;
                   end;
     writeln;writeln;
     write('Press any key to quit...');
     readkey;
end.

М

Теги, господа, теги!! Это требование правил! И здравого смысла.. Lapp