Как изменить данную последовательность слов, содержащих от 1 до 30 слов

Question

Информатика: Как изменить данную последовательность слов, содержащих от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв, так чтобы эти слова располагались в обратном порядке? Напишите

Serdce_Skvoz_Vremya · Accepted Answer

Конечно! Вот пример программы на языке Pascal, которая изменяет данную последовательность слов в обратном порядке:

pascal

program ReverseWords;

var

  sentence: string;

  words: array of string;

  reversed: array of string;

  i, j: integer;

begin

  writeln("Введите последовательность слов:");

  readln(sentence);

  

  // Разделяем предложение на отдельные слова

  words := sentence.Split(" ");

  

  // Создаем новый массив для перевернутых слов

  SetLength(reversed, Length(words));

  

  // Переворачиваем слова

  j := 0;

  for i := Length(words) - 1 downto 0 do begin

    reversed[j] := words[i];

    j := j + 1;

  end;

  

  // Выводим перевернутые слова

  writeln("Перевернутая последовательность слов:");

  for i := 0 to Length(reversed) - 1 do begin

    writeln(reversed[i]);

  end;

end.

Как только программа запускается, она просит вас ввести последовательность слов. Вы можете ввести до 30 слов, каждое из которых состоит из 1 до 5 строчных латинских букв, разделенных пробелами.

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

В конце программа выводит перевернутую последовательность слов, каждое слово на новой строке.

Как изменить данную последовательность слов, содержащих от 1 до 30 слов, в каждом из которых от 1 до 5 строчных

Serdce_Skvoz_Vremya

О проекте

Предметы

Задать вопрос

Привет!