Вывести на экран все гласные буквы, которые не входят более чем в одно слово - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Ввести четыре слова на русском языке. Вывести на экран все гласные буквы, которые не входят более чем в одно слово. Создание множеств оформить в виде процедуры.

Решение задачи: «Вывести на экран все гласные буквы, которые не входят более чем в одно слово»

textual
Листинг программы
  1. const
  2.   rul:string='АЕЁИОУЫЭЮЯ';
  3.   rll:string='аеёиоуыэюя';
  4. type st=set of char;
  5. var
  6.   w:string;
  7.   s:array [0..4] of st;
  8.   i:integer;
  9.  
  10. function G(c:char):char;
  11. var
  12.   i:integer;
  13. begin
  14.   i:=pos(c,rll);
  15.   if i>0 then G:=rul[i] else G:=c;
  16. end;
  17.  
  18. procedure CreateSet(var s:st;t:string);
  19. var
  20.   i:integer;
  21. begin
  22.   s:=[];
  23.   for i:=1 to length(t) do
  24.     if pos(t[i],rll+rul)>0 then Include(s,G(t[i]));
  25. end;
  26. begin
  27.   for i:=1 to 4 do begin
  28.     write('Введите слово ',i,':');
  29.     readln(w);
  30.     CreateSet(s[i],w);
  31.   end;
  32.   s[0]:=(s[1]-s[2]-s[3]-s[4])+(s[2]-s[1]-s[3]-s[4])+(s[3]-s[1]-s[2]-s[4])+(s[4]-s[3]-s[2]-s[1]);
  33.   if s[0]=[] then writeln('Нет букв!') else begin
  34.     write('Буквы:');
  35.     for i:=1 to length(rul) do
  36.       if rul[i] in s[0] then write(rul[i],' ');
  37.   end;
  38.   readln;
  39. end.

Объяснение кода листинга программы

Данный код написан на языке Turbo Pascal и решает задачу, которая заключается в выводе на экран всех гласных букв, которые не входят более чем в одно слово. Константа rul содержит все гласные буквы, а константа rll содержит все согласные буквы русского алфавита. Тип st представляет собой множество символов, а переменная s является массивом, содержащим множество символов. Функция G принимает символ и возвращает его, если он есть в константе rul, иначе возвращает сам символ. Процедура CreateSet создает множество s из строки t. Если в строке t есть гласные буквы, то они добавляются в множество s. В основной части кода пользователю предлагается ввести четыре слова. После ввода слов создается множество s для каждого слова. Затем происходит проверка: если множество s пустое, выводится сообщение Нет букв!. В противном случае выводятся все гласные буквы, которые есть в множестве s.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.444 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы