史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2005-10-11, 11:02 PM   #1
lineage175
註冊會員
 
lineage175 的頭像
榮譽勳章
UID - 2383
在線等級: 級別:21 | 在線時長:533小時 | 升級還需:39小時級別:21 | 在線時長:533小時 | 升級還需:39小時級別:21 | 在線時長:533小時 | 升級還需:39小時級別:21 | 在線時長:533小時 | 升級還需:39小時級別:21 | 在線時長:533小時 | 升級還需:39小時級別:21 | 在線時長:533小時 | 升級還需:39小時
註冊日期: 2002-12-06
VIP期限: 2009-04
住址: 天使與惡魔的國度
文章: 281
精華: 0
現金: 13 金幣
資產: 59906 金幣
預設 fortran1到100的質數

要怎樣用fortran寫1到100的質數
有人會嗎QQ?
教一下^^...感恩
lineage175 目前離線  
送花文章: 11, 收花文章: 5 篇, 收花: 27 次
回覆時引用此帖
舊 2005-10-12, 12:56 AM   #2 (permalink)
註冊會員
 
snoopy 的頭像
榮譽勳章
UID - 33737
在線等級: 級別:49 | 在線時長:2676小時 | 升級還需:24小時級別:49 | 在線時長:2676小時 | 升級還需:24小時級別:49 | 在線時長:2676小時 | 升級還需:24小時級別:49 | 在線時長:2676小時 | 升級還需:24小時
註冊日期: 2003-02-02
VIP期限: 2011-06
住址: 台南共和國
文章: 1831
精華: 0
現金: 12744 金幣
資產: 12834 金幣
預設

好老的程式語言
不過求質數演算法很簡單
去網路找cㄉ範例改一下就可以了
snoopy 目前離線  
送花文章: 623, 收花文章: 392 篇, 收花: 1288 次
回覆時引用此帖
舊 2005-10-12, 03:39 PM   #3 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:96 | 在線時長:9659小時 | 升級還需:138小時級別:96 | 在線時長:9659小時 | 升級還需:138小時級別:96 | 在線時長:9659小時 | 升級還需:138小時級別:96 | 在線時長:9659小時 | 升級還需:138小時級別:96 | 在線時長:9659小時 | 升級還需:138小時級別:96 | 在線時長:9659小時 | 升級還需:138小時
註冊日期: 2002-12-07
文章: 13246
精華: 0
現金: 26235 金幣
資產: 3024045 金幣
預設

http://www.cnpedia.com/Result/Eword....or%20(FORTRAN)
的確很古老 ^^ (幾乎只記得名字 其他什麼都不記得了)
教學 : http://140.136.191.181/html/frank/do...tran/index.htm


所謂質數(prime numbers)就是「除了自身和1 之外,找不到任何數可以整除該數」的整數。

好像可以用 mod 餘數涵式來解
不過個人的直覺是用兩個迴圈來運算
i=2 to 100
j=2 to i

再加一個判斷是否是質數的計數旗標 prime_number=1
整數變數 = i / j
浮點變數 = i / j
當 浮點變數 = 整數變數 時 prime_number=prime_number-1

結束 j 迴圈後隨即判斷 prime_number是否為0
是的話即列印

因為 整數變數 只能裝 整數 所以 會與 浮點變數 差在 小數點
舉例
整數變數 = i / j ; 5/2=2
浮點變數 = i / j ; 5/2=2.5

整數變數 = i / j ; 5/3=1
浮點變數 = i / j ; 5/3=1.6666

整數變數 = i / j ; 5/4=1
浮點變數 = i / j ; 5/4=1.25

整數變數 = i / j ; 5/5=1
浮點變數 = i / j ; 5/5=1
所以只有最後一次符合 prime_number 會等於 0
5 是質數


以上如有錯誤怪
mini 目前離線  
送花文章: 1999, 收花文章: 7956 篇, 收花: 26748 次
回覆時引用此帖
舊 2005-10-24, 12:33 AM   #4 (permalink)
榮譽會員
 
猜謎人 的頭像
榮譽勳章
UID - 14438
在線等級: 級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時級別:99 | 在線時長:10294小時 | 升級還需:106小時
註冊日期: 2002-12-19
住址: 虎爛宮解籤詩處
文章: 18702
現金: 10109 金幣
資產: 2886912 金幣
預設

fortran雖是很古老
可是我在驢子上見過現在仍有很多這種程式
工科還是有在教嗎
__________________
http://i171.photobucket.com/albums/u287/sad_jellyfish/net-pic/s_zpsf91b1q3t.jpghttp://i171.photobucket.com/albums/u287/sad_jellyfish/gif/banner.gifhttp://i171.photobucket.com/albums/u287/sad_jellyfish/gif/kkk_zps3punatke.gif
猜謎人 目前離線  
送花文章: 1110, 收花文章: 16299 篇, 收花: 83322 次
回覆時引用此帖
發文 回覆



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 11:03 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1