Курсовая работа: Доведення теоретико-математичних тотожностей і тверджень

write(' nb='); Readln (nb);

For i:=1 to nb do begin write ('B[',i,']= '); Readln(b[i]); end;

Write ('Задайте множину С та ii границю');

write(' nc='); Readln (nc);

For i:=1 to nc do begin write ('C[',i,']= '); Readln(C[i]); end;

Write ('Задайте множинуDта ii границю');

write(' nd='); Readln (nd);

For i:=1 to nd do begin write ('D[',i,']= '); Readln(D[i]); end;

peret(A,B,bk1,na,nb,nk1);

riz(U,bk1,bk2,k,nk1,nk2);

riz(U,C,bk3,k,nc,nk3);

riz(U,D,bk4,k,nD,nk4);

peret(bk3,bk4,bk5,nk3,nk4,nk5);

riz(U,bk5,bk6,k,nk5,nk6);

obed(bk2,bk6,M,nk2,nk6,nm);

end.

Результати:

Вхідні данні:

A={2,3,5,8}, na=4

B={1,2,5,11}, nb=4

C={12,14,15}, nc=3

D={3,9,10,11,12}, nd=5

Отримані данні:

М₁₌ {2,5}

М₂₌ {1,3,4,6,7,8,9,10,11,12,13,14,15}

М₃₌ {1,2,3,4,5,6,7,8,9,10,11,13}

М₄₌ {1,2,4,5,6,7,8,13,14,15}

М₅₌ {1,2,4,5,6,7,8,13}

М₆₌ {3,9,10,11,12,14,15}