- 最後登錄
- 2022-12-10
- 在線時間
- 164 小時
- 註冊時間
- 2008-10-7
- 閱讀權限
- 20
- 精華
- 0
- UID
- 5096492
- 帖子
- 327
- 積分
- 774 點
- 潛水值
- 17486 米
| 若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com 十幾年沒用過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
複製代碼 ... |
|