Fortran作業的問題

因為不知道該怎辦
所以想請各位大大幫我解答一下
我發現C程式有這兩題
但如果用Fortran寫就卡卡的

作業是這樣的：
（１）

輸入里程，並計算出車費。假設里程在 1500 公尺以下皆為 70 元，
每超過 500 公尺加 5 元，不足 500 公尺以 500 公尺計算。
輸入值：0 ~ 5000 公尺之間任意值
輸出值：價格

我寫是這樣
...

瀏覽完整內容，請先 註冊 或 登入會員

真的很謝謝你:)
我終於學會了！！！！！

Unlife

十幾年沒用過ForTran了，手上連編譯器都沒有，所以只能就我的想法幫你改，有語法錯誤的話，你要自己修一下哦。

(1)利用求餘數的方法，去計算是否超過500公尺..

1. PROGRAM MAIN
   
2. IMPLICIT NONE
   
3. INTEGER :: I, Y, E, R
   
4. WRITE(*,*)'請輸入里程：'
   
5. READ(*,*) I
   
6. E=I-1500
   
7. R=E/500
   
8. IF (I <= 1500) THEN
   
9. WRITE(*,*) '車費：70'
   
10. ELSE
    
11.     Y=E MOD 500 '求出剩餘里除以500的餘數
    
12.     IF(Y>0)THEN
    
13.         WRITE(*,*) '車費：',70+5*(R+1)
    
14.     ELSE
    
15.         WRITE(*,*) '車費：',70+5*R
    
16.     END IF
    
17. END IF
    
18. STOP
    
19. END PROGRAM MAIN

複製代碼

(2)可以利用空格去塞入字串達成你希望產生的效果

1. PROGRAM TEST
   
2. WRITE(*,*)'PLEASE ENTER A NUMBER'
   
3. READ(*,*)NUM
   
4. DO I=1,NUM,1
   
5. WRITE(*,*)REPEAT(' ',NUM-I),REPEAT('*',I)
   
6. END DO
   
7. END PROGRAM TEST

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員