Контрольная работа №1 часть 2
.docxБЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ
Кафедра программного обеспечения информационных технологий
Факультет ФНиДО
Специальность ПОИТ
Контрольная работа № 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