Строки (Pascal)

[Ногин Антон]

Добрый вечер!

Пользователь вводит слова через пробел. Нужно в каждом слове первую букву поместить в конец слова.

Подскажите, пожалуйста.

[savva]

алгоритм

считываешь строку с начала.
находишь первый пробел-i значит конец слова i-1. потом с начала строки i=1 перемещаешь в конец слова(тут наверное функцию забабахать с буфером) и всё.далее повторяешь операцию начала с i символа(это пробел).

[Ногин Антон]

Я Вас правильно понял?

for i:=1 to length(s1) do
begin
if s1[i] = ' ' then

Как обозначить, что это конец слова?

[savva]

пробел между словами означает что кончилось слово.

в ручную попробуй на листочке.напиши предложение,и в ручную прогони алгоритм.записывай i стрелочками что куда идёт и какой индекс получает,и тогда всё поймёшь.

[Ногин Антон]

Написал для частного случая (для слов из четырёх букв)

writeln('Enter some words');
read(s);

for i:=1 to length(s) do
begin
if s[i] = ' ' then
s2:=s2+copy(s, i+2, 3) + copy(s, i+1, 1) + ' ';
end;
writeln(s2);

Не могу свести к общему.

[m.a.x.i.m]

function BeginToEnd(str:string):string;//меняет первую и последнюю букву в слове
var buf1,buf2:string;
begin
buf1:=copy(str,1,1);//в буфер первую букву
buf2:=copy(str,length(str),1);//в буфер последнюю букву
delete(str,1,1);//удаляем из слова первую букву
delete(str,length(str),1);//удаляем из слова последнюю букву
Result:=buf2+str+buf1;//и приписываем первую и последнюю буквы с разных концов
end;

function smena(str:string):string;//мняет в тексте для каждого слова первую
var buf:string;                   //и последнюю буквы
begin
buf:='';//обнуляем буфер
repeat                                      ///////////////////////
buf:=buf+BeginToEnd(copy(str,1,pos(' ',str)-1));//берем первое слова, меняем через функцию BeginToEnd первую и последнюю буквы
buf:=buf+' ';                               //добавляем пробел
delete(str,1,pos(' ',str));                 //удаляем первое слово
until pos(' ',str)=0;                       /////////////////////// повторяем пока не кончатся пробелы
buf:=buf+BeginToEnd(str);//как пробелы кончились - добавляем последнее слово.
result:=buf;
end;

используем

writeln('Enter some words');
read(s);
writeln(smena(s));

[Ногин Антон]

А можно обойтись без функций? Их ещё не изучал..

[m.a.x.i.m]

без функций нельзя, изучай. Просто пишешь функции перед Begin-End. У меня паскаля нет - но вроде программа должна быть такой

Program test;
var s:string;

function BeginToEnd(str:string):string;//меняет первую и последнюю букву в слове
var buf1,buf2:string;
begin
buf1:=copy(str,1,1);//в буфер первую букву
buf2:=copy(str,length(str),1);//в буфер последнюю букву
delete(str,1,1);//удаляем из слова первую букву
delete(str,length(str),1);//удаляем из слова последнюю букву
Result:=buf2+str+buf1;//и приписываем первую и последнюю буквы с разных концов
end;

function smena(str:string):string;//мняет в тексте для каждого слова первую
var buf:string;                   //и последнюю буквы
begin
buf:='';//обнуляем буфер
repeat                                      ///////////////////////
buf:=buf+BeginToEnd(copy(str,1,pos(' ',str)-1));//берем первое слова, меняем через функцию BeginToEnd первую и последнюю буквы
buf:=buf+' ';                               //добавляем пробел
delete(str,1,pos(' ',str));                 //удаляем первое слово
until pos(' ',str)=0;                       /////////////////////// повторяем пока не кончатся пробелы
buf:=buf+BeginToEnd(str);//как пробелы кончились - добавляем последнее слово.
result:=buf;
end;

Begin
writeln('Enter some words');
read(s);
writeln(smena(s));
End.

[Ногин Антон]

Большое спасибо!

[XeruH]

Держи без функций (правда проверить не могу, но должен быть рабочим)

program MyProg;

var
  Str: string;
  I, WordStartPos: Integer;
  Ch: Char;

begin
  writeln('Vvedite stroku');
  readln(Str);

  WordStartPos := 0;
  I := 1;
  // проходит по введенной строке
  while I <= Length(Str) do
  begin
    // Если текущий символ пробел или достигнут конец строки
    if (Str[I] = ' ') or (I = Length(Str)) then
    begin
      // если предыдущий символ тоже пробел, то переходим на следующий
      if WordStartPos = 0 then
      begin
        Inc(I);
        Continue;
      end;
      // Берем первый символ слова
      Ch := Str[WordStartPos];
      // Удаляем первой символ слова из строки
      Delete(Str, WordStartPos, 1);
      // Если не достигнут конец строки
      if I < Length(Str) then
        // то вставляем символ в конец слова (текущая позиция)
        Insert(Ch, Str, I-1)
      else
        // иначе добавляем символ в конец строки
        Str := Str + Ch;
      // и обнуляем индекс начала слова
      WordStartPos := 0;
    end else
    begin
      // иначе если инедкс начала слова не занесен то делаем его равным текущей позиции
      if WordStartPos = 0 then
        WordStartPos := I;
    end;
    // переходим на следующий символ строки
    Inc(I);
  end;

  writeln('Resultat: ', Str);
  readln;
end.