83 誕生日から十二星座,十三星座,誕生石を調べる

作品プログラム
動作環境
プロデル1.7.1023, スミレ1.7.1016
投稿者
ゆうと
更新日
2020-09-20 13:37:28
ダウンロード数
40

作品のプログラム

入力日は、「誕生日」を聞く
もし入力日が「」なら終了する
//入力日は、「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」までの範囲内なら
    「へびつかい座」を返す
  他なら
    「新いて座」を返す
  もし終わり
終わり

【対象年】で【対象日】が【開始日】から【終了日】まで範囲内を求める手順
  もし対象日が(「[対象年]/[開始日]」を日時形式化したもの)以上かつ対象日が(「[対象年]/[終了日]」を日時形式化したもの)以下なら
    ○を返す
  そうでなければ
    ×を返す
  もし終わり
終わり

【月番号】の、誕生石を求める手順
  【誕生石一覧】は、{「ガーネット」,「アメジスト」,「アクアマリン」,「ダイヤモンド」,「エメラルド」,「ムーンストーン」,「ルビー」,「ぺリドット」,「サファイア」,「トルマリン」,「トパーズ」,「ラピスラズリ」}
  誕生石一覧(月番号)を返す
終わり
	

▲ページの先頭へ