FreeBASIC To

'' このプログラムは、無作為の温度を登録するために、予約語 TO を伴う束縛変項を使って、配列を作ります。
'' そして、温度の値にもとづいて、出力内容を決めます。
Randomize Timer

'' これから作成する温度の数の、最小と、最大を定義します。
Const minimum_temp_count As Integer = 1
Const maximum_temp_count As Integer = 10

'' バクテリアが急速に繁殖する、温度(度)ゾーンの範囲を、定義します。
Const min_low_danger As Integer = 40
Const max_low_danger As Integer = 69
Const min_medium_danger As Integer = 70
Const max_medium_danger As Integer = 99
Const min_high_danger As Integer = 100
Const max_high_danger As Integer = 130

'' 温度カウントの最小/最大の数の範囲で、温度を登録する配列を定義します。
Dim As Integer array ( minimum_temp_count To maximum_temp_count )

'' 温度カウントの最小から最大まで繰り返す for loop を宣言します。
Dim As Integer it
For it = minimum_temp_count To maximum_temp_count

   array( it ) = Int( Rnd( 1 ) * 200 ) + 1

   '' 温度にしたがって、温度(度)ゾーンの範囲を使って、危険度を判定して、メッセージを表示します。
   Select Case array ( it )
      Case min_low_danger To max_low_danger
         Color 11
         Print "試行" ; it ; " は、危険が低いゾーンです。" ; array( it ) ; " 度!"
      Case min_medium_danger To max_medium_danger
         Color 14
         Print "試行" ; it ; " は、中位の危険ゾーンです。" ; array( it ) ; " 度!"
      Case min_high_danger To max_high_danger
         Color 12
         Print "試行" ; it ; " は、危険が高いゾーンです。" ; array( it ) ; " 度!"
      Case Else
         Color 3
         Print "試行" ; it ; " は、安全です。" ; array( it ) ; " 度"
   End Select

Next it

Sleep