用Fortran语言编写:计算职工工资,工人每周工作40小时,超过40小时的部分应该按加班工资计算(为正常工资的2倍),输入工作时间和单位报酬,计算出该职工应得的工资,并输出。(假定基本工资为:10元/每小时)
时间: 2023-01-31 13:08:23 浏览: 75
以下是用 Fortran 语言编写的程序,用于计算职工工资:
```fortran
program salary
implicit none
real :: hours, rate, salary
! 声明变量 hours、rate 和 salary,分别表示工作时间、单位报酬和工资
! 输入工作时间和单位报酬
print *, "请输入工作时间(小时):"
read *, hours
print *, "请输入单位报酬(元/小时):"
read *, rate
! 计算工资
if (hours <= 40) then
salary = hours * rate
else
salary = 40 * rate + (hours - 40) * rate * 2
endif
! 输出工资
print *, "工资为:", salary, "元"
end program salary
```
上面的程序定义了三个变量:`hours` 表示工作时间,`rate` 表示单位报酬,`salary` 表示工资。首先,程序会提示用户输入工作时间和单位报酬。然后,程序会根据工作时间是否超过 40 小时来计算工资。如果工作时间小于等于 40 小时,则工资直接按照工作时间乘以单位报酬计算;如果工作时间超过 40 小时,则工资需要按照前 40 小时的正常工资加上加班时间的加班工资计算。最后,程序会输出工资的结果。
注意:上面的程序中假定基本工资为 10 元/
相关问题
用fortran语言编写:输出杨辉三角形
以下是用Fortran语言编写的输出杨辉三角形的代码:
```
program yanghui
implicit none
integer :: n, i, j
integer :: triangle(20,20) ! 储存杨辉三角的数组
write(*,*) '请输入要输出的行数:'
read(*,*) n
! 初始化第一行
triangle(1,1) = 1
do i = 2, n
! 计算每一行的数值
triangle(i,1) = 1
do j = 2, i-1
triangle(i,j) = triangle(i-1,j-1) + triangle(i-1,j)
end do
triangle(i,i) = 1
end do
! 输出杨辉三角
do i = 1, n
do j = 1, i
write(*,'(I5)',advance='no') triangle(i,j)
end do
write(*,*) ! 换行
end do
end program yanghui
```
这段程序通过嵌套循环计算并储存了杨辉三角的每一个数值,并将其输出到屏幕上。用户可根据需要输入要输出的行数,程序会自动计算并输出对应行数的杨辉三角形。
用fortran语言编写:从键盘输入十个数,要求按输入时的逆序输出
你好!下面是一个例子,如何用Fortran语言从键盘输入十个数并按逆序输出:
program inverse_input
implicit none
integer :: i, n, a(10)
! 从键盘输入十个数
do i = 1, 10
write(*,'(A)') '请输入一个数:'
read(*,'(I5)') n
a(i) = n
end do
! 按输入时的逆序输出
do i = 10, 1, -1
write(*,'(I5)') a(i)
end do
end program inverse_input
在这个例子中,我们定义了一个整数数组a,用来存储从键盘输入的十个数。然后,我们使用一个循环从键盘输入这十个数,并将它们存储在数组a中。最后,我们使用另一个循环按逆序输出数组a中的数。
希望这能帮到你!如果你有其他问题,请随时追问。
相关推荐
![java](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)