В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Vladlenna
Vladlenna
07.12.2020 22:13 •  Информатика

Всем привет. Не до конца разобралась в строковом типе данных в Паскале, хотелось бы на примере задачи немного вникнуть. Задача.
Дан текст из малых русских букв, состоящих из нескольких слов. Напечатать все гласные буквы, которые не входят ни в одно слово.

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

Ответ:
1Elvira1
1Elvira1
13.05.2021 23:37

const glasnye:array[1..10] of string = ('а','е','ё','и','о','у','ы','э','ю','я');

var i:byte;

   s:string = 'Съешь ещё французских булок, да выпей чаю';

begin

   for i:=1 to length(glasnye) do begin

       if pos(glasnye[i],s) = 0 then write(glasnye[i],' ')  // если функция pos() возвращает не ноль, значит такая подстрока присутствует в строке, иначе pos() выводит 0.

   end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?