用fortran语言编写一个小型计算器程序,用键盘输入两个数字,再根据运算符号判断这两个数字做加减乘除的哪一项运算,每做完一次运算后,让用户来决定是否还要进行新的运算
时间: 2023-02-09 22:49:35 浏览: 128
以下是用 Fortran 语言编写的一个小型计算器程序的示例代码:
program calculator
implicit none
character(len=1) :: operator
real :: num1, num2, result
do
write(*,'(a)',advance='no') "请输入第一个数字: "
read(*,*) num1
write(*,'(a)',advance='no') "请输入运算符号 (+, -, *, /): "
read(*,*) operator
write(*,'(a)',advance='no') "请输入第二个数字: "
read(*,*) num2
if (operator .eq. "+") then
result = num1 + num2
else if (operator .eq. "-") then
result = num1 - num2
else if (operator .eq. "*") then
result = num1 * num2
else if (operator .eq. "/") then
result = num1 / num2
else
write(*,*) "无效的运算符号"
end if
write(*,'(a,f0.2)') "结果是: ", result
write(*,'(a)',advance='no') "是否继续进行运算 (y/n)? "
read(*,*) operator
end do
end program calculator
程序的工作流程是:
1. 使用 `do` 循环来控制运算的次数。
2. 使用 `write` 和 `read` 语句读入两个数字和运算符号。
3. 使用 `if` 语句根据运算符号判断这两个数字做加减乘除的哪一项运算。
4. 使用 `write` 语句输出运算结果。
5. 使用 `write` 和 `read` 语句询问用户是否继续进行新的运算。
如果用户输入的是 "y",则继续循环;如果输入的是 "n",则退出循环并结束程序。
相关推荐
![](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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)