Язык программирования Pascal. Множества. Типизированные константы. Васильев В.В - 6 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

6
слова и текста формируется множество букв слова и множество букв текста.
Если пересечение двух сформированных множеств непусто , то на вопрос зада-
чи надо дать положительный ответ. ♠
Program Words;
Uses crt;
Const Max_Len = 100; {максимальная длина слов}
eot = '.'; {признак конца ввода}
Type Word = array [1..Max_Len] of char; {тип слова}
Var Sl,Text: Word; {слово и текст}
Letters1, Letters2: set of char; {множество букв слова}
i: 0..Max_Len; {счетчик букв}
flag: Boolean; {признак наличия букв слова в тексте}
Begin
Textbackground(7); Textcolor(blue); Clrscr;
{Ввод слова и инициализация множества букв слова}
writeln('Введите слово (в конце поставьте точку): ');
i:=0; Letters1:=[];
repeat
inc(i); read(Sl[i]);
if Letters1-[Sl[i]]=Letters1
then Letters1:=Letters1+[Sl[i]]
until (i=Max_Len) or (Sl[i]=eot);
Letters1:=Letters1-[eot];
{Ввод текста и инициализация множества букв текста}
writeln('Введите текст (в конце поставьте точку): ');
i:=0; Letters2:=[];
repeat
inc(i); read(Text[i]);
if Letters2-[Text[i]]=Letters2
then Letters2:=Letters2+[Text[i]]
until (i=Max_Len) or (Text[i]=eot);
Letters2:=Letters2-[eot];
if Letters1*Letters2<>[]
then writeln('В тексте есть буквы слова! ')
else writeln('В тексте нет букв слова! ');
readkey
End.{Repeat_Letters}
Задача 3. Пусть дана непустая последовательность слов из строчных
русских букв. Между соседними словами присутствует запятая, за последним –
точка. Напечатайте в алфавитном порядке гласные буквы , которые входят в
каждое слово .
♣ Текст из слов оформим в виде последовательности символов, оканчи-
вающейся точкой . При просмотре очередного слова текста будем формировать
множество Gl_Sl его гласных букв. Множество Gl_T гласных букв, входящих во
все слова текста, вначале совпадает с множеством гласных букв первого слова.

Страницы