十幾年沒用過ForTran了,手上連編譯器都沒有,所以只能就我的想法幫你改,有語法錯誤的話,你要自己修一下哦。
(1)利用求餘數的方法,去計算是否超過500公尺..
- PROGRAM MAIN
- IMPLICIT NONE
- INTEGER :: I, Y, E, R
- WRITE(*,*)'請輸入里程:'
- READ(*,*) I
- E=I-1500
- R=E/500
- IF (I <= 1500) THEN
- WRITE(*,*) '車費:70'
- ELSE
- Y=E MOD 500 '求出剩餘里除以500的餘數
- IF(Y>0)THEN
- WRITE(*,*) '車費:',70+5*(R+1)
- ELSE
- WRITE(*,*) '車費:',70+5*R
- END IF
- END IF
- STOP
- END PROGRAM MAIN
複製代碼
(2)可以利用空格去塞入字串達成你希望產生的效果
- PROGRAM TEST
- WRITE(*,*)'PLEASE ENTER A NUMBER'
- READ(*,*)NUM
- DO I=1,NUM,1
- WRITE(*,*)REPEAT(' ',NUM-I),REPEAT('*',I)
- END DO
- END PROGRAM TEST
複製代碼 ... |