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

《山东理工大学c语言编程上机全部作业(doc版本)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、山东理工大学C语言上机作业（全部）计算球面距离第一题#include#include#definePI3.1415926//定义常量main(){floata,b,c,s,m;scanf("%f%f%f",&a,&b,&c);//输入纬度和两个经度，规定东经为正，西经为负m=fabs(b-c);if(m<180)//经度差小于180s=2*6371*asin(cos(PI/180*a)*sin(PI/360*m));//推出数学计算公式转换为c语言else//s=2*6371

2、*asin(cos(PI/180*a)*sin(PI/360*(360-m)));//推出数学计算公式转换为c语言printf("距离为%f",s);//输出结果}/*资环学院矿物加工1101学号1111105006王浩林*//*版本VC++6.0*//*错误分析：计算公式推导出现问题*//*制作日期：2012年3月5日*//*输入数据：603060*//*输出数据：距离为1653.573608*/第二题#include#include#definePI3.1415926

3、//定义常量main(){floata1,a2,b1,b2,m,s;scanf("%f%f%f%f",&a1,&a2,&b1,&b2);//输入纬度和两个经度，规定东经为正，西经为负m=fabs(a1-b1);if(m<180)//经度差小于180s=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

4、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",s);//输出结果}/*资环学院矿物加工1101学号1111105006王浩林*//*版本VC++6.0*//*错误分析：计算公式推导出现问题*//*制作日期：2012年3月5日*//*输入数据：60306060*//*输出数据：333

5、5.847656*/贷款利息计算第一题#includemain(){floati,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元",i,n,m);sum=sum+n;/*

6、计算总利息*/}printf("总利息是%7.2f元",sum);}/*资环学院矿物加工1101学号1111105006王浩林*//*版本VC++6.0*//*错误分析：无*//*制作日期：2012年3月29日*//*输入数据：600000120*//*第二题*/#include#includemain(){floati,m,n,w,p,q,sum;printf("输入贷款金额（元）和贷款期限（月）");scanf("%f%f",&p,&q);/*输入贷款金额和期限*/s

7、um=0;w=p*0.005*pow(1.005,q)/(pow(1.005,q)-1);/*计算本息*/for(i=1;i<=q;i++){m=p*0.005*pow(1.005,i-1)/(pow(1.005,q)-1);/*计算每月还款的本金*/n=w-m;/*计算每月还款利息*/printf("第%3.0f月的本金为%7.2f元，利息为%7.2f元",i,m,n);sum=sum+n;/*计算还款利息总金额*/}printf("总利息为%f元",sum);printf("本息为%f元",w);

8、}/*资环学院矿物加工1101学号1111105006王浩林*//*版本VC++6.0*//*制作日期：2012年3月29日*//*出现错误：公式推导出现问题*//*输入数据：600000120*/打印日历第一题#includemain(){inta[6][7],i,j,y,m,n,d,w,p,days;printf("请输入年月:");scanf("%d%d",&y,&m);n=