Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Операції над множинами
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Інформаційні технології
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
З В І Т
Лабораторна робота № 3
З курсу «Дискретної математики»
Тема:
«Операції над множинами»
Мета роботи:
Навчитися виконувати операції над множинами за допомогою функцій мови Pascal.
Завдання:
Описати 3 числові масиви A (5 елементів), B (3 елементи), C (7 елементів).
Ввести з клавіатури три масиви A, B, C .
Здійснити задані перетворення над масивами і видати результат.
Знайти суму всіх елементів масиву А;
Здійснити перетворення (A∩B)∩C;
Записати декартовий добуток AxC
Текст програми
uses crt;
const n=9;
type
my=set of 1..9;
var
i,j,kst1,kst2:integer;
dig1,dig2,dig3,a,b,pr,ob,rz,rz1:array [1..n] of integer;
d,d1,d2,d3:my;
begin clrscr;
for i:=1 to n do
begin
a[i]:=0;
b[i]:=0;
pr[i]:=0;
ob[i]:=0;
end;
writeln('Enter k-st6 elenentiv 1-oji mno*unu, vid 1 do 9');
readln (kst1);
if kst1>n then
begin
writeln('Vu vvelu 3aveluke 4uslo!!!!!');
readln;
exit;
end
else
begin
j:=kst1;
for i:=1 to kst1 do
begin
writeln('Vvedit6 ',i,'element 1-oji mno*unu vid 1 do 9');
readln(j);
a[j]:=1;
end;
end;
writeln('Enter k-st6 elenentiv 2-oji mno*unu, vid 1 do 9');
readln (kst2);
if kst2>n then
begin
writeln('Vu vvelu 3aveluke 4uslo!!!!!');
readln;
exit;
end
else
begin
j:=kst2;
for i:=1 to kst2 do
begin
writeln('Vvedit6 ',i,'element 2-oji mno*unu vid 1 do 9');
readln(j);
b[j]:=1;
end;
end;
writeln('=======================================================');
writeln('Mno*una1: ');
writeln;
for i:=1 to n do
begin
write(a[i]);
end;writeln;
writeln;
writeln('Mno*una2: ');
writeln;
for i:=1 to n do
write(b[i]);writeln;
for i :=1 to n do
begin
if (a[i]=1)and(b[i]=1) then pr[i]:=1
else pr[i]:=0;
end; writeln('==================================================');
writeln ('Pereriz mno*unu1 i mno*unu2 :');
for i:=1 to n do
write(pr[i]);
for i:=1 to n do
if (a[i]=1) or (b[i]=1) then
ob[i]:=1
else ob[i]:=0; writeln;
writeln('=====================================================');
writeln('Objednannja mno*unu1 i mno*unu2 :');
for i :=1 to n do
write(ob[i]);
for i:=1 to n do
if (a[i]=1) and (b[i]=0) then
rz[i]:=1
else rz[i]:=0;writeln;
writeln('======================================================');
writeln('Ri3nucja mno*unu1 i mno*unu2:');
if (a[i]=1) and (b[i]=0) then
rz[i]:=1
else rz[i]:=0;writeln;
for i:=1 to n do
write(rz[i]);
for i:=1 to n do
if (a[i]=0) and (b[i]=1) then
rz1[i]:=1
else rz1[i]:=0;writeln;
writeln('======================================================');
writeln('Ri3nucja mno*unu2 i mno*unu1');
for i:=1 to n do
write(rz1[i]);
writeln;
writeln('======================================================');
writeln('Vvedit6 element dl@ powyky (Vid 1 do 9) ');
readln(j);
if j>n then
begin
writeln ('Vu vvelu ne pravul6ne 4uslo!!! ,vvedit6 w4e raz');
readln(j);
end;
if a[j]=1 then writeln('Element vxodut6 v mno*uny1');
if b[j]=1 then writeln('Element vxodut6 v mno*uny2');
writeln;
writeln;
writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln('Vvedit6 elementu 3-ox mno*un (9 elementiv vid 1 do 9) ');
for i:=1 to n do
begin
Writeln ('Vvedit6 ',i,'-uj element 1 mno*unu vid 1 do 9');
readln(dig1[i]);
end;
d1:=[dig1[1],dig1[2],dig1[3],dig1[4],dig1[5],dig1[6],dig1[7],dig1[8],dig1[9]];
writeln;
for i:=1 to n do
begin
Writeln ('Vvedit6 ',i,'-uj element 2 mno*unu vid 1 do 9');
readln(dig2[i]);
end;
d2:=[dig2[1],dig2[2],dig2[3],dig2[4],dig2[5],dig2[6],dig2[7],dig2[8],dig2[9]];
writeln;
for i:=1 to n do
begin
Writeln ('Vvedit6 ',i,'-uj element 3 mno*unu vid 1 do 9');
readln(dig3[i]);
end;
d3:=[dig3[1],dig3[2],dig3[3],dig3[4],dig3[5],dig3[6],dig3[7],dig3[8],dig3[9]];
writeln;
d:=d1+d2+d3;
writeln('Objednannja 3-ox mno*un: ');
for i := 1 to n do
if i in d then
writeln(i,' ');
d:= d1*d2*d3;
writeln;
writeln ('Peretun 3-ox mno*un: ');
for i:=1 to n do
if i in d then
writeln(i,' ');
writeln;
writeln('Riznucja 1mno*una- 2mno*una: ');
d:=d1-d2;
for i :=1 to n do
if i in d then
writeln (i,' ');
writeln('+++++++++++++++++++FIN+++++++++++++++++++++++++');
repeat until keypressed;
Висновок:
На даній лабораторній роботі я навчився виконувати операції на множинами в мові Pascal за допомогою використання масивів та дій над ними.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора