Строки

[Ilai]

Добрый день!
Помогите пожалуйста написать программу: преобразовать строку, записав символы каждого слова этой строки в обратном порядке.. Пожалуйста, помогите, никогда не работал со строками, не получается написать программу. Вот, пробовал написать, но программа действует не всегда. К примеру на короткую строку "abc def" выводит "cba fed", а если ввести что то подлиннее, то программа не работает:

Program Stroki;
var
    str, temp: string;
    len, i, j, b, a: byte;
 
begin
    readln(str);
    len := length(str);
    a:=0;
    b:=1;
    for i:=1 to len do
    begin
        if str[i] = ' ' then
        begin
         for j:=b to a do
         temp[j]:=str[len-j-3];
         b:= a+2;
         a:=a+2;
           end
       else
            a:= a + 1;
          if i=len then
          for j:=b to a-1 do
         temp[j]:=str[len-j+5];
    end;
    for i:=1 to len do
    write(temp[i]);
    readln;
end.

[Smitt&Wesson]

Откуда взялисъ 3 и 5,? 2-3

[Ilai]

Я пробовал для строки с количеством элементов 7. Поэтому использовал цифры. По другому не знаю как.

[Smitt&Wesson]

Для перестановок, используются две возможности - инкремент и декремент. Чё-йт другого я не узрел. (старею, наверноее).

[Aleksander550]

procedure TForm1.Button1Click(Sender: TObject);
var
temp, str : string;
len, i, j, flag: integer;
begin
str := Edit1.Text;
str:= str + ' ';//костыль
len := Length(str);
flag := 0; //конец прошлого слова
for i := 1 to len do
  begin
    if str[i] = ' ' then
      begin
        j:= 1;
        while flag <> (i - j) do
          begin
            temp := temp + str[i - j];
            j := j + 1;
          end;
        flag := i;
        temp := temp + ' ';
      end;
  end;
Edit2.Text:= temp;
end;

[Iron Monk]

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

procedure TForm1.Button1Click(Sender: TObject);
var
temp, str : string;
len, i, j, flag: integer;
begin
str := Edit1.Text;
str:= str + ' ';//костыль
len := Length(str);
flag := 0; //конец прошлого слова
for i := 1 to len do
  begin
    if str[i] = ' ' then
      begin
        j:= 1;
        while flag <> (i - j) do
          begin
            temp := temp + str[i - j];
            j := j + 1;
          end;
        flag := i;
        temp := temp + ' ';
      end;
  end;
Edit2.Text:= temp;
end;

function _pRevers(const str: string): string;
var
i: integer;
tmp, tmp1: string;
begin
tmp:= ' '; //тоже костыль)))
  for i:=length(str) downto 0 do
    begin
    if (str[i] = ' ') or (i = 0) then
      begin
      tmp1:= tmp + tmp1;
      tmp:= '';
      end;
      tmp:= tmp + str[i];
    end;
    Result:= Trim(tmp1);
end;

var
str: string;
begin
    readln(str);
    write(_pRevers(str));
    writeln;
end.

Aleksander550, результат тримать нужно))) - в конце пробел добавляется.

[Stilet]

Ilai

Упростим?

program Project1;
var s,r:string;
  i,j,k:integer;
begin
  s:='hello my world';
  s:=s+' ';
  r:=''; k:=1;
  for i:=1 to Length(s) do begin
   if s[i]=' ' then begin
     for j:=i-1 downto k do write(s[j]); write(' ');
     k:=i+1;
   end;
  end;
  readln;
end.

P.S. Смитт, с выходом

[Smitt&Wesson]

P.S. Смитт, с выходом

Спасибо .
Будешь ржать. Забанили, думал поработаю спокойно. Ага! В больничку на 2 недели залетел...

[Iron Monk]

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

Упростим?

program Project1;
var s,r:string;
  i,j,k:integer;
begin
  s:='hello my world';
  s:=s+' ';
  r:=''; k:=1;
  for i:=1 to Length(s) do begin
   if s[i]=' ' then begin
     for j:=i-1 downto k do write(s[j]); write(' ');
     k:=i+1;
   end;
  end;
  readln;
end.

А зачем переменная "r" объявлена?
И к концу строки добавляется пробел...

[Smitt&Wesson]

Сообщение от Iron Monk

А зачем переменная "r" объявлена?
И к концу строки добавляется пробел...

На счёт переменной r не знаю, а пробел необходим для разделения результатов рассчёта. Иначе всё в сплошняк сольётся.