计算机fortran课程设计(1) 下载本文

四、图形

1、直角三角形

Do i=1,8 Print*,(“*”,j=1,i) End do End

2、等腰三角形

Do i=1,6 Print*,(“*”,j=1,i) End do Do i=7,11

Print*,(“*”,j=1,12-i) End do End

3、菱形

do i=1,5

print*,(\enddo do i=6,9

print*,(\enddo end

4、平行四边形

do i=1,5

print*,(\enddo end

5、矩形

Do i=1,5 Print*,(“*”,j=1,5) End do End