推薦這個部落格: 81
試寫一程式，輸入一家的人口數、總收入、即可抵稅額。利用累進稅率計算此家需繳的稅額為多少?
總收入減掉，「基本扣除額」後，再減掉「必要開支」與「可抵稅額」(如醫院要開職等)後剩下的部份為「應扣除稅部份」。
基本扣除額一家中每人為60,000.0；必要開支為總收入的25%但不得超過100,000.0元。
可抵稅額不得超過180,000.0元。
應扣稅部份 | 0-199,999 | 200,000~499,999 | 500,000~1,5000,000 | >1,500,000 |
稅額 | 5% | 10%-10,000.0 | 20%-60,000.0 | 30%-210,000 |
If(……)then
Elseif((……).and.(……))then
Elseif((……).and.(……))then
Elae(……)
Endif
註：撰寫程式時必須包含程式的完整性，如參數的定義(real或integer)輸入、輸出等。
觀看全文...
假設一電力公司的收費標準如下：
家聽用電
基本電費200元。(此指最底一定要收此費用)
100度一下，每度收3元。
200度一下，每度收4元(此指100～200度間的收費)
200度以上，每度收5元(此指超出200度後的手費)
是寫一程式，輸入佳廳用電的度數，由此計算出須繳的費用多少。
Fi(…) then
Elseif(…) then
Elseif(…) then
Endif
結構程式撰寫此方程式。
註：撰寫程式時必須包含程式的完整性，如參數的定義(real或integer)輸入、輸出等。
觀看全文...
註：撰寫程式時必須包含程式的完整性，如參數的定義(real或integer)輸入，輸出等。
２有如下的程式試說明每最後輸出的A、B、C、D的結果
program test1
real a1,a2,a3,b1,b2,b3,b4,c,d,e,a,b
open(12,file='aa.dat',Status="old")
read(12,*)a1,a2,a3
read(12,*)b1,b2
read(12,*)b3,b4
rewind(12)
read(12,*)c
backspace(12)
read(12,*)d,e
a=a1*a2**(3./2.)
b=d+2./3.*e
write(*,*)a,b,c,d
end
aa.dat
5.0 2.0 7.0
6.0 5.0 2.0
2.0 5.0 2.0 8.0
2.0 2.0 0.01 1.03
5.0 2.0 1.5 3.2
2.0 2.0
觀看全文...
