Напечатать все слова, отличные от последнего слова (удалив из слов нечетной длины среднюю букву)

@StivenS_YT · Регистрация: 07.12.2018

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

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

Прошу, помогите решить, очень нужно <3..

@kotAV · 07.12.2018, 21:38

StivenS_YT,

Pascal

function DeleteCentral(self: string): string; extensionmethod := self.Left(self.Length div 2)+self.Right(self.Length div 2);
 
function DeleteCentrals(self: array of string): array of string; extensionmethod;
begin
  self[self.Length-1]:=self[self.Length-1].Remove('.');
  var s:=self.Select(x -> x.DeleteCentral).ToArray;
  s[self.Length-1]+='.';
  Result:=s;
end;
 
begin
  var a:='раз два три четыре пять два.'.ToWords.DeleteCentrals;
  foreach var x in a do if (x<>a.Last.Remove('.')) then print(x);
end.

@StivenS_YT · 07.12.2018, 22:58 **[ТС]**

Отличный код на самом деле, но можно объяснить такие вещи как "extensionmethod" и "foreach", либо описать это кодом на
менее высоком уровне, примерно по уровню 1-го курса, дабы не сильно заморачиваться?

@Sun Serega · 08.12.2018, 00:43

Всё по порядку (по сложности*).

foreach проходит по каждому элементу любой последовательности (к примеру, массив это подвид последовательностей):

Pascal

begin
  var a := Arr(1,2,3,4);
  foreach var x in a do
    writeln(x);
end.

(запускайте все программы у себя, и пробуйте экспериментировать, изменять что то сами, иначе не всё поймёте)

extensionmethod значит что подпрограмма описанная с этим словом будет вызываться по точке для её первого параметра. К примеру:

Pascal

procedure SM(b: byte) := exit;
procedure EM(self: byte); extensionmethod := exit;
 
begin
  var b: byte;
  SM(b);
  b.EM();
end.

Они особенно полезный когда 1 extensionmethod вызывается для результата другого. Без них придётся делать очень много вложенных скобочек.

Ну а придумывали их изначально для инкапсуляции. То есть SM попадает в основное пространство имён, в и без того огромный список который показывает Ctrl+Space. А EM будет показываться только когда вы поставили точку после переменной типа byte.

Это, как и остальные принципы инкапсуляции, помогают избежать глупых ошибок и сделать написание кода более интуитивным.

Что ещё не понятно?

@StivenS_YT 0 / 0 / 0 Регистрация: 07.12.2018 Сообщений: 2
		1
	Напечатать все слова, отличные от последнего слова (удалив из слов нечетной длины среднюю букву) 07.12.2018, 19:30. Показов 1762. Ответов 3 Метки нет (Все метки) Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: - если слово нечетной длины, то удалить его среднюю букву. Прошу, помогите решить, очень нужно <3.. 0

@StivenS_YT 0 / 0 / 0 Регистрация: 07.12.2018 Сообщений: 2
	07.12.2018, 22:58 [ТС]	3
	Отличный код на самом деле, но можно объяснить такие вещи как "extensionmethod" и "foreach", либо описать это кодом на менее высоком уровне, примерно по уровню 1-го курса, дабы не сильно заморачиваться? 0

Опции темы

Напечатать все слова, отличные от последнего слова (удалив из слов нечетной длины среднюю букву)

Решение