飞翔理科ii-new.txt

来自「一个 数学工具集 有菜单界面 单色显示」· 文本 代码 · 共 2,173 行 · 第 1/4 页

		for(z=0;z<(shiliang/16)+1;z++)
		{
		if (Inkey()==ESC_KEY) {goto end;}
		if((x*12+y+z*16==shiliang)&&(y<=2*x+2))
			{
				js=js+1;printf("\n%d. C%d H%d O%d",js,x,y,z);
				
				if(z==0){printf("\n....  C%d H%d",x,y);}
				if(z==1&y>1){printf("\n....  C%d H%d OH",x,y-1);}
				if(z==1&y>1){printf("\n....  C%d H%d CHO",x-1,y-1);}
				if(z==2&y>1){printf("\n....  C%d H%d COOH",x-1,y-1);}
				if(y>z&z>2){printf("\n....  C%d H%d (OH)%d",x,y-z,z);}
				if(y>z&x>z&z>2){printf("\n....  C%d H%d (CHO)%d",x-z,y-z,z);}
				if((z%2==0)&(y>=z/2)&(z>2)){printf("\n....  C%d H%d (COOH)%d",x-z/2,y-z/2,z/2);}  

			}
		}
	}
}
end:
printf("\n计算完毕！\n共有%d 种符合答案。",js);
while(getchar()!=27);
}




//=========================================================================================
//生物



//=========================================================================================
void change(int y,int x)
{
int i;
	if(y==1)
		{
		for(i=0;i<=7;i++)	
		{muout[i]=mu1[x*8+i];}
		muout[i+7]="\0";
		}
	if(y==2)
		{
		for(i=0;i<=7;i++)	
		{muout[i]=mu2[x*8+i];}
		muout[i+7]="\0";
		}
	if(y==3)
		{
		for(i=0;i<=7;i++)	
		{muout[i]=mu3[x*8+i];}
		muout[i+7]="\0";
		}
	if(y==4)
		{
		for(i=0;i<=7;i++)	
		{muout[i]=mu4[x*8+i];}
		muout[i+7]="\0";
		}
	if(y==5)
		{
		for(i=0;i<=7;i++)	
		{muout[i]=mu5[x*8+i];}
		muout[i+7]="\0";
		}
}
//==================================================
void menul(int k,int i)
{
Block(52,34,53,77,1);
change(k,i);
TextOut(3,35,muout,3);
change(k,i+1);
TextOut(3,50,muout,3);
change(k,i+2);
TextOut(3,65,muout,3);
}
//=================================================
void menur(int i,int w)
{
if(i==1)
{
	if(w==1)
	{
	strcpy(mulu1,"根式化简 分式化简");
	strcpy(mulu2,"因数分解 约数倍数");
	strcpy(mulu3,"判断质数 寻找质数");
	}
	if(w==2)
	{
	strcpy(mulu1,"扇形面积 勾股定理");
	strcpy(mulu2,"对角线数 内 角 和");
	strcpy(mulu3,"-------- --------");
	}
	if(w==3)
	{
	strcpy(mulu1,"一元二次 二元一次");
	strcpy(mulu2,"一元三次 三元一次");
	strcpy(mulu3,"一元四次 Ｎ元一次");
	}
	if(w==4)
	{
	strcpy(mulu1,"诱导公式 公式大全");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}
	if(w==5)
	{
	strcpy(mulu1,"排 列 数 组 合 数");
	strcpy(mulu2,"二 项 式 --------");
	strcpy(mulu3,"-------- --------");
	}
	if(w==6)
	{
	strcpy(mulu1,"等差数列 等比数列");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}
	if(w==7)
	{
	strcpy(mulu1,"圆       双 曲 线");
	strcpy(mulu2,"椭    圆 抛 物 线");
	strcpy(mulu3,"到    角 --------");
	}
	if(w==8)
	{
	strcpy(mulu1,"一次函数 二次函数");
	strcpy(mulu2,"三角函数 反比函数");
	strcpy(mulu3,"指数函数 坐标设置");
	}
	if(w==9)
	{
	strcpy(mulu1,"点圆位置 线圆位置");
	strcpy(mulu2,"圆圆位置 线线位置");
	strcpy(mulu3,"-------- --------");
	}
	if(w==10)
	{
	strcpy(mulu1,"频率分布 随机数表");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==11)
	{
	strcpy(mulu1,"数学常数 圆周率π");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
}
if(i==2)
{
	if(w==1)
	{
	strcpy(mulu1,"平抛运动 测量电阻");
	strcpy(mulu2,"胡克定律 单摆运动");
	strcpy(mulu3,"动量守恒 测折射率");
	}	
	if(w==2)
	{
	strcpy(mulu1,"电阻串联 电阻并联");
	strcpy(mulu2,"力的合成 --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==3)
	{
	strcpy(mulu1,"概念公式 物理常量");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
}
if(i==3)
{
	if(w==1)
	{
	strcpy(mulu1,"式量计算 比例计算");
	strcpy(mulu2,"PH值计算 方程配平");
	strcpy(mulu3,"元素周期 --------");
	}	
	if(w==2)
	{
	strcpy(mulu1,"分 子 式 燃烧计算");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==3)
	{
	strcpy(mulu1,"化学试验 化学百科");
	strcpy(mulu2,"方 程 式 溶解性表");
	strcpy(mulu3,"归纳总结 电子云图");
	}	
}
if(i==4)
{
	if(w==1)
	{
	strcpy(mulu1,"密码子表 基 因 型");
	strcpy(mulu2,"自由组合 表 现 型");
	strcpy(mulu3,"基因分离 --------");
	}	
	if(w==2)
	{
	strcpy(mulu1,"反 射 弧 有氧呼吸");
	strcpy(mulu2,"无氧呼吸 --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==3)
	{
	strcpy(mulu1,"标志重捕 能量流动");
	strcpy(mulu2,"基因频率 --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==4)
	{
	strcpy(mulu1,"蛋 白 质 --------");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
	if(w==5)
	{
	strcpy(mulu1,"生物概念 --------");
	strcpy(mulu2,"-------- --------");
	strcpy(mulu3,"-------- --------");
	}	
}
if(i==5)
{
	if(w==1)
	{
	strcpy(mulu1,"程序设计：宋飞   ");
	strcpy(mulu2,"QQ：306698780    ");
	strcpy(mulu3,"★ 按<A>了解更多 ");
	}	
	if(w==2)
	{
	strcpy(mulu1,"飞翔理科工具集II ");
	strcpy(mulu2,"Ver 3.0 Bate     ");
	strcpy(mulu3,"Copying Right(C) ");
	}	
	if(w==3)
	{
	strcpy(mulu1,"    感谢所有星迷 ");
	strcpy(mulu2,"的参与和支持。   ");
	strcpy(mulu3,"★ 按<T>浏览名单 ");
	}	
	if(w==4)
	{
	strcpy(mulu1,"BOYFLY 飞翔工作室");
	strcpy(mulu2,"                 ");
	strcpy(mulu3,"                 ");
	}
}
TextOut(56,35,mulu1,1);
TextOut(56,50,mulu2,1);
TextOut(56,65,mulu3,1);
}
//=================================================
long max(int a)
{
int b;
if(a==1)b=9;
if(a==2)b=1;
if(a==3)b=1;
if(a==4)b=3;
if(a==5)b=2;
return b;
}
//==================================================
void menu()
{
int x,y,mm;
char k;
subject=0;ii=1;e=1;x=0;y=0;yy=0;
WriteWin(1);
WriteMenu(1);
menul(1,1);
menur(1,1);
Block(3,35+15*yy,50,46+15*yy,2);
Block(56+x*54,35+15*y,103+x*54,46+15*y,2);
Refresh();
while(1)
	{
	mm=max(subject+1);
	k=getchar();
	if(k==109){yy=yy-1;if(yy<0){yy=0;ii--;if(ii<1)ii=1;}}
	if(k==32){yy=yy+1;if(yy>2){yy=2;ii++;if(ii>mm)ii=mm;}}
	if(k==PGDOWN_KEY){ii=1;yy=0;x=0;y=0;subject++;if(subject>4)subject=0;}
	if(k==PGUP_KEY){ii=1;yy=0;x=0;y=0;subject--;if(subject<0)subject=4;}
	if(k==21){y=y+1;if(y>2)y=0;}
	if(k==22){x=x+1;if(x>1)x=0;}
	if(k==20){y=y-1;if(y<0)y=2;}
	if(k==23){x=x-1;if(x<0)x=1;}
	if(k==ESC_KEY){Quit();}
	if(k=='a'){WriteHelp(3,help_info,17);}
	if(k=='t'){WriteHelp(5,help_info2,10);}
	if(k==HELP_KEY){WriteHelp(2,help_info1,8);}
	if(k==ENTER_KEY){break;}
	WriteWin(1);
	WriteMenu(subject+1);
	menul(subject+1,ii);
	menur(subject+1,ii+yy);
	Block(3,35+15*yy,50,46+15*yy,2);
	e=y*2+x+1;
	if(subject!=4)Block(56+x*54,35+15*y,103+x*54,46+15*y,2);
	Refresh();
	}
}

void main()
{
start();
//jdx=10;jdy=10;zuox=80;zuoy=40;
for(;;)
{
menu();
ii=ii+yy;
//数学
if(subject==0)
	{
	if(ii==1)
		{
		if(e==1)genshi();
		if(e==2)fenshu();
		if(e==3)yinshu();
		if(e==4)yueshu();
		if(e==5)panduanzhishu();
		if(e==6)xunzhaozhishu();
		}
	if(ii==2)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4)neijiaohe();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==3)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6);
		}
	if(ii==4)
		{
		if(e==1);
		if(e==2);
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==5)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}

	if(ii==6)
		{
		if(e==1);
		if(e==2);
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==7)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6)NullChoose();
		}
	if(ii==8)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6);
		}
	if(ii==9)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==10)
		{
		if(e==1);
		if(e==2);
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==11)
		{
		if(e==1){strcpy(textfilename,"/FLY/SX_1.dat");Text(); };
		if(e==2){strcpy(textfilename,"/FLY/SX_2.dat");Text(); };
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6);
		}

	}
//物理
if(subject==1)
	{
	if(ii==1)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6);
		}
	if(ii==2)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==3)
		{
		if(e==1){strcpy(textfilename,"/FLY/WL_1.dat");Text();};
		if(e==2){strcpy(textfilename,"/FLY/WL_2.dat");Text();};
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	}
//化学
if(subject==2)
	{
	if(ii==1)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6)NullChoose();
		}
	if(ii==2)
		{
		if(e==1)fenzishi();
		if(e==2);
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==3)
		{
		if(e==1){strcpy(textfilename,"/FLY/HX_1.dat");Text();};
		if(e==2){strcpy(textfilename,"/FLY/HX_4.dat");Text();};
		if(e==3){strcpy(textfilename,"/FLY/HX_3.dat");Text();};
		if(e==4);
		if(e==5){strcpy(textfilename,"/FLY/HX_2.dat");Text();};
		if(e==6);
		}
	}
//生物
if(subject==3)
	{
	if(ii==1)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4);
		if(e==5);
		if(e==6)NullChoose();
		}
	if(ii==2)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==3)
		{
		if(e==1);
		if(e==2);
		if(e==3);
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==4)
		{
		if(e==1);
		if(e==2)NullChoose();
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	if(ii==5)
		{
		if(e==1){strcpy(textfilename,"/FLY/SW_1.dat");Text();};
		if(e==2)NullChoose();
		if(e==3)NullChoose();
		if(e==4)NullChoose();
		if(e==5)NullChoose();
		if(e==6)NullChoose();
		}
	}
}
}