Определить, на гласную ли букву заканчивается предложение - Free Pascal
Формулировка задачи:
Составьте программу, определяющею, на гласную ли букву заканчивается предложение.
Решение задачи: «Определить, на гласную ли букву заканчивается предложение»
textual
Листинг программы
var s: string;
begin
writeln('Введите предложение: ');
read(s);
if pos(s[length(s)], 'ауоыиэяюёе') > 0 then writeln('Предложение оканчивается на гласную букву')
else writeln('Предложение не оканчивается на гласную букву')
end.
Объяснение кода листинга программы
- Объявлена переменная s типа string.
- Выводится сообщение
Введите предложение:для того, чтобы пользователь ввёл предложение. - С помощью функции read(s) считывается введённое пользователем предложение и сохраняется в переменной s.
- С помощью функции pos(s[length(s)], 'ауоыиэяюёе') проверяется, есть ли в последней гласной букве в предложении. Если функция pos находит совпадение, то возвращает позицию первого вхождения подстроки в строку, иначе возвращает 0.
- Если значение функции pos больше 0, то выводится сообщение
Предложение оканчивается на гласную букву, иначе выводится сообщениеПредложение не оканчивается на гласную букву.