实数型
program jiajianchengchu
implicit none
real::a,b,he,cha,ji,shang,formula
! 指定这些量为实数，输出时会带小数点
write(*,*)'计算两数和差积商'
write(*,*)'a,b='
read(*,*)a,b
he=a+b
cha=a-b
ji=a*b
shang=a/b
formula=1/(1/a+1/b)
write(*,*)'a+b',he
write(*,*)'a-b',cha
write(*,*)'a*b',ji
write(*,*)'a/b',shang
write(*,*)'1/(1/a+1/b)',formula
write(*,*)'按任意键退出'
read(*,*)
end program效果
整数型
program duoxiangshidejisuan
implicit none
real::x
! 指定为实数
integer::y
! 指定为整数
write(*,*)'多项式y=x-x**3/6+x**5/120-x**7/5040的计算'
write(*,*)'x='
read(*,*)x
y=x-x**3/6+x**5/120-x**7/5040
write(*,*)'y=',y
write(*,*)'press any key to exit'
read(*,*)
end program效果
常用函数的写法
markdown的制表模板：
| 左对齐 | 右对齐 | 居中对齐 |
| :-----| ----: | :----: |
| 单元格 | 单元格 | 单元格 |
| 单元格 | 单元格 | 单元格 |本表：
| 函数 | Fortran的写法 | 意味 |
|---|---|---|
| 累乘 | x**y | x的y次方 |
| 绝对值 | abs(x) | x的绝对值 |
| 平方根 | sqrt(x) | x的平方根 |
| 余数 | mod(x,y) | x除以y的余数 |
| 最小值 | min(a,b,…) | a,b,…的最小值 |
| 最大值 | max(a,b,…) | a,b,…的最大值 |
| 自然对数 | log(x) | |
| 常用对数 | log10(x) | |
| 指数函数 | exp(x) | |
| 正弦 | sin(x) | |
| 余弦 | cos(x) | |
| 正切 | tan(x) | |
| 反正弦 | asin(x) | |
| 反余弦 | acos(x) | |
| 反正切 | atan(x) | |
| arctan y/x | atan2(y,x) | |
| 双曲正弦 | sinh(x) | |
| 双曲余弦 | cosh(x) | |
| 双曲正切 | tanh(x) |
接下来，看向
(*,*)指定格式的作用