Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

三角形???

0 views
Skip to first unread message

lexm

unread,
Jul 28, 2001, 10:41:17 AM7/28/01
to
是否可用 GWbasic語言
: > 能夠作到如下
: > 輸入三角形的底(B)和高(H) 可以計算並輸出其面積
: > 並將面積的小數部分自動四捨五入???

這樣的題目 後來我想了一想
1.假設算出來的Area是a
那麼a-fix(a) 可取得小數部分 <因為是/2,所以 我想a-fix(a) 的結果不是.0就是0.5>
2.另外 設b=10*(a-fix(a)) 這個數值 不是0就是5
3.再 使用if-then-else的方法
如果b等於5, 面積值就是 fix(a)+1
反之b等於0, 面積就是fix(a)

**所以是否寫成如下 不知寫法是否有誤 敬請指教 謝謝!!!
10 INPUT "BASE="; B
20 INPUT "HEIGHT="; H
30 a=B*H/2
40 b=10*(a-fix(a))
50 IF b=5 THEN ? fix(a)+1 ELSE ? fix(a)
60 PRINT "Area=";a

--
[1;36m※ Post by [37makey [36mfrom [33mh202.s52.s77.t188.dialup�... [m
--
[1;33m / [37mOrigin: [31m南 [36m師 [33m資 [32m教 [37m小站 [m
[1;33m─ ● ─ [45m140.113.216.75 [m
[1;33m / [36mgicie.twbbs.org [m

0 new messages