山东理工大学C语言编程上机全部作业(版本).docVIP

山东理工大学C语言上机作业（全部） 计算球面距离 第一题 #include stdio.h #include math.h #define PI 3.1415926//定义常量 main() { float a,b,c,s,m; scanf(%f%f%f,a,b,c);//输入纬度和两个经度，规定东经为正，西经为负 m=fabs(b-c); if(m180) // 经度差小于180 s=2*6371*asin(cos(PI/180*a)*sin(PI/360*m));//推出数学计算公式转换为c语言 else// s=2*6371*asin(cos(PI/180*a)*sin(PI/360*(360-m)));//推出数学计算公式转换为c语言 printf(距离为%f\n,s);//输出结果 } /*资环学院 矿物加工1101 学号1111105006 王浩林*/ /*版本VC++6.0*/ /*错误分析：计算公式推导出现问题*/ /*制作日期：2012年3月5日*/ /*输入数据：60 30 60*/ /*输出数据：距离为1653.573608*/ 第二题 #include stdio.h #include math.h #define PI 3.1415926//定义常量 main() { float a1,a2,b1,b2,m,s; scanf(%f%f%f%f,a1,a2,b1,b2);//输入纬度和两个经度，规定东经为正，西经为负 m=fabs(a1-b1); if(m180)// 经度差小于180 s=6371*2*asin(sqrt(0.5*(1-sin(PI/180*a2)*sin(PI/180*b2)-cos(PI/180*a2)*cos(PI/180*b2)* cos(PI/180*m))));//推出数学计算公式转换为c语言 else// 经度差大于180 s=6371*2*asin(sqrt(0.5*(1-sin(PI/180*a2)*sin(PI/180*b2)-cos(PI/180*a2)*cos(PI/180*b2)* cos(PI/180*(360-m)))));//推出数学计算公式转换为c语言 printf(%f\n,s);//输出结果 } /*资环学院 矿物加工1101 学号1111105006 王浩林*/ /*版本VC++6.0*/ /*错误分析：计算公式推导出现问题*/ /*制作日期：2012年3月5日*/ /*输入数据：60 30 60 60*/ /*输出数据：3335.847656*/ 贷款利息计算 第一题 #include stdio.h main() {float i,n,m,w,sum,p,q; printf(输入贷款金额（元）和期限（月）); scanf(%f%f,p,q); /*输入贷款金额和期限*/ m=p/q; /*计算每月还款本金*/ sum=0; for(i=1;i=q;i++) { n=(p-(i-1)*m)*0.005; /*计算每月利息*/ w=m+n; printf(第%3.0f月利息为%7.2f元本金为%7.2f元\n,i,n,m); sum=sum+n; /*计算总利息*/ } printf(总利息是%7.2f元\n,sum); } /*资环学院 矿物加工1101 学号1111105006 王浩林*/ /*版本VC++6.0*/ /*错误分析：无*/ /*制作日期：2012年3月29日*/ /*输入数据：600000 120*/ /*第二题*/ #include stdio.h #include math.h main() { float i,m,n,w,p,q,sum; printf(输入贷款金额（元）和贷款期限（月）); scanf(%f%f,p,q);