Fortran 上机实验

fortran上机内容

1，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。

2，编写程序实现字符串的倒序输出。

3，输入一个正整数，输出N行的倒三角形宝塔

---

---

---

*

1. 
program zy
implicit none
real j
integer i
read*,i
j=i
if(i>0)then
if(mod(i,2)==0) then
j=(j**(1/3.0))
print*,j
else
j=(j**(1/2.0))
print*,j
end if
else
print*,"error"
end if
end program zy

2.program daoxshuchu
character*100,a
integer n
print*,"请输入字符串:"
read*,a
n=LEN_TRIM(a)
print*,"倒序输出的字符串为"
print*,(a(j:j),j=n,1,-1)
end program daoxshuchu

3.integer i,n,j
print*,”please print number n”
read*,n
if(n>=1) then
do i=1,n,1
print*,(’ ‘,j=1,i),(‘*’,j=1,(2*n-2*i+1),1) !2(n-i)+1
end do
else
print*,”error”
endif
end program sample

(自然数开平方立方结果)

（字符串倒序输出结果）

（倒三角输出）
3.总结：
Fortran中的嵌套循环与C++中的不太一样，c++需要用for循环而Fortran直接用do循环结构就可以。举例：print*，（(a（i,j）,i=1,2),j=1,3）
输出一个2*3的矩阵，而用DO循环可以是do i=1,2 do j=1,3 print*a(i,j).类似的C++中以for（i=1;i<=2;i++）{for(j=1;j<=3;j++){…}}