fksnlix的部落格

標題:

FORTARN宣告矩陣

發問:

請使用FORTARN宣告一個大小10000的一維矩陣 其範圍由0到9999 一.請用do指令宣告一數列: f(0)=1 f(1)=3 f(2)=5 f(3)=7 f(4)=9 ..... ..... ..... f(9999)=19999 將此數列輸出於train.out 二.請讓使用者能由鍵盤輸入一個介於0~9999 (輸入超過此範圍則顯示錯誤，並引導使用者重新輸入) 的數值M 並將f(M)輸出於螢幕上 三.算出f(528)到f(1800)的平均值，並輸出於train2.out

最佳解答:

• 人力銀行找工作-
• dlink di-524 如何設密碼
• 我想請問中和天情的房子,這樣的價格能買 嗎-急急急
• 夢到男友死亡.是何預兆阿-也夢到棺材-
• Sweety櫻花草 中音直笛譜 完整版
• 年金付款---有關退休問題~感謝大家
• 廣告設計科縣立的學校
• 尋問478腳+ddr400+pcie16x +SATA主機版
• CSU系列的學校 哪間比較好 急急
• (急)狗仔咬人,被漁農署告...如何辦--(10點)

此文章來自奇摩知識+如有不便請留言告知

程式如下： program main implicit none integer*4 f(0:9999), i, m real*4 sum, count open (15, file='train.out') do i = 0, 9999 f(i) = i*2 + 1 write (15, *) 'f(', i, ') =', f(i) end do close(15) 3 write (*, "(/'Enter a number: ', $)") read (*, *) m if (m9999) then write (*, "('Error! Try again.')") go to 3 end if write (*, *) 'f(', m, ') =', f(m) sum = 0. count = 0. open (16, file='train2.out') do i = 528, 1800 sum = sum + float(f(i)) count = count + 1. end do write (16, *) 'Average =', sum/count close(16) end

其他解答:6524A8F25B63629D