Поменяйте местами части предложения, стоящие до запятой и после союза «а» - Pascal ABC
Формулировка задачи:
2. Введите с клавиатуры фразу, например «Мама мыла раму, а Маша ела кашу». Поменяйте местами части предложения, стоящие до запятой и после союза «а». Например: «Маша ела кашу, а мама мыла раму». Задайте исходной и полученной фразе разный цвет текста.
Решение задачи: «Поменяйте местами части предложения, стоящие до запятой и после союза «а»»
textual
Листинг программы
var s:string; begin s:='Мама мыла раму, а Маша ела кашу'; writeln(copy(s,pos(', а ',s)+4,length(s))+', а '+copy(s,1,pos(', а ',s)-1)); end.
Объяснение кода листинга программы
- В начале кода объявляется переменная s типа string и присваивается ей значение 'Мама мыла раму, а Маша ела кашу'.
- Затем с помощью функции pos() находится позиция запятой перед союзом
а
, а с помощью функции length() - длина всей строки. - С помощью функции copy() в новую строку копируется подстрока, начиная с позиции запятой после
а
и до конца строки, а также подстрока с начала строки до запятой переда
. - С помощью функции writeln() на экран выводится новая строка, полученная в результате перестановки частей предложения.