Поменять местами первое и последнее слово

@aelris · Регистрация: 27.10.2020

У меня возникла небольшая проблема, задание:
Дан текст, слова которого отделяются друг от друга пробелами. Поменять местами первое и последнее слова, если в тексте встречаются лишние пробелы. В противном случае текст оставить без изменения.
Можете написать как именно менять местами первое и последнее слово?

Добавлено через 20 минут
Спасибо за внимание, уже разобрался.

@Constantin Cat · 09.12.2020, 12:55

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

Спасибо за внимание, уже разобрался.

4.10 Если вопрос был решен вами самостоятельно, отпишите об этом в своей теме - есть и другие люди, которые столкнутся с той же проблемой, и им поможет ваш ответ

Покажите Ваше решение

@aelris · 09.12.2020, 13:10 **[ТС]**

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

Pascal

Var s,s1,s2:string;
    i:byte;
Begin
    write('Введите строку -> ');
    readln(s);
    
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    s2:='';
    For i:=Length(s) downto 1 do
       if s[i]<>' ' then s2:=s[i]+s2
       else break;
    Delete(s,i,Length(s2));
    s:=s2+' '+s+' '+s1;
    
    writeln('Полученная строка = ',s);
    readln;
End.

P.S. Код недоработан, в ближайшее время буду править

@bormant · 10.12.2020, 13:36

Поменять можно, например, так:

Pascal

var
  s: String;
  i, b1, e1, b2, e2: Integer;
begin
  Write('Строка: '); ReadLn(s);
 
  i:=1;
  while (i<=Length(s)) and (s[i]=' ') do Inc(i);
  b1:=i;
  while (i<=Length(s)) and (s[i]<>' ') do Inc(i);
  e1:=i;
 
  i:=Length(s);
  while (i>0) and (s[i]=' ') do Dec(i);
  e2:=i+1;
  while (i>0) and (s[i]<>' ') do Dec(i);
  b2:=i+1;
 
  if e1<b2
  then WriteLn(Copy(s,1,b1-1)+Copy(s,b2,e2-b2)+Copy(s,e1,b2-e1)+Copy(s,b1,e1-b1)+Copy(s,e2,Length(s)))
  else WriteLn('Нет двух слов');
end.

Добавлено через 2 минуты
Наличие лишних пробелов можно определить, например, так:

Pascal

  if (s[1]=' ') or (s[Length(s)]=' ') or (Pos({два пробела}'  ',s)>0) then

@aelris · 14.12.2020, 18:31 **[ТС]**

Спасибо, ваше решение даже лучше моего старого.

@aelris 1 / 1 / 0 Регистрация: 27.10.2020 Сообщений: 23
		1
	Поменять местами первое и последнее слово 09.12.2020, 12:25. Показов 1883. Ответов 4 Метки pascal, Строки (Все метки) У меня возникла небольшая проблема, задание: Дан текст, слова которого отделяются друг от друга пробелами. Поменять местами первое и последнее слова, если в тексте встречаются лишние пробелы. В противном случае текст оставить без изменения. Можете написать как именно менять местами первое и последнее слово? Добавлено через 20 минут Спасибо за внимание, уже разобрался. 0

@Constantin Cat 3405 / 1824 / 489 Регистрация: 28.02.2015 Сообщений: 3,699
	09.12.2020, 12:55	2
	Сообщение от aelris Спасибо за внимание, уже разобрался. 4.10 Если вопрос был решен вами самостоятельно, отпишите об этом в своей теме - есть и другие люди, которые столкнутся с той же проблемой, и им поможет ваш ответ Покажите Ваше решение 1

@aelris 1 / 1 / 0 Регистрация: 27.10.2020 Сообщений: 23
	14.12.2020, 18:31 [ТС]	5
	Спасибо, ваше решение даже лучше моего старого. 0

Опции темы

Поменять местами первое и последнее слово

Решение