作业帮帮我做两道Fortran题啊
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/06/10 13:48:21
帮我做两道Fortran题啊
1.某单位在发放工资时,为每个职工准备一个工资袋.假定币值为100元、50元、10元、5元、2元、1元、5角、2角和1角9种,设某职工的工资为X,试计算他的工资袋里各币值的张数.输入X=1789.7元验证程序.
2.编写计算分段函数：（要求用X=-2,X=0,X=3三个值分
1.某单位在发放工资时,为每个职工准备一个工资袋.假定币值为100元、50元、10元、5元、2元、1元、5角、2角和1角9种,设某职工的工资为X,试计算他的工资袋里各币值的张数.输入X=1789.7元验证程序.
2.编写计算分段函数：（要求用X=-2,X=0,X=3三个值分
第1题答案不唯一吧,既可以是17897张1角的,也可以是1789张1元的+7张1角的.
如果你要求张数最少,那么程序很简单,如下：
program test
implicit none
integer,dimension(6)::nominal1,num1 ! 100元 50元 10元 5元 2元 1元
integer,dimension(3)::nominal2,num2 ! 5角 2角 1角
integer::i,s1,s2
real::salary
data nominal1 /100,50,10,5,2,1/
data nominal2 /5,2,1/
read(*,*)salary ! 输入总工资
s1=floor(salary) ! 整数部分,即几元
s2=floor((salary-s1)*10) ! 小数部分,即几角
num1=0
num2=0
i=1
do while((s1/=0).and.(i
如果你要求张数最少,那么程序很简单,如下：
program test
implicit none
integer,dimension(6)::nominal1,num1 ! 100元 50元 10元 5元 2元 1元
integer,dimension(3)::nominal2,num2 ! 5角 2角 1角
integer::i,s1,s2
real::salary
data nominal1 /100,50,10,5,2,1/
data nominal2 /5,2,1/
read(*,*)salary ! 输入总工资
s1=floor(salary) ! 整数部分,即几元
s2=floor((salary-s1)*10) ! 小数部分,即几角
num1=0
num2=0
i=1
do while((s1/=0).and.(i