誕生日から十二星座,十三星座,誕生石を調べる
作品プログラム
- 動作環境
- プロデル1.7.1023, スミレ1.7.1016
- 投稿者
- ゆうと
- 更新日
- 2020-09-20 13:37:28
- ダウンロード数
- 353
作品のプログラム
入力日は、「誕生日」を聞く もし入力日が「」なら終了する //入力日は、「1999/11/27」 誕生日は、入力日を日時形式化したもの 「誕生日:[誕生日の日付]」を報告する 「十二星座:[誕生日の十二星座]」を報告する 「十三星座:[誕生日の十三星座]」を報告する 「誕生石: [誕生日の月の誕生石]」を報告する 【誕生日】の、十二星座を求める手順 対象年は、誕生日の年 もし対象年で誕生日が「1/20」から「2/18」までの範囲内なら 「みずがめ座」を返す 他でもし対象年で誕生日が「2/19」から「3/20」までの範囲内なら 「うお座」を返す 他でもし対象年で誕生日が「3/21」から「4/19」までの範囲内なら 「おひつじ座」を返す 他でもし対象年で誕生日が「4/20」から「5/20」までの範囲内なら 「おうし座」を返す 他でもし対象年で誕生日が「5/21」から「6/21」までの範囲内なら 「ふたご座」を返す 他でもし対象年で誕生日が「6/22」から「7/22」までの範囲内なら 「かに座」を返す 他でもし対象年で誕生日が「7/23」から「8/22」までの範囲内なら 「しし座」を返す 他でもし対象年で誕生日が「8/23」から「9/22」までの範囲内なら 「おとめ座」を返す 他でもし対象年で誕生日が「9/23」から「10/23」までの範囲内なら 「てんびん座」を返す 他でもし対象年で誕生日が「10/24」から「11/22」までの範囲内なら 「さそり座」を返す 他でもし対象年で誕生日が「11/23」から「12/21」までの範囲内なら 「いて座」を返す 他なら 「やぎ座」を返す もし終わり 終わり 【誕生日】の、十三星座を求める手順 対象年は、誕生日の年 もし対象年で誕生日が「1/19」から「2/15」までの範囲内なら 「新やぎ座」を返す 他でもし対象年で誕生日が「2/16」から「3/11」までの範囲内なら 「新みずがめ座」を返す 他でもし対象年で誕生日が「3/12」から「4/18」までの範囲内なら 「新うお座」を返す 他でもし対象年で誕生日が「4/19」から「5/13」までの範囲内なら 「新おひつじ座」を返す 他でもし対象年で誕生日が「5/14」から「6/20」までの範囲内なら 「新おうし座」を返す 他でもし対象年で誕生日が「6/21」から「7/19」までの範囲内なら 「新ふたご座」を返す 他でもし対象年で誕生日が「7/20」から「8/19」までの範囲内なら 「新かに座」を返す 他でもし対象年で誕生日が「8/20」から「9/15」までの範囲内なら 「新しし座」を返す 他でもし対象年で誕生日が「9/16」から「10/30」までの範囲内なら 「新おとめ座」を返す 他でもし対象年で誕生日が「10/31」から「11/22」までの範囲内なら 「新てんびん座」を返す 他でもし対象年で誕生日が「11/23」から「11/29」までの範囲内なら 「新さそり座」を返す 他でもし対象年で誕生日が「11/30」から「12/17」までの範囲内なら 「へびつかい座」を返す 他なら 「新いて座」を返す もし終わり 終わり 【対象年】で【対象日】が【開始日】から【終了日】まで範囲内を求める手順 もし対象日が(「[対象年]/[開始日]」を日時形式化したもの)以上かつ対象日が(「[対象年]/[終了日]」を日時形式化したもの)以下なら ○を返す そうでなければ ×を返す もし終わり 終わり 【月番号】の、誕生石を求める手順 【誕生石一覧】は、｛「ガーネット」,「アメジスト」,「アクアマリン」,「ダイヤモンド」,「エメラルド」,「ムーンストーン」,「ルビー」,「ぺリドット」,「サファイア」,「トルマリン」,「トパーズ」,「ラピスラズリ」｝ 誕生石一覧(月番号)を返す 終わり