Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Операції над множинами.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)
Інформація про роботу
Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
ЗВІТ
Лабораторна робота № 2
з курсу «Дискретна математика»
Тема: " Операції над множинами.”
Виконав: ст. гр. ПІ
Львів-2007
Завдання:
Знайти у масиві A задане число.
Здійснити перетворення над масивами: (A∩B)\(AUB)
Записати декартовий добуток AxC
Текст програми
program mnog;
uses crt;
var i,j,k,x,h,n:integer;
flag:boolean;
a:array[1..5] of integer;
b:array[1..3] of integer;
c:array[1..7] of integer;
d:array[1..3] of integer; {AnB}
e:array[1..11] of integer;{AUB}
f:array[1..10] of integer; {D\E}
begin
clrscr;
for i:=1 to 5 do begin writeln('vvedit a[',i,']'); readln(a[i]) end;
for i:=1 to 3 do begin writeln('vvedit b[',i,']'); readln(b[i]) end;
for i:=1 to 7 do begin writeln('vvedit c[',i,']'); readln(c[i]) end;
writeln('‚vvedit chislo');
readln(n);
for i:= 1 to 5 do
if a[i]=n then flag:=true;
if flag then writeln ('chislo ',n,' nalegit mnogyni')
else writeln ('зЁб«® ',n,' ne nalegit mnogyni');
for i:=1 to 5 do
for j:=1 to 3 do
if a[i]=b[j] then
d[j]:=b[j];
for i:=1 to 5 do
e[i]:=a[i];
for j:=1 to 3 do
e[i+j]:=b[j];
for i:=1 to 9 do
for j:=i+1 to 10 do
if e[i]=e[j] then e[j]:=0;
flag:=false;
for i:= 1to 3 do
begin
for j:=1to 10 do
if d[i]=e[j] then flag:=true;
if flag=false then f[i]:=d[i];
flag:=false;
end;
if f[1]=f[2] then begin f[2]:=f[3];f[3]:=0;end
else if f[2]=f[3] then begin f[2]:=f[3];f[3]:=0;end;
for i:=1 to 3 do
write(f[i],' ');
writeln('Pru decartowomy mnozhenni A na C otrumaemo : ');
for i:=1 to 5 do
for j:=1 to 7 do
writeln('(',a[i],',',c[j],')');
end.
Висновок:
На цій роботі я перевірив свої вміння роботи з множинами в середовищі Turbo Pascal.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора