至急！！ アルゴリズムの問題で左の写真の答えだけ教えてください！6問ありますが分かる問題だけでもいいのでお願いします:;(∩´﹏`∩)
至急！！ アルゴリズムの問題で左の写真の答えだけ教えてください！6問ありますが分かる問題だけでもいいのでお願いします:;(∩´﹏`∩) ※2の問題はIf〜ElseIf〜Else〜End If 文を使い ます。 ※6の問題はFor〜Next文を使います。
補足
ある交通機関の料金は、6歳未満は幼児料金で無料、6歳以上12歳未満は小人料金で大人料金の半額、12歳以上は大人料金（200円）である。この料金を表示するプログラムを作成してみよう。 Sub start() Dim otona as integer, nenrei as integer otona = 200 nenrei = Inputbox("年齢は？") If (nenrei < 6)Then MsgBox("0円") Elseif (nenrei<12)Then MsgBox(otona/2 & "円") Else MsgBox(otona & "円") End If End Sub ↑この問題だとこんな感じで解いてるので、こんな感じでお願いします。
Visual Basic | ネットワーク技術・83閲覧・500
ベストアンサー
# 1 a, b, c = 3, 4, 5 s = (a + b + c) / 2 S = (s * (s - a) * (s - b) * (s - c))**0.5 print(S) # 2 h, w = map(int, input().split()) if h * w < 100: print('小') elif h * w < 200: print('中') else: print('大') # 3 a, b, c = map(int, input().split()) print(max(a, b, c)) # 4 slist = ['春', '夏', '秋', '冬'] mdict = {1: 3, 2: 3, 3: 0, 4: 0, 5: 0, 6: 1, 7: 1, 8: 1, 9: 2, 10: 2, 11: 2, 12: 3} m = int(input()) print(f'{m}月 : {slist[mdict[m]]}') # 5 nlist = [i for i in range(1, 11)] 奇数 = sum([i for i in nlist if i % 2 == 1]) 偶数 = sum([i for i in nlist if i % 2 == 0]) print(奇数) print(偶数) # 6 print(' *') print(' ***') print('*****') print() print(' *') print(' ***') print('*****') print('***') print('*') print() print(' *') print(' ***') print('*****') print('*****') print(' ***') print(' *')
回答ありがとうございます。 補足で載せた感じの解き方でお願いできますか？ 今日中に分かったら嬉しいです。 夕方授業が終わったら返事します。 ありがとうございます！
質問者からのお礼コメント
ご丁寧にありがとうございました♪
お礼日時：6/24 3:32
