-
大小: 179KB文件類型: .rar金幣: 2下載: 0 次發(fā)布日期: 2021-06-09
- 語言: 其他
- 標(biāo)簽:
資源簡介
可以將excel表格里面的數(shù)據(jù)存到test.txt文檔中然后運行程序可以將表格中的數(shù)據(jù)讀到一個三維數(shù)組里面,然后進(jìn)行篩選 數(shù)學(xué)建模可用

代碼片段和文件信息
#include?
#include?
char?str[500]b[3]a[100][13][4];
int?mun[100][100]={0}mum=0;
?void?getchar1(int?n);
void?main()?
{????
?
?int?n=10j=0m=0;
?int?k4=0k5=0k6=0i=0;
?int?c1[100]={0}d1[100]={0};
?int?c2[100]={0}d2[100]={0};
?int?c3[100]={0}d3[100]={0};
?mum=0;
?for(n=1;n<100;n++)
?getchar1(n);
????for(m=1;m<100;m++)
{
?????for(n=1;n<100;n++)
?{
???for(j=0;j<6;j++)
???{
??????????if((a[m][j][0]==a[n][j][0])&&(a[m][j][1]==a[n][j][1])&&(a[m][j][2]==a[n][j][2]))
??????????mun[m][n]+=1;
???}
?}
}
for(m=1;m<100;m++)
{
for(n=1;n<100;n++)
{
if(mun[m][n]==4)
{
k4+=1;
c1[k4]=m;
d1[k4]=n;
}
if(mun[m][n]==5)
{
k5+=1;
c2[k5]=m;
d2[k5]=n;
}
if(mun[m][n]==6)
{
k6+=1;
c3[k6]=m;
d3[k6]=n;
}
}
}
printf(“有4個數(shù)對應(yīng)相同的有:%d?組\n“?k4);
for(i=1;i<=k4;i++)
????printf(“分別是第:%d行和第:%d行\(zhòng)n“?c1[i]d1[i]);
printf(“有5個數(shù)對應(yīng)相同的有:%d?組\n“?k5);
for(i=1;i<=k5;i++)
????printf(“分別是第:%d行和第:%d行\(zhòng)n“?c2[i]d2[i]);
printf(“有6個數(shù)對應(yīng)相同的有:%d?組\n“?k6-99);
for(i=1;i<=k6-99;i++)
????printf(“分別是第:%d行和第:%d行\(zhòng)n“?c3[i]d3[i]);
}
void?getchar1(int?n)
{
??int?j=0i=0m=0;
??char?k=0;
??FILE?*fp;
??if((fp=fopen(“test.txt““rt“))==NULL)?
??{
???printf(“cannot?open?file\n“);
???return;
??}
???for(i=1;i ??????fscanf(fp“%*[^\n]%*c“);?
???fscanf(fp“%[^\n]%*c“str);
???for(j=0;j<13;j++)
???{
???for(i=0;i<2;i++)
a[n][j][i]=str[i+2*j+m];
?????if((a[n][j][1])!=‘ ‘&&(str[2+2*j+m]!=‘ ‘))
?{a[n][j][2]=str[2+2*j+m];m=m+1;}
?else?a[n][j][2]=‘ ‘;
a[n][j][3]=‘\0‘;
// printf(“%s\n“?a[n][j]);
if(a[n][j][1]!=‘ ‘)
?????m=m+1;
???}
???fclose(fp);
}
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????192551??2012-11-21?21:11??111\Debug\Text1.exe
?????文件?????211548??2012-11-21?21:11??111\Debug\Text1.ilk
?????文件???????6741??2012-11-21?21:11??111\Debug\Text1.obj
?????文件?????181604??2012-11-20?23:35??111\Debug\Text1.pch
?????文件?????467968??2012-11-21?21:11??111\Debug\Text1.pdb
?????文件??????33792??2012-11-21?21:11??111\Debug\vc60.idb
?????文件??????53248??2012-11-21?21:11??111\Debug\vc60.pdb
?????文件???????4825??2012-11-21?01:29??111\test.txt
?????文件???????1772??2012-11-21?21:11??111\Text1.c
?????文件???????3387??2012-11-20?23:35??111\Text1.dsp
?????文件????????516??2012-11-20?23:36??111\Text1.dsw
?????文件??????41984??2012-11-21?21:11??111\Text1.ncb
?????文件??????48640??2012-11-21?21:11??111\Text1.opt
?????文件????????244??2012-11-21?21:11??111\Text1.plg
?????文件???????3073??2012-11-21?01:30??111\新建?文本文檔.txt
?????目錄??????????0??2012-11-21?20:25??111\Debug
?????目錄??????????0??2012-11-21?21:11??111
-----------?---------??----------?-----??----
??????????????1251893????????????????????17
評論
共有 條評論