山东理工大学C语言实验.doc

山东理工大学C语言实验指导答案实验一 顺序结构程序设计（2学时）/姓名：*/班级：*/学号：*/参考测试数据：输入：0 0 180 输出：20015.08/ 输入：30 0 90 输出：8397.72/ 输入：60 0 45 输出：2453.20#include#include#define PI 3.141592653/定义PI的值void main()double wd,ajd,bjd,jdc,r1,d1,d12,yxj,d;double R=6371.0;/定义地球的半径printf(已知地球的平均半径为6371千米,nn假设在地球的同一纬度上，有两个处于不同经度的城市A、B.nn编程序求出这两个城市之间的地面距离。nn);printf(规定东经为正，西经为负，请对应输入符号。nn);/问题ppp:p1:printf(请输入相同的纬度：);scanf(%lf,&wd);if(fabs(wd)90.0)printf(输入有误，请重新输入!n);/输入错误将会重新输入goto p1;p2:printf(请输入A点经度：);scanf(%lf,&ajd);if(fabs(ajd)180.0)printf(输入有误，请重新输入!n);goto p2;p3:printf(请输入B点经度：);scanf(%lf,&bjd);if(fabs(bjd)180.0)printf(输入有误，请重新输入!n);goto p3;if(fabs(ajd-bjd)180)jdc=fabs(ajd-bjd)-180;elsejdc=fabs(ajd-bjd);/计算经度差r1=R*cos(wd*PI/180);/计算这一纬度的圆的半径d12=2*r1*r1-2*r1*r1*cos(jdc*PI/180);yxj=acos(1-d12/(2*R*R);/圆心角d=R*yxj;/两地的距离printf(A、B两点地面距离为：%lf千米。n,d);/输出两地的距离goto ppp;/终于把这个公式推出来，完成了!实验二 选择结构程序设计（2学时）/姓名：*/班级：*/学号：*#include#includevoid main()int nian,yue,ri,tianshu,m;printf(编程序实现：nn输入日期:年,月,日注:公元1年1月1日为第一天nn输出:从公元1年1月1日到这一天总共_天，并求出这一天是星期_。nn);p1:printf(请输入:_年_月_日.nn);/问题scanf(%d%d%d,&nian,&yue,&ri);if(nian1)printf(输入有误，请重新输入!n);/输入错误将会重新输入goto p1;elseif(yue12)printf(输入有误，请重新输入!n);goto p1;elseif(yue=1|yue=3|yue=5|yue=7|yue=8|yue=10|yue=12)if(ri31)printf(输入有误，请重新输入!n);goto p1;elseif(yue=4|yue=6|yue=9|yue=11)if(ri30)printf(输入有误，请重新输入!n);goto p1;elseif(yue=2)if(ri29)printf(输入有误，请重新输入!n);goto p1;/完成输入m=(nian-nian%4)/4-(nian-nian%100)/100+(nian-nian%400)/400;/输入一个年数，计算闰年数!printf(%d闰年nn,m);/便于验证!tianshu=(nian-1)*365;/计算天数，到nian之前（不算闰年）switch(yue)case 1:tianshu=tianshu+ri;break;case 2:tianshu=tianshu+ri+31;break;case 3:tianshu=tianshu+ri+59;break;case 4:tianshu=tianshu+ri+90;break;case 5:tianshu=tianshu+ri+120;break;case 6:tianshu=tianshu+ri+151;break;case 7:tianshu=tianshu+ri+181;break;case 8:tianshu=tianshu+ri+212;break;case 9:tianshu=tianshu+ri+243;break;case 10:tianshu=tianshu+ri+273;break;case 11:tianshu=tianshu+ri+304;break;case 12:tianshu=tianshu+ri+334;break;/月日天数,不是闰年tianshu=tianshu+m;/加上闰年数if(nian%4=0&nian%100!=0|nian%400=0)switch(yue)case 1:tianshu=tianshu-1;break;case 2:tianshu=tianshu-1;break;printf(从公元1年1月1日到这一天总共%d天n,tianshu);switch(tianshu%7) case 0:printf(这一天是星期日n);break;case 1:printf(这一天是星期一n);break;case 2:printf(这一天是星期二n);break;case 3:printf(这一天是星期三n);break;