1判斷唯一可譯碼的程序#include<stdio.h>#include<string.h>charc[100][50];〃碼字集合charf[300][50]〃后綴集合intN,sum=0;//N為輸入碼字的個數，sum為尾隨后綴集合中碼字的個數intflag〃判斷是否唯一可譯標志位voidpatterson(charcQ,chard[])//檢測尾隨后綴(inti,j,k;for(i=0;;i++)(if(C[i]=='\0,&&d[i]=='\01)//2字符串一樣，跳出break;if(c[i]==1\0') 〃"匕，長將d的尾隨后綴放入f中(for(j=i;dD]!='\0-;j++)f[sum]D-i]二d[j]；f[sum][j-i]='\0';for(k=0;k<sum;k++)(if(strcmp(f[sum],f[k])==0)/*查看當前生成的尾隨后綴在f集合中是否存在*/(sum--;break;})sum++;break;)if(d[i]==1\01) //c比d長，將c的尾隨后綴放入f中(for(j=i;cD]!='\O';j++)f[sum]D-i]=c[j]；f[sum][j-i]='\0';for(k=0;k<sum;k++)(if(strcmp(f[sum],f[k])==0) /*查看當前生成的尾隨后綴在f集合中是否存在*/sum--;break;)sum++;break；)if(cp]!=d[i])〃字符不一樣了也退出break;})/?主函數?/mainO(inti.j;printf(“請輸入碼字的個數(小于100):)〃輸入碼得個數scanf("%d",&N);while(N>100)(printf(”輸入碼字個數過大，請輸入小于100的數\n”)；printf("請輸入碼字的個數(小于100)：");scanf("%d",&N);}flag=0;printf(”請分別輸入碼字(每個碼字長度小于50個字符)for(i=0;i<N;i++)(scanf("%s",&c[i]);}for(i=0;i<N-1;i++)〃判斷如果碼本身是否重復for0=i+l;j<N;j++)(if(strcmp(c[i],cOB==0)(flag=1;break;))if(flag二二1)〃如果碼本身有重復，就可以斷定它不是唯一可譯碼(printf("這不是唯一可譯碼。\n")；}else(for(i=0;i<N-1;i++) /*此處是根據原始編碼生成的尾隨后綴集合s[l]放入f中?/for(j=i+1;j<N;j++)patterson(c[i],c[j]);)for(i=0；；i++)〃根據原始碼與s[i]生成s[i+□也放入f[i](ints=0;for(i=0;j<N;j++) /*判斷s[i+l]中的字符串是否與s[i]中一樣，重復的則不再添加”(if(i==sum)(s=1;break;}elsepatterson(f[i],c[j]);)if(s二二1)break;)for(i=0;i<sum;i++) /*判斷p里的字符串是否與s中重復，重復則不是唯一的*/(for(j=0;j<N;j++)(if(strcmp(f[i],c[j])==0)(flag=1;break;}))if(flag==1)(printf(”這不是唯一可譯碼。\n");)elseprintf(“這是唯一可譯碼。\n");}printfC尾隨后綴集合為：”)；for(i=0;i<=sum;i++)printf("\n%s",f[i]);2香農編碼的程序#include<stdio.h>#include<math.h>#defineG20floata[G]={0},P[G]={0},tmp=0,m[G]={0},k=0,H=0;intK[G]={0},i,j,N,s[G][G];voidmain()(loop：printf(〃請輸入信源符號個數N:");scanf(級d〃，&N);for(i=0;i<N;i++)(scanf ;tmp+=a[i];)if(tmp<0.9999||tmp>l.0001){printf(〃輸入的數據不符合要求，請重新輸入\n〃);tmp=0;gotoloop;)else(for(i=0;i<N-l;i++) 〃從大到小進行排序for(j=i+l;j<N;j++)(if(a[i]<a[j])tmp=a[i];))for(i=l;i<N;i++)〃求累加概率for(j=0;j<i;j++)for(i=0;i<N;i++)(m[i]=-logl0(a[i])/logl0(2.0);〃求出Togp(ai)并保存在數組m里for(j=0;j<10;j++)〃對存在數組m里的數進行取整(取不小于這個數的最小整數)(if(m[i]==j)(break;)if(m[i] <j+1)(break;)))for(i=0;i<N;i++)〃求碼字tmp=P[i];tmp=tmp*2;if(tmp<l)s[i][j]=O;else(tmp=tmp-l;)))for(i=0;i<N;i++)(〃求信源焰k+=a[i]*K[i];〃求平均碼長)printf(〃信源消息符號ai符號概率p(ai)累加概率Pi-logp(ai)碼字長度Ki碼字\n〃)；for(i=0;i<N;i++)(printfCa%d%-4.2f%-4.2f%-4.2f %d〃,i+1,a[i],P[i],m[i],K[i]);for(j