Міністерство освіти і науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота № 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.