プチコンまとめWiki (初代/mkII)

投稿プログラム : 不快指数計算機

パンくずリスト

2012年08月05日投稿 / 投稿者 : 中1プログラマー? / タグ : 投稿プログラム 不快指数 初代対応 QRコード

不快指数とは?

不快指数とは、暑いか寒いかそれにより、
不快かどうか調べるものです。
多分、節電に役立つでしょう。
(不快指数が少ないからエアコンの温度を上げよう、など。)
今日は部活がないので作りました。

このプログラムについての投票

このプログラムは・・・

選択肢 投票
役に立った 3  
あまり役に立たない 0  

使い方

温度、湿度を入力。

(Please input temperature and humidity.)

スクリーンショット・動画

すいません、ありません。

QR コード

プチコンmkII 向けの QR コードです。

日本版です。

PRG:HUKAI
1/1
qr0.png

一応。英語版です。↓English

PRG:EHUKAI
1/1
qre0.png

日本語の一画面版です。

PRG:HTNHKI
1/1
qrhatena0.png

プログラムリスト

日本版です。

  1. ACLS:BGMSTOP:CLEAR
  2. ?”フカイシスウ ソクテイ
  3. ?”
  4. INPUT ”キオンハ”;T
  5. ?”
  6. INPUT ”シツト゛ハ”;H
  7. ?”
  8. K=0.81*T+0.01*H
  9. KB=K+(0.99*T−14.3)+46.3
  10. KB=FLOOR(KB)
  11. P$=”%”
  12. ?”フカイシスウ ”;KB;P$
  13. ’−−−
  14. ?”
  15. IF KB>=50 THEN A=A+1
  16. IF KB>=55 THEN A=A+1
  17. IF KB>=65 THEN A=A+1
  18. IF KB>=70 THEN A=A+1
  19. IF KB>=75 THEN A=A+1
  20. IF KB>=80 THEN A=A+1
  21. IF KB>=85 THEN A=A+1
  22. ’−−−
  23. IF A==1 THEN ?”サムイ”
  24. IF A==0 THEN ?”ハタ゛サ゛ムイ”
  25. IF A==2 THEN ?”ナニモ カンシ゛ナイ”
  26. IF A==3 THEN ?”ココロヨイ”
  27. IF A==4 THEN ?”アツクナイ”
  28. IF A==5 THEN ?”ヤヤアツイ”
  29. IF A==6 THEN ?”アツクテ アセカ゛テ゛ル”
  30. IF A==7 THEN ?”アツクテ タマラナイ”
  31. @A
  32. ?”
  33. ?”Аホ゛タンヲ オシテ シュウリョウ
  34. WAIT 10
  35. @B
  36. IF BUTTON()==16 THEN END
  37. GOTO @B

きっちり求めたい方は、10行目を書かなければきっちり出ます。
(ほとんどの人は、「当たり前」と思ってると思いますが一応。)

一画面プログラムリスト

hatenaさんが作ってくれました。有難うございます!

  1. ’ フカイシスウケイサンキ  1カ゛メンフ゜ロク゛ラム 
  2. ACLS:BGMSTOP:CLEAR:DIM M$(8)
  3. M$(0)=”サムイ”:M$(1)=”ハタ゛サ゛ムイ” 
  4. M$(2)=”ナニモ カンシ゛ナイ”          
  5. M$(3)=”ココロヨイ”:M$(4)=”アツクナイ” 
  6. M$(5)=”ヤヤアツイ”       ’───────
  7. M$(6)=”アツクテ アセカ゛テ゛ル”’ケ゛ンサクシャ
  8. M$(7)=”アツクテ タマラナイ”  ’       
  9. ?”フカイシスウ ソクテイ”:?:   ’チュウ1フ゜ロ
  10. INPUT ”キオンハ” ;T:?:  ’ク゛ラマ−? 
  11. INPUT ”シツト゛ハ”;H:?:  ’     サン
  12. K=0.81*T+0.01*H     ’───────
  13. KB=K+(0.99*T−14.3)+46.3     
  14. KB=FLOOR(KB):E=85   ’───────
  15. ?”フカイシスウ:”;KB;”%”:?:’カイソ゛ウシャ
  16. IF KB>=50 THEN A=A+1’       
  17. IF KB>=55 THEN A=A+1’hatena 
  18. FOR I=65 TO E STEP 5’       
  19.  IF KB>=I THEN A=A+1’       
  20. NEXT:? M$(A):?:     ’───────
  21. ?”Аホ゛タンヲ オシテ シュウリョウ”:WAIT 10
  22. @NB                         
  23. IF BUTTON()!=16 GOTO@NB     
  24. ’[EOF] LAST EDIT:2012/08/09

不快指数計算機についてのコメント

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : 外国人が来ることは無いだろう ここは日本人向けのサイトで、英語の書き込みもできないからNE (2012/08/05 (日) 14:40:02)
  • 名無しさん : アクセスが禁止されているわけではなくコメントへの書き込みができないだけなので、QRコードの読み込みはできる (2012/08/05 (日) 15:26:59)
  • 名無しさん : 外国人にも見られてるよ? Google翻訳で見てる。 (2012/08/05 (日) 15:30:04)
  • 中1 : そうなんですか!英語版作って良かった〜! (2012/08/05 (日) 15:32:43)
  • プチコンまとめWiki管理人 : 実は海外版プチコンの発売直後、ここのアクセス数が2倍になってます。さすがに時間が経って減っていますが、それでも発売前よりは確実に増えてます。もちろんこれらは海外からのアクセスです。 (2012/08/06 (月) 00:57:15)
  • 名無しさん : ほんとにどうでもいいことのですが「不快指数計」というより「不快指数計算機」だと思います (2012/08/06 (月) 01:43:00)
  • 中1 : 有難う御座います。直しました。 (2012/08/06 (月) 12:53:41)
  • .EXE(不調&不振) : なかなかいいですね! (2012/08/06 (月) 21:58:24)
  • 中1 : 有難う御座います。 (2012/08/07 (火) 23:06:58)
  • hatena : 37行だ。>>作者さん プログラムリストをこのページに書いてもよいですか? (2012/08/07 (火) 20:04:22)
  • 中1 : ご自由にどうぞ。 (2012/08/07 (火) 21:25:11)
  • hatena : さぁてと、プログラムリストは2012/08/08にでも書こかな。 (2012/08/07 (火) 23:14:51)
  • hatena : プログラムリストを書きました。 (2012/08/08 (水) 10:06:21)
  • RND128 : #ref()ではなく&ref()ですよ。ついでに直しておきました。 (2012/08/08 (水) 10:20:16)
  • .EXE(故障) : キチガイにナッちゃったYO! (2012/08/08 (水) 10:28:23)
  • 中1 : プログラムリスト、有難う御座います! (2012/08/08 (水) 12:31:23)
  • hatena : 中1さんへ 不快指数計算機の1画面版作ったのでここに公開してもよいですか? (2012/08/09 (木) 00:12:19)
  • 中1 : 勿論、大丈夫です!一画面の所を作っておきます。 (2012/08/09 (木) 08:50:18)
  • 中1 : 一画面プログラムリストの所を作りました。「//」を消せばすぐプログラムリストが書けるようにしました。こんな事しか出来ませんが、宜しくお願いします。(2012/08/09 (木) 08:54:21)
  • 中1 : 今気づきましたが、QRコード整理してくれた人がいるようです!有難うございます! (2012/08/09 (木) 08:58:25)
  • hatena : ↑RND128さんと俺です。断りもなく整理してすみませんでした。 (2012/08/09 (木) 10:57:55)
  • 中1 : 全く問題ありません!むしろ、やって頂き有難う御座いました。 (2012/08/09 (木) 11:50:39)
  • hatena : 1画面版の投稿完了。_〆(・_・。)^ (2012/08/09 (木) 20:02:49)
  • 中1 : 有難うございます! (2012/08/09 (木) 21:16:01)
  • 中1 : あと、QRコードも有難う御座います! (2012/08/09 (木) 21:24:08)
  • マリオ : 初代対応なの?MKII専用なの?タグ (2012/08/10 (金) 07:04:58)
  • 中1 : すみません。直します。 (2012/08/10 (金) 07:07:03)
  • 名無しさん : プチコン買うんで そのままお願いします!!! (2012/08/11 (土) 23:18:52)
  • 中1 : あ、初代もmk−2どちらでも出来ますよ。 (2012/08/11 (土) 23:42:12)
  • 名無しさん : good (2012/08/29 (水) 10:33:11)
  • ガネーシャ : 会社育成ゲーェェムっ! (2012/09/11 (火) 21:43:04)
  • 名無しさん : やめなよ。いいかげんに (2013/01/21 (月) 19:44:12)
  • 名無しさん : EXEさんは何時も狂っているから仕方ないかと。 (2013/01/22 (火) 01:00:40)
  • EXE : すみません... (2013/01/22 (火) 15:53:19)
  • いったん : 英語のところ直しておきました。 (2013/01/22 (火) 16:17:55)
  • 中1の初心者 : すごいですね。 PS.僕も中1ですが、プチコン初めてから何年ですか? (2013/07/12 (金) 18:57:03)
  • .EXE : 最近、作者の姿を見ないな。 (2013/07/12 (金) 19:09:21)
  • 3D梨 : 3号に移植してもいいですか? (2014/11/21 (金) 18:06:22)
  • 中1 : いいですよ (2014/11/21 (金) 18:18:02)

バグなどありましたら書き込んで下さい。

  • hatena : 31行目がなくても普通に動きますよ。@A←これいらんでしょ。 (2012/08/07 (火) 20:14:49)
  • 中1 : プログラマーとしてまだまだですね。有難うございます。 (2012/08/07 (火) 21:26:14)
  • 中1 : hatenaさんへ バグではないのですが、「中1プログラマー?」が「中1プログラマー」なので、細かいですが勝手ながら直させて頂きました。(一画面プログラムです。) (2012/08/09 (木) 21:20:40)
  • hatena : 「?」は名前の一部だったんですね。すみませんでした。QRコードも変えましたか? (2012/08/09 (木) 22:18:13)
  • マリオ : −1℃とかでも、ハダザムイって出てきます。サムイでしょう (2012/08/10 (金) 07:03:03)
  • 中1 : そうですね。修正します。 (2012/08/10 (金) 07:06:27)
  • 中1 : ↑↑↑すいません。コメントするのが遅れました。QRコードは変えていません。でも、変えなくて大丈夫だと思います。 (2012/08/11 (土) 23:48:22)
  • 中1 : 23行の1と、24行の0は入れ替えた方が良いですかね・・・?(わかる方がいたら教えて下さい。) (2012/08/11 (土) 23:51:39)
  • 名無しさん : 23と24の行を入れ替えたほうが見栄えはいいですね。肌寒いはちょっと寒いって感じなので0のままでいいと思います。 (2012/08/12 (日) 00:25:42)
  • 中1 : 有難う御座います。 (2012/08/12 (日) 11:42:55)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.042 秒 | このページの最終更新 : 2016/02/20 (土) 18:53:23 (1338d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30