- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Tiny Basicのプログラムで。。）
うるう年判定プログラムを作成する方法
このQ&Aのポイント
- Tiny Basicのプログラムで、西暦年数を入力し、うるう年かどうかの判定を行うプログラムを作成する方法についてまとめました。
- うるう年の条件は、400で割り切れる年数または4で割り切れ、かつ100で割り切れない年数です。
- プログラムの作成手順として、まず年数を入力し、次に条件分岐を行い、割り切れるかどうかを判定します。割り切れる場合には「うるう年」と表示し、割り切れない場合には何も表示しません。
- famituu
- お礼率31% (58/182)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
★Tiny Basic は詳しくありませんが、プログラミング経験者としてアドバイス ・割り切れないとは、あまりが出るということです。 つまり、Mod 演算子で割ったあまりを求めて 0 以外ならば割り切れなかった事になります。 (年 Mod 4) として出てきた数が 0 以外ならば、4 で割り切れなかったということです。 (年 Mod 400) として出てきた数が 0 以外ならば、400 で割り切れなかったということです。 よって、閏年の判定は If (年 Mod 4) = 0 Then If (年 Mod 100) = 0 Then If (年 Mod 400) = 0 Then MsgBox "うるう年" Else MsgBox "うるう年ではない" End If Else MsgBox "うるう年" End If Else MsgBox "うるう年じゃない" End If となります。 ・あと While 文で入力した A が 0 以外なら繰り返すようにしないと駄目です。 cls input A While A <> 0 ここに閏年の判定と表示を記述 input A Wend ・上記のを参考に頑張ってみて下さい。 ・以上。下の『参考URL』もどうぞ。
