Строки

[Dog]

Вводим 2 до 30 слов, и нужно в словах 1 букву перенесви в конец слова.

Как это сделать?

[Alex Cones]

ИМХО создай массив из слов, потом в цикле проделай необходимые манипуляции.

[Dog]

Сообщение от Alex Cones

ИМХО создай массив из слов, потом в цикле проделай необходимые манипуляции.

если б я знал, то бы не писал сюда

[Stilet]

На каком языке то?

[Dog]

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

На каком языке то?

Паскаль

const
SPACE = ' ';
var
count, i, m , j: byte;
inputStr : string;
shablon, temp : string;

begin
count := 0;
write('Vvedite stroku dlya analiza: ');
readln(inputStr);
if(length(inputStr) = 0) then
begin
writeln('Ne vvedena stroka. Programma zavershaetsya!');
readln;
halt(1);
end;

i := length(inputStr) - 1;
while inputStr[i] <> SPACE do dec(i);
shablon := copy(inputStr, i + 1, length(inputStr) - i - 1);
for j := 1 to i do
begin
if inputStr[j] <> SPACE then
temp := temp + inputStr[j]
else
begin
if (temp <> '') and (temp <> shablon) then
writeln(' ', copy(temp, 1, length(temp) - 1));
temp := '';
end;
end;
readln;
end.

это прога удаляет последний символ,но я не знаю как ее переделать, и некоторые команды не понимаю((((((

[Stilet]

хм... не очен хоцца в твоем коде копаться, предложу свой, по схожести недавно выложенный тут:

var e,s:string;i:integer;
begin
 s:='we all then flowing on endless river';
 s:=' '+s;
 e:='';
 i:=1; while i<length(s) do begin
  if (s[i-1] in [' ',',','.']) then begin {если пробел то новое слово}
   while (i<length(s))and(s[i]<>' ') do begin {пока не конец слова}
    e:=e+s[i];inc(i);{запоминаем его буквы}
   end;
   e:=e+e[1];{переносим первую букву в конец}
   delete(e,1,1);
   write(e,' ');e:='';
  end;
  inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

смысл ясен?

[Dog]

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

хм... не очен хоцца в твоем коде копаться, предложу свой, по схожести недавно выложенный тут:

var e,s:string;i:integer;
begin
 s:='we all then flowing on endless river';
 s:=' '+s;
 e:='';
 i:=1; while i<length(s) do begin
  if (s[i-1] in [' ',',','.']) then begin {если пробел то новое слово}
   while (i<length(s))and(s[i]<>' ') do begin {пока не конец слова}
    e:=e+s[i];inc(i);{запоминаем его буквы}
   end;
   e:=e+e[1];{переносим первую букву в конец}
   delete(e,1,1);
   write(e,' ');e:='';
  end;
  inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

смысл ясен?

Да понял, спасиб большое