離散數(shù)學(xué)上機實驗報告

1、精選優(yōu)質(zhì)文檔-傾情為你奉上精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)離散數(shù)學(xué)實驗報告 姓名： 學(xué)號： 班級：離散數(shù)學(xué)實驗報告實驗一 真值計算實驗內(nèi)容： 從鍵盤輸入兩個命題P和Q的真值，求它們的合取、析取、條件和雙條件的真值。用C語言實現(xiàn)。實驗源程序和運行結(jié)果如下：#include iostream.hvoid main()char p,q,t;int p1,q1;cout輸入p,q的真值(F或T)pq;if(p=F)p1=0;elsep1=1;if(q=F)q1=0;elseq1=1;/下面進行為運算if(p1|q1)t=T;elset

2、=F;coutp析取q為tendl;if(p1&q1)t=T;elset=F;coutp和取q為tendl;if(!p1)|q1)t=T;elset=F;coutp條件q為tendl;if(p1=q1)t=T;elset=F;coutp雙條件q為tendl;實驗二 關(guān)系閉包計算實驗內(nèi)容： 從鍵盤輸入一個關(guān)系的關(guān)系矩陣，計算其自反閉包、對稱閉包和傳遞閉包，傳遞閉包要求使用兩種算法，即R+和Warshall算法。用C語言實現(xiàn)。實驗源程序運行結(jié)果如下：#includeint he(int,int);void main()int a100100,b100100,c100100,d100100,I100

3、100,i,j,k,n,m,p,q,t;printf(請輸入關(guān)系矩陣的階數(shù)n);scanf(%d,&n);printf(請輸入此關(guān)系矩陣n);for(i=0;in;i+)for(j=0;jn;j+)scanf(%d,&aij);printf(選擇1計算自反閉包.n選擇2計算對稱閉包.n選擇3用R+計算傳遞閉包.n選擇4用washall計算傳遞閉包.n計算結(jié)束后選擇0退出n);scanf(%d,&t);switch(t)case 1:for(i=0;in;i+)for(j=0;jn;j+)if(i=j)Iij=1;else Iij=0; for(i=0;in;i+)for(j=0;jn;j+)b

4、ij=he(aij,Iij),printf(%4d,bij);printf(n);break;case 2:for(i=0;in;i+)for(j=0;jn;j+)bji=aij;printf(對稱閉包矩陣為n);for(i=0;in;i+)for(j=0;jn;j+)cij=he(aij,bij),printf(%4d,cij);printf(n); ;break;case 3: for(i=0;in;i+) for(j=0;jn;j+) cij=aij; dij=aij; bij=0; for(m=0;mn;m+)for(i=0;in;i+)for(k=0;kn;k+)for(j=0;jn

5、;j+)bik=bik|(cij*ajk);for(p=0;pn;p+)for(q=0;qn;q+)cpq=bpq;for(p=0;pn;p+)for(q=0;qn;q+)dpq=dpq|bpq;bpq=0;printf(矩陣的傳遞閉包為n);for(i=0;in;i+)for(j=0;jn;j+)printf(%4d,dij);printf(n); ;break;case 4:for(j=0;jn;j+)for(k=0;kn;k+)if(akj=1)for(i=0;in;i+)aki=aki|aji; printf(傳遞閉包為n);for(i=0;in;i+)for(j=0;jn;j+)pr

6、intf(%4d,aij); printf(n);break;default:printf(Errorn);int he(int a,int b)int c;if(a=0&b=0)c=0;else c=1;return c;實驗三 計算兩結(jié)點間長度為m的路的數(shù)目實驗內(nèi)容：從鍵盤輸入圖的鄰接矩陣和一正整數(shù)m，計算結(jié)點兩兩之間長度為m的路的數(shù)目?？紤]有向圖和無向圖。用C語言實現(xiàn)。實現(xiàn)可達性矩陣。實驗源程序和運行結(jié)果如下：#includevoid main()int a100100,b100100,c100100,d100100,i,j,k,t,p,q,n,m;printf(請輸入關(guān)系矩陣的階數(shù)n)

7、;scanf(%d,&n);printf(請輸入路的長度n);scanf(%d,&m);printf(請輸入此關(guān)系矩陣n);for(i=0;in;i+)for(j=0;jn;j+)scanf(%d,&aij);cij=aij;dij=aij;bij=0;for(t=0;tm-1;t+)for(i=0;in;i+)for(j=0;jn;j+)for(k=0;kn;k+)bij+=cik*akj;for(p=0;pn;p+)for(q=0;qn;q+)cpq=bpq;bpq=0;for(k=0,i=0;in;i+)for(j=0;jn;j+)k+=cij;printf(結(jié)點兩兩之間長度為%d的路的

8、數(shù)目為%dn,m,k);for(t=0;tn;t+)for(i=0;in;i+)for(j=0;jn;j+)for(k=0;kn;k+)bij+=cik*akj;for(p=0;pn;p+)for(q=0;qn;q+)cpq=bpq;bpq=0;dpq+=cpq;printf(該關(guān)系矩陣的可達型矩陣為n);for(i=0;in;i+)for(j=0;j=1) dij=1;else dij=0;printf(%4d,dij);printf(n);實驗四 最優(yōu)樹的構(gòu)造實驗內(nèi)容： 從鍵盤輸入一組權(quán)值，構(gòu)造出對應(yīng)的最優(yōu)樹，列出構(gòu)造過程。用C語言實現(xiàn)。實驗源程序和運行結(jié)果如下：#includevoid

9、main() int a100100,d100100=0;int i,j,k,min,m,n,p;int b100100=0;int c100100;printf(請輸入鄰接矩陣的階數(shù)：); scanf(%d,&p);for(i=0;ip;i+)printf(請輸入帶權(quán)值矩陣的第%d行，用空格隔開：,i+1); for(j=0;jp;j+)scanf(%d,&aij);for(i=0;ip;i+)for(j=0;jp;j+)cij=aij;for(k=0;kp*p;k+) min=100;for(i=0;ip;i+)for(j=0;jp;j+)if(aij=0) continue;else if(aijmin)min=aij; m=i,n=j; amn=anm=0;if(bmn=1|bnm=1)continue; dmn=dnm=1; for(i=0;ip;i+) for(j=0;jp;j+)bij=dij; for(i=0;ip;i+) for(j=0;jp;j+) if(bji=1)for(k=