Дана последовательность, содержащая от 1 до 30 слов; вывести слова в алфавитном порядке - PascalABC.NET
Формулировка задачи:
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами – запятая, за последним – точка. Написать все слова в алфавитном порядке
Решение задачи: «Дана последовательность, содержащая от 1 до 30 слов; вывести слова в алфавитном порядке»
textual
Листинг программы
begin ReadLnString.ToWords(' ,.'.ToArray).OrderBy(word -> word).Print(', '); WriteLn('.'); end.
Объяснение кода листинга программы
В данном коде на языке PascalABC.Net происходит следующее:
ReadLnString.ToWords(' ,.'.ToArray)
- считывание строки из консоли и разделение её на слова. В данном случае используется разделитель,.
.OrderBy(word -> word)
- сортировка полученной последовательности слов в алфавитном порядке.Print(', ')
- вывод отсортированных слов через запятую и пробел.WriteLn('.')
- вывод точки в конце строки. Список переменных и их значений в данном коде:ReadLnString
- результат считывания строки из консоли.ToWords
- метод, преобразующий строку в последовательность слов.'.'.ToArray
- преобразование строки в массив символов, содержащих точки.OrderBy
- метод, сортирующий элементы последовательности.word
- текущий элемент последовательности.Print
- метод, выводящий элементы последовательности на экран.WriteLn
- метод, выводящий строку на экран и переходящий на новую строку.