Строка: Напечатать все слова, отличные от последнего слова

@uler · Регистрация: 08.10.2015

Студворк — интернет-сервис помощи студентам

Строковый тип!
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы. За помощь спасибо

@vint-81 · 17.11.2015, 12:54

Pascal

var s,sl,ps:string;
function posl(st:string):string;
var i:integer;
    p:string;
 begin
  i:=length(st)-1;
  while s[i]<>' ' do
   begin
    p:=s[i]+p;
    dec(i)
   end;
  posl:=p
 end;
function msl(var x:string):string;
begin
 while pos(x[length(x)],x)<>length(x) do delete (x,pos(x[length(x)],x),1);
 msl:=x
end; 
begin
 readln(s);
 ps:=posl(s);
 while pos('  ',s)>0 do delete(s,pos('  ',s),1);
 while pos(' ',s)>0 do
  begin
   sl:=copy(s,1,pos(' ',s)-1);
   if sl<>ps then write(msl(sl),' ');
   delete(s,1,pos(' ',s));
  end;
end.

@uler · 07.12.2015, 21:15 **[ТС]**

Спасибо)

@zarko97 · 22.03.2017, 17:05

C++

    some.pop_back();
    auto new_end = some.substr(some.find_last_of(' '), some.length());
    std::istringstream iss{ some };
    std::for_each(std::istream_iterator<std::string>(iss),
                  std::istream_iterator<std::string>(),
                  [new_end](std::string s)
    {
        if (s != new_end)
        {
            s.erase(s.back());
            std::copy(s.begin(), s.end(), std::ostream_iterator<char>(std::cout, ""));
            std::cout << std::endl;
        }
    });

@Cyborg Drone · 23.03.2017, 00:28

Не по теме:

zarko97, зачем Вы подняли из небытия древнюю тему, да ещё и ответили не на том языке программирования? Если Вы решили показать, как это компактно выглядит на C++, то зря занимались некрофилией: к примеру, на Pascal ABC.NET вся эта задачка пишется в одну-две строки.

Да, и ещё. Между Pascal- и C- подобными языками, на самом деле, нет какой-то принципиальной разницы, это становится понятным, если изучить синтаксис для того и другого в равной мере. Однако, замечу, что в контексте этой темы разница существенная: на данном форуме принято на паскале писать программы для "паскалевских" разделов форума, на C - для "сишных".

@zarko97 · 23.03.2017, 13:57

Cyborg Drone, уж в две строчки точно не выйдет

@volvo · 23.03.2017, 17:47

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

в две строчки точно не выйдет

А зачем тут больше?

Pascal

begin
  var words := ReadlnString().ToWords(' .'.ToArray);
  words.Where(t -> t <> words.Last).Select(s -> s.ToArray.Where((ch, i) -> (ch <> s.ToArray.Last) or (i = Pred(s.Length))).JoinIntoString('')).Println(' ');
end.

Формально - это 2 строки кода, begin/end не считаются

@Cyborg Drone · 23.03.2017, 19:19

Не по теме:

zarko97, :-/

@uler 0 / 0 / 0 Регистрация: 08.10.2015 Сообщений: 21
		1
	Строка: Напечатать все слова, отличные от последнего слова 16.11.2015, 20:56. Показов 2001. Ответов 7 Метки нет (Все метки) Строковый тип! Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы. За помощь спасибо 0

@uler 0 / 0 / 0 Регистрация: 08.10.2015 Сообщений: 21
	07.12.2015, 21:15 [ТС]	3
	Спасибо) 0

@Cyborg Drone
	23.03.2017, 00:28 #5
	Не по теме: zarko97, зачем Вы подняли из небытия древнюю тему, да ещё и ответили не на том языке программирования? Если Вы решили показать, как это компактно выглядит на C++, то зря занимались некрофилией: к примеру, на Pascal ABC.NET вся эта задачка пишется в одну-две строки. Да, и ещё. Между Pascal- и C- подобными языками, на самом деле, нет какой-то принципиальной разницы, это становится понятным, если изучить синтаксис для того и другого в равной мере. Однако, замечу, что в контексте этой темы разница существенная: на данном форуме принято на паскале писать программы для "паскалевских" разделов форума, на C - для "сишных". 0

@zarko97 279 / 39 / 13 Регистрация: 11.10.2015 Сообщений: 405
	23.03.2017, 13:57	6
	Cyborg Drone, уж в две строчки точно не выйдет 0

@Cyborg Drone
	23.03.2017, 19:19 Строка: Напечатать все слова, отличные от последнего слова #8
	Не по теме: zarko97, :-/ 0

Опции темы

Строка: Напечатать все слова, отличные от последнего слова

Решение