БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ Кафедра программного обеспечения информационных технологий
Факультет ФНиДО Специальность ПОИТ
Контрольная работа № 1 по дисциплине «Основы алгоритмизации и программирования» часть 1 Вариант № 1
Выполнил студент: Рябченко А.И.
Минск 2013 1). Задание Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого множества равна 10. Сформировать новое множество Y = (X1 + X2) * (X2 – X3). Из множества Y выделить подмножество нечетных чисел и найти его мощность. На экран вывести исходные множества, а также полученное множество. Значения элементов исходных множеств ввести с клавиатуры. 2). Текст программы. program kontr21; {множества вводятся с клавиатуры; используемые переменные: х1,х2,х3 – начальные множества, y – искомое множество, y1 – подмножество нечетных чисел, m – мощность нечетного подмножества} Type Mnoj=set Of 1..100; var x1,x2,x3,y,y1,nech:Mnoj; i,a,n,m:integer; procedure chtenie(var x:Mnoj); {процедура ввода множеств} begin for i:=1 to 10 do begin read(a); x:=x+[a]; end; end; procedure vyvod(var x:Mnoj); {процедура вывода множеств} begin m:=0; for a:=1 to 100 do if a In x then begin write(a,' '); m:=m+1; end; if m=0 then write('mnojestvo pustoe'); end; begin {ввод множеств} writeln('vvedite znacheniya elementov pervogo mnojestva'); chtenie(x1); writeln('vvedite znacheniya elementov vtorogo mnojestva'); chtenie(x2); writeln('vvedite znacheniya elementov tretego mnojestva'); chtenie(x3); {формирование нового множества} y:=(x1+x2)*(x2-x3); n:=1; {формирование множества нечетных чисел} while n<100 do begin nech:=nech+[n]; n:=n+2; end; {вывод результатов} writeln('mnojestvo X1'); vyvod(x1); writeln; writeln('mnojestvo X2'); vyvod(x2); writeln; writeln('mnojestvo X3'); vyvod(x3); writeln; writeln('mnojestvo Y'); vyvod(y); writeln; y1:=y*nech; {выделение подмножества нечетных чисел из множества y} y1:=y*nech; {вывод результатов} writeln('podvnojestvo nechetnyh chisel'); vyvod(y1); writeln; writeln('moschnost podmnojestva = ',m); readln; readln end. 3). Тестовый набор данных. vvedite znacheniya elementov pervogo mnojestva 1 2 3 4 5 6 7 8 9 10 vvedite znacheniya elementov vtorogo mnojestva 11 12 13 14 15 16 17 18 19 20 vvedite znacheniya elementov tretego mnojestva 21 22 23 24 25 26 27 28 29 30 mnojestvo X1 1 2 3 4 5 6 7 8 9 10 mnojestvo X2 11 12 13 14 15 16 17 18 19 20 mnojestvo X3 21 22 23 24 25 26 27 28 29 30 mnojestvo Y 11 12 13 14 15 16 17 18 19 20 podvnojestvo nechetnyh chisel 11 13 15 17 19 moschnost podmnojestva = 5
