Алгоритмы и программы. Афанасьева Т. В - 104 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

104
Пример 6.7. Составить программу, реализующую удаление гласных
букв из множеств [D..K], [O..T], [V..Z]. Результат записать в виде одного
множества.
program mnog7;
var
a,b,c,glas,res:set of 'A'..'Z'; {объявление множеств}
m:char;
begin
a:=['D'..'K']; b:=['O'..'T']; {Задание множеств}
c:=['V'..'Z']; glas:=['A','E','I','O','U'];
for m:='D' to 'K' do
if m in glas then
a:=a–[m];
for m:='O' to 'T' do {Пpовеpка на наличие в }
if m in glas then
b:=b–[m];
for m:='V' to 'Z' do {множествах гласных букв}
if m in glas then
b:=b–[m];
res:=a+b+c; {Суммирование множеств}
for m:='A' to 'Z' do {Вывод результата}
if m in res then
write(' ',m);
end.
Пример 6.8. Программа выводит на экран слова, содержащие буквы
последней строки входного файла.
program lab7;
var
s:char;
b:set of 'А'..'
я';
sl,str:string;
fin:text;
i:integer;
j: 'А'..'я';
pr:boolean;
begin
writeln('Вывести на экран слова, содержащие буквы слов последней');
writeln('строки входного файла INPUT.DAT');
assign(fin,'input.dat');
reset(fin);
while not eof (fin) do
begin

Страницы