「よそうちサーガ」っていうゲームが絶賛製作中らしいね で、ポケモンカードゲームのような対戦プログラムを試しに作ってみる前に、 1対1の対戦プログ Read more

久しぶりのプログラミング関連記事_(：3 」∠ )_ あることがきっかけでjavaを勉強することになり、 いつも通りにvim使った*1んだけど、 ウェブ Read more

適当に作ってみたというか、そもそも僕が作るプログラムの殆どはテキトーなんだけどね（ twitterのステータスIDから、ミリ秒までの時刻を求め Read more

少しの間、ツイ禁ならぬプログラミング禁してたんだけど、暇なときにプログラミングで暇つぶしすることができなくて本当に暇になってアレなこともあっ Read more

フォロワー数は基本的にはあまり気にしないんだけど、 実を言うと、 僕がしばらくフォローしてる人が僕をブロックしたのを知った時に（・。・；）ってな Read more

タイトルのとおり。 昨日、サードPCでsublimetextを本格的に使い始めようかと思って起動して、 perlをBuildで実行できるようにす Read more

プチコン - 言葉は力なり プチコン(作りかけのソースコード) - 言葉は力なり プチコン(ランダム移動) - 言葉は力なり これら３つの記事の続きというか、 Read more

前に書いた記事に追記するのもあれなんで、 とりあえず新しくブログ記事書くことにした。 2つ(LinuxとWindows)のバイナリ実行可能形式に Read more

- 追記(2014年1月2日) ここにダウンロードURLを貼り付ける予定だったけど、 新しくブログ記事書いて、そこにダウンロードURL貼り付けた C Read more

部屋にストーブ置いたんだけど、
部屋にあるコンセントの中でストーブを置いた位置からプラグが届くとこは６つの差込口があるマルチタップ１つと、それにささってる3つの差込口があるマルチタップ２つなんだけど、
そのうちの親になってる6つの差込口があるマルチタップには６つ全て埋まってて、それの子になってるマルチタップ２つにはさせるけど「(どれにしろ親があれだから)定格容量を超えちゃって発火でもしたら嫌だなぁ」と思って、
「それぞれの消費電力の合計値からどれ抜くかとか決めようかな」と思ったんだけど、
どうWとかAとかVで計算すればいいか分かんないし、
分かったとしても、計算が面倒くさいから、
少し計算方法をググって、プチコンでプログラム書いた。
んでそのプログラムを使った後、ヒーターのプラグだけ抜くことにした。

「なんとなく計算方法を理解し…・・・た…・・・？」という感じなんで、
もし間違ってたりしたら教えてください、はい。

CLEAR:CLS:ACLS
PRINT "ﾀﾞｲｽｳ";DS
FOR I=1 TO DS
INPUT "W:0 A:1 V:2";WAV
IF WAV == 0 THEN INPUT "ﾜｯﾄ(W)";W   :RES=RES+W
IF WAV == 1 THEN INPUT "ｱﾝﾍﾟｱ(A)";A:RES=RES+(A*100)
IF WAV == 2 THEN INPUT "ﾎﾞﾙﾄ(V)";V  :INPUT "AMPERE";A:RES=RES+(A*V)
NEXT
PRINT RES;"W ";RES/100;"A"

ついでにperlで書いたのも載っけとく

use warnings;
$RES=0;
print "台数:";chomp($DS=<>);
for(1..$DS){
print "[W:0 A:1 V:2] :";chomp($WAV=<>);
if($WAV == 0){print "ワット(W) :"  ;chomp($W=<>);$RES=$RES+$W}
if($WAV == 1){print "アンペア(A) :";chomp($A=<>);$RES=$RES+($A*100)}
if($WAV == 2){print "ボルト(V) :"  ;chomp($V=<>);print "アンペア(A) :";chomp($A=<>);$RES=$RES+($A*$V)}
}
print $RES,"W ",$RES/100,"A\n";