第一篇：C语言计算闰年程序（推荐）
//计算闰年的程序 #include
int year;
printf(“please input a year:”);
scanf(“%d”,&year);if(year%4==0&&year0!=0||year@0==0)// if(year@0==0||year%4==0&&year0!=0)
printf(“%d is run niann”,year);else
printf(“this is not run niann”);} //******************************** void main()//条件 {
int yyear;
printf(“闰年查询n请输入要查询的年份:n”);
scanf(“%d”,&yyear);
if(yyear@0==0)
printf(“%d是闰年”,yyear);
if(yyear%4==0)
if(yyear0==0)
printf(“%d不是闰年”,yyear);
else printf(“%d是闰年”,yyear);
else printf(“%d不是闰年”,yyear);}
//*************************************************************************************************************//
void main()//条件嵌套 {
int yyear,A;
printf(“闰年查询n请输入要查询的年份:n”);
scanf(“%d”,&yyear);
if(yyear@0==0)
A=1;
if(yyear%4==0)
if(yyear0==0)
A=0;
else A=1;
else A=0;
if(A==1)
printf(“%d是闰年”,yyear);
else printf(“%d不是闰年”,yyear);} //************************************************************************************************** void jisuanrunnian(int x)//函数调用
{
int A=1;
if(x@0==0)
A=1;
if(x%4==0)
if(x0==0)
A=0;
else A=1;
else A=0;
if(A==1)
printf(“%d是闰年”,x);
else printf(“%d不是闰年”,x);
} void main(){
int yyear;
printf(“闰年查询n请输入要查询的年份:n”);
scanf(“%d”,&yyear);
jisuanrunnian(yyear);}
第二篇：求闰年C语言程序
/*什么是闰年？
地球绕太阳转一周的实际时间是365天5时48分46秒。
如果一年只有365天，那么每年就多出5个小时。
4年多出的23小时15分4秒，差不多就等于1天。于是决定每四年增加1天。但是，它比一天24小时又少了约45分钟，如果每100年有25个闰年的话，就少了18时43分20秒，这就差不多等于1天了，这显然不合适。
可以算出，每年多出5小时48分46秒，100年就多出581小时16分40秒。
而25个闰年需要25*24=600小时。
581小时16分40秒只够24个闰年（24*24=576小时），于是决定每100年只安排24个闰年（世纪年不作闰年）。
但是这样每100年又多出了5小时16分40秒（581小时16分40秒-576小时），于是又决定每400年增加一个闰年。这样就比较接近实际情况了。
根据以上的，决定闰年按照以下的计算规则：
闰年应能被4整除（如2022年是闰年，而2022年不是闰年），但不是所有被4整除的年份都是闰年。在能被100整除的年份中，又同时能被400整除的年份才是闰年（如2000年是闰年），能被100整除而不能被400整除的年份（如1800、1900、2100）不是闰年。
这是国际公认的规则。只说“能被4整除的年份就是闰年”是不准确的（复制直接使用）*/
#include
int main()
{
int a;
printf(“请输入年份n”);
scanf(“%d”,&a);
if(a0==0&&a@0==0)//如果判断是百年，则判断年份能否被400整除printf(“%d年是闰年n”,a);
else if(a0!=0&&a%4==0)//如果判断不是百年，则判断年份能否被4整除printf(“%d年是闰年n”,a);
else
printf(“%d年不是闰年n”,a);
system(“pause”);
return 0;
}
第三篇：C语言判断闰年和平年
C语言判断闰年和平年
#include
printf(“%d年是闰年n”,year);} else {
printf(“%d年不是闰年n”,year);} } void main(){ int Year;scanf(“%d”,&Year);fun(Year);}
第四篇：电力系统通用潮流计算C语言程序
#include
//节点号
类型
负荷有功
负荷无功母线数据（类型 1＝PV节点，2＝PQ节点，3＝平衡节点）struct BUS { int busno;int type;float Pd;float Qd;};
//发电机数据 节点号
有功发电
电压幅值 struct Generator { int busno;float Pg;float Vg;};
//支路信息 节点I 节点J R X B/2 k struct Line { int busi;int busj;float R;float X;float B;float k;};//deltaP deltaQ deltaV^2// void fun1(double YG[][50],double YB[][50],double e[],double f[],int type[],int N,double W[],double P[],double Q[],double V[]){ double dP=0,dQ=0,dV=0;int i,j;for(i=0;i double A=0,B=0; for(j=0;j A =YG[i][j]*e[j]-YB[i][j]*f[j]; B =YG[i][j]*f[j] YB[i][j]*e[j]; } dV=V[i]*V[i]-e[i]*e[i]-f[i]*f[i]; dP=P[i]-e[i]*A-f[i]*B; W[2*i]=dP; dQ=Q[i]-f[i]*A e[i]*B; if(type[i]==1) W[2*i 1]=dQ; else W[2*i 1]=dV;} } //Jacobi矩阵// void Jacobi(double YG[][50],double YB[][50],double e[50],double f[50],int type[50],int N ,double Ja[100][101]){ int i,j; for(i=0;i for(j=0;j if(i!=j){ if(type[i]==1){ Ja[2*i][2*j]=-(YG[i][j]*e[i] YB[i][j]*f[i]); Ja[2*i][2*j 1]=YB[i][j]*e[i]-YG[i][j]*f[i]; Ja[2*i 1][2*j]=Ja[2*i][2*j 1]; Ja[2*i 1][2*j 1]=-Ja[2*i][2*j]; } else { Ja[2*i][2*j]=-YG[i][j]*e[i] YB[i][j]*f[i]; Ja[2*i][2*j 1]=YB[i][j]*e[i]-YG[i][j]*f[i]; Ja[2*i 1][2*j 1]=Ja[2*i 1][2*j]=0; } } else { double a[50]={0},b[50]={0}; for(int k=0;k a[i] =(YG[i][k]*e[k]-YB[i][k]*f[k]); b[i] =(YG[i][k]*f[k] YB[i][k]*e[k]); Ja[2*i][2*j]=-a[i]-YG[i][i]*e[i]-YB[i][i]*f[i]; Ja[2*i][2*j 1]=-b[i] YB[i][i]*e[i]-YG[i][i]*f[i]; if(type[i]==1){ Ja[2*i 1][2*j]=b[i] YB[i][i]*e[i]-YG[i][i]*f[i]; Ja[2*i 1][2*j 1]=-a[i] YG[i][i]*e[i] YB[i][i]*f[i]; } else { Ja[2*i 1][2*j]=-2*e[i]; Ja[2*i 1][2*j 1]=-2*f[i]; } } } } } } //高斯消元法解方程组函数// void gauss(double a[][101],int n) { int i,j,k;double c; for(k=0;k c=a[k][k]; for(j=k;j<=n;j )a[k][j]/=c; for(i=k 1;i c=a[i][k]; for(j=k;j<=n;j )a[i][j]-=c*a[k][j]; } } a[n-1][n]/=a[n-1][n-1]; for(k=n-2;k>=0;k--) for(j=k 1;j void main(){ ifstream fin;int N=0,GS=0,LD=0,ZLs=0;//节点数 发电机数 负荷数 BUS *B; Generator *G;Line *L; //从文本中读入原始数据到数组中// fin.open(“C:data.txt”);if(!fin) { cout<<“输入数据文件不存在！”< getchar(); } int m1[50]={0},m2[50]={0};float m3[50],m4[50],m5[50],m6[50]; int i,j,l; 支路数// for(i=0;;i ){ fin>>m1[i]; if(m1[i]==0)break; fin>>m2[i]>>m3[i]>>m4[i]; N ;} B =new BUS[N];for(i=0;i B[i].busno=m1[i]; B[i].type=m2[i]; B[i].Pd=m3[i]; B[i].Qd=m4[i];} for(i=0;;i ){ fin>>m1[i]; if(m1[i]==0)break; fin>>m4[i]>>m3[i]; GS ;} G =new Generator[GS];for(i=0;i G[i].busno=m1[i]; G[i].Pg=m4[i]; G[i].Vg=m3[i];} for(i=0;;i ){ fin>>m1[i]; if(m1[i]==0)break; fin>>m2[i]>>m3[i]>>m4[i]>>m5[i]>>m6[i]; ZLs ;} L =new Line[ZLs];for(i=0;i L[i].busi=m1[i]; L[i].busj=m2[i]; L[i].R=m3[i]; L[i].X=m4[i]; } L[i].B=m5[i];L[i].k=m6[i]; LD=N-GS;fin.close(); //节点导纳矩阵形成// double YB[50][50],YG[50][50],BB[50][50],K[50][50];for(i=0;i YB[i][j]=0;YG[i][j]=0;BB[i][j]=0;K[i][j]=1;} } for(l=0;l } for(i=0;i for(j=i;j K[i][j]=K[j][i];K[j][i]=1; } for(j=0;j if(i!=j){ YG[i][i]=YG[i][i] (YG[i][j]*K[i][j]*K[i][j]); YB[i][i]=YB[i][i] (YB[i][j]*K[i][j]*K[i][j] BB[i][j]); } } } //修正后// for(l=0;l // 求A=e f// double e[50]={0},f[50]={0};double C[100]={0},D[100]={0};for(i=0;i C[2*i]=1;} else C[2*i]=V[i]; } double W[100]={0},Ja[100][101]={0}; //调用Jacobi函数和高斯函数// for(int t=1;t<10;t ){ for(i=0;i<2*N-2;i ){ e[i]=C[2*i]; f[i]=C[2*i 1]; } fun1(YG,YB,e,f,type,N,W,P,Q,V); double it=fabs(W[0]); for(i=1;i<2*N-2;i ){ if(it it=fabs(W[i]);j=i; } } //中间迭代过程// cout< cout< if(it<0.00001)break; Jacobi(YG,YB,e,f,type,N,Ja); for(i=0;i<2*N-2;i ){ Ja[i][2*N-2]=W[i]; } //高斯消元法解方程// gauss(Ja,2*N-2); for(i=0;i<2*N-2;i ){ D[i]=-Ja[i][2*(N-1)]; C[i] =D[i]; } } //平衡节点// for(i=0;i double a=0,b=0; for(int j=0;j a =(YG[i][j]*e[j]-YB[i][j]*f[j]); b =(YB[i][j]*e[j] YG[i][j]*f[j]); } P[i]=e[i]*a f[i]*b; Q[i]=f[i]*a-e[i]*b; } //支路// double PZL[100][101]={0},QZL[100][101]={0},pr[100][101]={0},qx[100][101]={0};double x1=0,x2=0,y1=0,y2=0,I2=0;for(int k=0;k i=L[k].busi-1;j=L[k].busj-1;x1=e[i]/L[k].k-e[j];y1=f[i]/L[k].k-f[j];x2=-e[i]*YG[i][j]-f[i]*YB[i][j];y2=-f[i]*YG[i][j] e[i]*YB[i][j];QZL[i][j]=(x1*y2-x2*y1);PZL[i][j]=(x1*x2 y1*y2);I2=(PZL[i][j]*PZL[i][j] QZL[i][j]*QZL[i][j])/(e[i]*e[i] f[i]*f[i]);pr[i][j]=I2*L[k].R;qx[i][j]=I2*L[k].X-(e[i]*e[i] f[i]*f[i] e[j]*e[j] f[j]*f[j])*L[k].B;QZL[i][j] =(e[i]*e[i] f[i]*f[i])*(-L[k].B);x1=e[j]*L[k].k-e[i];y1=f[j]*L[k].k-f[i];x2=-e[j]*YG[j][i]-f[j]*YB[j][i];y2=-f[j]*YG[j][i] e[j]*YB[j][i];QZL[j][i]=(x1*y2-x2*y1);PZL[j][i]=(x1*x2 y1*y2);I2=(PZL[j][i]*PZL[j][i] QZL[j][i]*QZL[j][i])/(e[j]*e[j] f[j]*f[j]);pr[j][i]=I2*L[k].R;qx[j][i]=I2*L[k].X-(e[i]*e[i] f[i]*f[i] e[j]*e[j] f[j]*f[j])*L[k].B;QZL[j][i] =(e[j]*e[j] f[j]*f[j])*(-L[k].B); } //全网数据// int high=1,low=1; double PG=0,PL=0,Prr=0,Vh=sqrt(e[0]*e[0] f[0]*f[0]),Vl=sqrt(e[0]*e[0] f[0]*f[0]);for(k=0;k Vh=sqrt(e[k]*e[k] f[k]*f[k]);high=k 1;} if(sqrt(e[k]*e[k] f[k]*f[k]) Vl=sqrt(e[k]*e[k] f[k]*f[k]);low=k 1;} } //输出数据到文件databak.txt// ofstream fout; fout.open(“C:databak.txt”); fout<<“节点”< fout< for(i=0;i fout< for(j=0;j i=G[j].busno-1; fout< fout<<“支路 ”< fout< for(k=0;k i=L[k].busi-1;j=L[k].busj-1; fout< fout<<“全网数据”< fout< fout< 视力加盟风险大不大?现在对于近视眼的治疗也日益成为热门话题。在国内，视力矫正成为有近视困扰人的一块心病，视力的恢复势在必行啊，正是有这样的需求，催生了视力恢复行业，目前我国视力康复行业飞速发展。但视力加盟风险大不大，我们来详细的了解一下。 视力加盟风险大不大?易视界视力提升会所在视力加盟行业里取得了骄人的成绩，得到了广大消费者的信赖。易视界视力加盟的项目一次投入终生受益，全国200多连锁店运营经验，中国科技创新优秀企业，真技术，好品牌!易视界能够一举占领着整个视力保健行业的先锋，因为有各大加盟商的支持，视界希望有更多加盟者加盟易视界，让我们一起努力，一起创造财富!因此，创业加盟项目就选易视界提高视力，一个一份投资十分回报的好选择，不容错过的好机会。 易视界视力提升会所是香港润年国际生物科技发展有限公司旗下的专业从事青少年近视、弱视矫治的全国连锁机构。香港润年国际生物科技发展有限公司是一家集研发、生产、培训、销售与一体的综合性公司。公司核心技术产品“生命科学视力元疏络仪”荣获国家专利技术：ZL2022 20513 1209。该技术运用传统中医针灸学、经络学、养生学，结合现代量子医学、细胞学、能量学、基因学，历时七年，多位专家潜心研制。积累了数千里的临床治疗经验，临床有效率100%，提升率90%以上。“生命科学视力元疏络仪” 集中国传统中医文化与现代生物科技之大成。该技术在视力矫治领域居于世界领先地位。 生命科学视力元物理疗法系统化、规范化、个性化、安全化，源于中国中医研究院和中国现代医学研究院部分眼科专家多年实验和临床医学积累，可因人施治、因病施治、因 视力发展的不同阶段施治，针对不同的视力状况实施不同的矫治方案，真正达到切实可行的矫治效果。该产品在治疗青少年近视、弱视方面有着显著的疗效：裸视0.3以内，每 次10分钟，10次看到1.0；轻轻松松摘掉眼镜，还孩子清晰世界。 视力加盟风险大不大?易视界负责人告诉笔者：“一直以来，我们都不断接到有意向近视保健加盟利润有多大的咨询电话，每天还有来自不同区域的意向加盟商前来考察、洽谈。他们有的是企业家、成功人士，有的有资金，有的有人脉关系，还有的则是学生家长，因为孩子在易视界的帮助下恢复视力前来加盟的，大家都看好易视界这个项目。” 视力加盟风险大不大?开眼镜店十几年的刘先生说，“我原来也经营眼镜店，赚了不少钱，最近想扩大规模，却一直没找到合适的路子。我特意在北京上海等大城市的学校周边做过考察，发现有易视界视力提升会所每天前来咨询的人络绎不绝，并且还有很多学生都是听同学介绍来的，亲眼看到的情况使我更加坚定了加盟易视界的决心”。 易视界是孩子喜欢，家长们放心的视力康复方法，易视界诚邀全国有理想、有爱心、有激情的创业爱好者们加入我们的行业，让我们更创财富神话。第五篇：香港闰年
