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

UptoLike

ВУЗ: 

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

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

Рубрика: 

101
возвращает TRUE, если выражение имеет значение, принадлежащее
множеству.
Пример 6.1. Составить программу, реализующую нахождение
пересечения множеств [5..25], [17..34], [1..20].
program mnog1;
var
a:set of 5..25; {объявление множеств}
b:set of 17..34;
c:set of 1..20;
d:set of byte;
n:byte;
begin
a:=[5..25];
b:=[17..34];
c:=[1..20]; {Задание множеств}
d:=a*b*c; {Нахождение пересечений множеств}
writeln(' Пересечением является множество:');
for n:=1 to 34 do
if n in d then write(n:3); {Вывод множества}
end.
Пример 6.2. Составить программу-определитель, какое из множеств
[C..N], [J..P], [M..Z] содержит наибольшее количество элементов.
program mnog2;
var
a,b,c:set of 'A'..'Z'; {объявление множеств а,b,c}
m:char;
ka,kb,kc:integer; {Количество элементов в множествах}
begin
a:=['C'..'N'];
b:=['J'..'P']; {Создание множеств}
c:=['M'..'Z'];
for m:='C' to 'N' do ka:=ka+1;
for m:='J' to 'P' do kb:=kb+1;{Определение числа элементов в множествах}
for m:='M' to 'Z' do kc:=kc+1;
{Нахождение максимального количества элементов множества.
Вывод результата}
if (ka>=kb) and (ka>=kc) then
writeln('Множество [C..N] ')
else
if (kb>=ka) and (kb>=kc) then
writeln('Множество [J..P] ')

Страницы