Скачать программы    Все программы автора

Задача № 21

Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Ввести их с клавиатуры. Мощность каждого равна 10. Сформировать новое множество Y=(Х1+Х2)*(Х2-Х3), из которого выделить подмножество нечетных чисел. На экране вывести исходные и полученные множества.

program mnogestva;{Ввод имени программы}

var x1, x2, x3, res, N: set of byte;{Раздел описания переменных}

b,i: byte;

begin {Начало программы}

write('Введите 30 значений по 10 на каждое множество х1, х2, х3:');{Ввод данных}

for i:=1 to 10 do begin {Проверим число на принадлежность к диапазону 1..10}

read(b);{Читаем последнюю запись}

include(x1,b);{Включение данных}

end;writeln('_____________________________________________');{Вывод строки на экран}

for i:=1 to 10 do begin

Read(b);

include(x2,b);

end;writeln('_____________________________________________');

for i:=1 to 10 do begin

read(b);

include(x3,b);

end;writeln('_____________________________________________');

res:=(x1+x2)*(x2-x3);{Расчет и вычисление множеств}

i:=1;{Строка присваивания}

while i<=99 do {Создание цикла}

begin {Основная программа}

if i in res then include(N,i);

i:=i+2;

end;

write ('y=');{Вывод результатов}

for i:=1 to 100 do if i in res then

write(i,';');

writeln;{Переход на новую строку}

write('Нечетные значения:');{Вывод строки на экран}

for i:=1 to 100 do

if i in N then

write(i,' ');{Вывод на печать}

writeln;{Переход на новую строку}

writeln('Расчет закончен');

end.{Конец программы}