2012年08月05日投稿 / 投稿者 : 中1プログラマー? / タグ : 投稿プログラム 不快指数 初代対応 QRコード
不快指数とは、暑いか寒いかそれにより、
不快かどうか調べるものです。
多分、節電に役立つでしょう。
(不快指数が少ないからエアコンの温度を上げよう、など。)
今日は部活がないので作りました。
このプログラムは・・・
温度、湿度を入力。
(Please input temperature and humidity.)
すいません、ありません。
プチコンmkII 向けの QR コードです。
日本版です。
一応。英語版です。↓English
日本語の一画面版です。
日本版です。
- ACLS:BGMSTOP:CLEAR
- ?”フカイシスウ ソクテイ
- ?”
- INPUT ”キオンハ”;T
- ?”
- INPUT ”シツト゛ハ”;H
- ?”
- K=0.81*T+0.01*H
- KB=K+(0.99*T−14.3)+46.3
- KB=FLOOR(KB)
- P$=”%”
- ?”フカイシスウ ”;KB;P$
- ’−−−
- ?”
- IF KB>=50 THEN A=A+1
- IF KB>=55 THEN A=A+1
- IF KB>=65 THEN A=A+1
- IF KB>=70 THEN A=A+1
- IF KB>=75 THEN A=A+1
- IF KB>=80 THEN A=A+1
- IF KB>=85 THEN A=A+1
- ’−−−
- IF A==1 THEN ?”サムイ”
- IF A==0 THEN ?”ハタ゛サ゛ムイ”
- IF A==2 THEN ?”ナニモ カンシ゛ナイ”
- IF A==3 THEN ?”ココロヨイ”
- IF A==4 THEN ?”アツクナイ”
- IF A==5 THEN ?”ヤヤアツイ”
- IF A==6 THEN ?”アツクテ アセカ゛テ゛ル”
- IF A==7 THEN ?”アツクテ タマラナイ”
- @A
- ?”
- ?”Аホ゛タンヲ オシテ シュウリョウ
- WAIT 10
- @B
- IF BUTTON()==16 THEN END
- GOTO @B
きっちり求めたい方は、10行目を書かなければきっちり出ます。
(ほとんどの人は、「当たり前」と思ってると思いますが一応。)
hatenaさんが作ってくれました。有難うございます!
- ’ フカイシスウケイサンキ 1カ゛メンフ゜ロク゛ラム
- ACLS:BGMSTOP:CLEAR:DIM M$(8)
- M$(0)=”サムイ”:M$(1)=”ハタ゛サ゛ムイ”
- M$(2)=”ナニモ カンシ゛ナイ”
- M$(3)=”ココロヨイ”:M$(4)=”アツクナイ”
- M$(5)=”ヤヤアツイ” ’───────
- M$(6)=”アツクテ アセカ゛テ゛ル”’ケ゛ンサクシャ
- M$(7)=”アツクテ タマラナイ” ’
- ?”フカイシスウ ソクテイ”:?: ’チュウ1フ゜ロ
- INPUT ”キオンハ” ;T:?: ’ク゛ラマ−?
- INPUT ”シツト゛ハ”;H:?: ’ サン
- K=0.81*T+0.01*H ’───────
- KB=K+(0.99*T−14.3)+46.3
- KB=FLOOR(KB):E=85 ’───────
- ?”フカイシスウ:”;KB;”%”:?:’カイソ゛ウシャ
- IF KB>=50 THEN A=A+1’
- IF KB>=55 THEN A=A+1’hatena
- FOR I=65 TO E STEP 5’
- IF KB>=I THEN A=A+1’
- NEXT:? M$(A):?: ’───────
- ?”Аホ゛タンヲ オシテ シュウリョウ”:WAIT 10
- @NB
- IF BUTTON()!=16 GOTO@NB
- ’[EOF] LAST EDIT:2012/08/09
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.135 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:12 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30