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

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

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

Ответ:
ангел810
ангел810
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
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?