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

UptoLike

ВУЗ: 

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

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

Рубрика: 

102
else
writeln('Множество [M..Z] ');
writeln(' содержит наибольшее количество');
end.
Пример 6.3. Составить программу-определитель: принадлежит ли
результат вычисления (17*3–25)*2+15 множеству [7..30].
program mnog3;
var
a:set of 7..30; {Oписание множества}
begin
writeln('Результат вычисления ');
writeln('(17*3–25)*2+15 ');
{Проверка на принадлежность множеству}
if (17*3–25)*2+15 in a
then writeln(' принадлежит множеству [7..30].')
else writeln(' не принадлежит множеству [7..30].');
end.
Пример 6.4. Составить программу-определитель, какое из множеств
[D..J] , [H..K] , [I..O] входит в множество [F..N].
program mnog1;
var
a,b,c,d:set of 'A'..'Z'; {объявление множеств}
begin
a:=['D'..'J'];
b:=['H'..'K']; {Задание множеств}
c:=['I'..'O'];
d:=['F'..'N'];
if a <= d then
write('Множество [D..J] ');
if b <= d then
write('Множество [H..K] '); {Сравнение
множеств}
if c <= d then
write('Множество [I..O] ');
if (a>=d) and (b>=d) and (c>=d) then
write('никакое множество не ');
writeln('входит в '); {Вывод результата}
writeln('множество [F..N].');
end.

Страницы