#1
by tarutarin » 4年前
はじめまして。学校で13日の曜日の出現割合を求めるフローチャートを書きなさいという課題が出ました。
始めて数日で何もわからない状態で出されたので困っています。日本語でいいので教えていただけると幸いです。
課題はタイニーベーシックでプログラムを入力する、というものも別であったのでこちらは終わらせました。
01 '13日の曜日を数える
02
03 TDay=13 :'日にちの指定(1~28)
04 Dim DayNum(7)
05 For i=2001 to 2004
06 For j=1 to 12
07 DateStr$=Str$(i)+"/"+Str$(j)+"/"+Str$(TDay)
08 DayNumber=DayOfWeek(DateStr$)
09 DayNum(DayNumber)=DayNum(DayNumber)+1
10 Next j
11 Next i
12 Print TDay;"日の曜日の出現割合(%)"
13 Print" 日 月 火 水 木 金 土"
14 For i=1 to 7
15 Print using "##.##";DayNum(i)/48;
16 Print" ";
17 Next i
18 Print
19 End
はじめまして。学校で13日の曜日の出現割合を求めるフローチャートを書きなさいという課題が出ました。
始めて数日で何もわからない状態で出されたので困っています。日本語でいいので教えていただけると幸いです。
課題はタイニーベーシックでプログラムを入力する、というものも別であったのでこちらは終わらせました。
01 '13日の曜日を数える
02
03 TDay=13 :'日にちの指定(1~28)
04 Dim DayNum(7)
05 For i=2001 to 2004
06 For j=1 to 12
07 DateStr$=Str$(i)+"/"+Str$(j)+"/"+Str$(TDay)
08 DayNumber=DayOfWeek(DateStr$)
09 DayNum(DayNumber)=DayNum(DayNumber)+1
10 Next j
11 Next i
12 Print TDay;"日の曜日の出現割合(%)"
13 Print" 日 月 火 水 木 金 土"
14 For i=1 to 7
15 Print using "##.##";DayNum(i)/48;
16 Print" ";
17 Next i
18 Print
19 End