N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
身長が160CM以上で170cm未満の人の名前を表示する
BASICの宿題はお前にまかせた
■ このスレッドは過去ログ倉庫に格納されています
2006/01/09(月) 15:35:00
541デフォルトの名無しさん
2011/12/30(金) 08:48:36.78 ライオンハートだろ
542デフォルトの名無しさん
2012/01/17(火) 00:41:58.11 10 INPUT "D";FE
20 INPUT "ε";E
30 INPUT "ΔT";DT
40 T1=1273.15'(K)
45 T2=293.15'(K)
50 T=0
60 WHILE T1>T2
70 T1=T1-((2*5.67*10^-8*E*DT)/(419*7270*FE)*T1^4)+((2*5.67*80^-8*E*DT)/(419*7270*FE)*T2^4)
80 T=T+DT
110 WEND
ってなかんじで出てきたをT1次々と出力したいんだがさっぱりわかんないです。
DIMを使うんだとは思うんですが、ぜんぜんわかんない・・・・
詳しい人いたら教えてください。
20 INPUT "ε";E
30 INPUT "ΔT";DT
40 T1=1273.15'(K)
45 T2=293.15'(K)
50 T=0
60 WHILE T1>T2
70 T1=T1-((2*5.67*10^-8*E*DT)/(419*7270*FE)*T1^4)+((2*5.67*80^-8*E*DT)/(419*7270*FE)*T2^4)
80 T=T+DT
110 WEND
ってなかんじで出てきたをT1次々と出力したいんだがさっぱりわかんないです。
DIMを使うんだとは思うんですが、ぜんぜんわかんない・・・・
詳しい人いたら教えてください。
543デフォルトの名無しさん
2012/01/17(火) 20:12:13.01 65行目辺りに
「print "t1=";t1」
みたいに追加すればいいだけじゃない?
「print "t1=";t1」
みたいに追加すればいいだけじゃない?
544デフォルトの名無しさん
2012/01/18(水) 14:53:35.29 Hu−BASIC
ttp://togetter.com/li/243347
ttp://togetter.com/li/243347
545デフォルトの名無しさん
2012/02/20(月) 16:06:23.88 覆面算(かけ算)のアルゴリズム教えてください。
546デフォルトの名無しさん
2012/02/20(月) 20:19:35.85 総当りでいいんじゃない?
547デフォルトの名無しさん
2012/02/20(月) 22:18:33.34 計算数がはんぱねぇっす
548デフォルトの名無しさん
2012/02/25(土) 02:15:19.17 会話型言語じゃないBASICは、basicと表記するべき。
549デフォルトの名無しさん
2012/02/25(土) 20:17:40.38 n88互換basicで連番のbmpファイルを読み込み、put@で連続表示させる動画プレイヤーもどきを作っているのですが、dim a(20, 50)のように配列を確保した時、a(1, 49)まではアクセスできるのですが、a(2, 0)の所で定義されてないエラーがでます。
118 bload "C:/ch/s_0098.bmp", a(1, 48)
119 bload "C:/ch/s_0099.bmp", a(1, 49)
120 bload "C:/ch/s_0100.bmp", a(2, 0)
121 bload "C:/ch/s_0101.bmp", a(2, 1)
122 bload "C:/ch/s_0102.bmp", a(2, 2)
ソースコードはこのような感じです。
エラーが出ないようにするにはどうすればよいでしょうか?
118 bload "C:/ch/s_0098.bmp", a(1, 48)
119 bload "C:/ch/s_0099.bmp", a(1, 49)
120 bload "C:/ch/s_0100.bmp", a(2, 0)
121 bload "C:/ch/s_0101.bmp", a(2, 1)
122 bload "C:/ch/s_0102.bmp", a(2, 2)
ソースコードはこのような感じです。
エラーが出ないようにするにはどうすればよいでしょうか?
550デフォルトの名無しさん
2012/02/26(日) 12:38:21.33 OPTION BASE とか?
551デフォルトの名無しさん
2012/07/21(土) 20:59:44.94 初心者で申し訳ありません。
basicを使って簡単なプログラミングをしなくてはいけなくなり
簡単なクリックまたは特定のキーで動くスロットをつくりたいのですが、ほとんどわかりません。
どなたかサンプルなどを載せて頂けないでしょうか。お願いします。
basicを使って簡単なプログラミングをしなくてはいけなくなり
簡単なクリックまたは特定のキーで動くスロットをつくりたいのですが、ほとんどわかりません。
どなたかサンプルなどを載せて頂けないでしょうか。お願いします。
552デフォルトの名無しさん
2012/08/16(木) 22:42:40.42 どのBASIC環境なんだよ
553デフォルトの名無しさん
2013/01/23(水) 19:04:04.95554デフォルトの名無しさん
2013/11/19(火) 18:10:05.66 保守
555デフォルトの名無しさん
2013/11/19(火) 20:30:18.56 GOTO 1
556デフォルトの名無しさん
2013/11/19(火) 21:59:17.27 How many files(0-15)?
557デフォルトの名無しさん
2013/11/21(木) 21:16:47.84 10 rem スロットマシン:サンプル
50 a1=0 : a2=0 : a3=0
80 cls : print "スロットマシーン 1-key を押してください"
100 rem
150 locate 10,10 : print a1
160 if inkey$="1" then goto 200
170 a1=a1+1 : if a1=10 then a1=0
190 goto 100
200 rem
250 locate 20,10 : print a2
260 if inkey$="1" then goto 300
270 a2=a2+1 : if a2=10 then a2=0
290 goto 200
300 rem
350 locate 30,10 : print a3
360 if inkey$="1" then goto 400
370 a3=a3+1 : if a3=10 then a3=0
390 goto 300
400 rem
420 if a1=a2 then if a1=a3 then print "全部一致" : goto 490
430 print "不一致",a1;a2;a3
490 end
50 a1=0 : a2=0 : a3=0
80 cls : print "スロットマシーン 1-key を押してください"
100 rem
150 locate 10,10 : print a1
160 if inkey$="1" then goto 200
170 a1=a1+1 : if a1=10 then a1=0
190 goto 100
200 rem
250 locate 20,10 : print a2
260 if inkey$="1" then goto 300
270 a2=a2+1 : if a2=10 then a2=0
290 goto 200
300 rem
350 locate 30,10 : print a3
360 if inkey$="1" then goto 400
370 a3=a3+1 : if a3=10 then a3=0
390 goto 300
400 rem
420 if a1=a2 then if a1=a3 then print "全部一致" : goto 490
430 print "不一致",a1;a2;a3
490 end
558デフォルトの名無しさん
2014/08/30(土) 11:17:32.90ID:VPRxFQ97 プログラムの知識がHuBASICどまりの俺には
変数の型の宣言がなんだか高い壁に感じられる
変数の型の宣言がなんだか高い壁に感じられる
559デフォルトの名無しさん
2014/09/28(日) 11:18:00.95ID:2vXJK/xe HuBASICだって数値変数と文字変数の違いくらいならあったんじゃない?
560デフォルトの名無しさん
2015/03/31(火) 08:35:17.13ID:Xlc+IG5P Sharp ガラパゴスストアにてMZ-80用BASIC解説書が復刻
BASIC言語の勉強にオススメです!
http://galapagosstore.com/resource/browser/v2/index.html#
cid=229183&pid=sh&title=MZ%2d80%20SERIES%20BASIC%E8%A
7%A3%E8%AA%AC%E3%80%90%E9%AB%98%E8%A7%A3%E5%83%8F%
E5%BA%A6%E7%89%88%E3%80%91&url=http%3A%2F%2Fgalapagosst
ore.com%2Fweb%2Fbook%2Fdetail%2Fsstb-B215-1215000-BASIC_MZ-80SERIES&sample=true
BASIC言語の勉強にオススメです!
http://galapagosstore.com/resource/browser/v2/index.html#
cid=229183&pid=sh&title=MZ%2d80%20SERIES%20BASIC%E8%A
7%A3%E8%AA%AC%E3%80%90%E9%AB%98%E8%A7%A3%E5%83%8F%
E5%BA%A6%E7%89%88%E3%80%91&url=http%3A%2F%2Fgalapagosst
ore.com%2Fweb%2Fbook%2Fdetail%2Fsstb-B215-1215000-BASIC_MZ-80SERIES&sample=true
561デフォルトの名無しさん
2015/07/30(木) 08:28:45.96ID:lmYoHGut rem
562デフォルトの名無しさん
2018/05/23(水) 22:56:22.22ID:Au5e7VGg 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
R4YKO
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
R4YKO
563デフォルトの名無しさん
2018/07/04(水) 23:12:15.33ID:gFgZc5FG 7KX
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【△】コンビニの鮭おにぎり、価格にネット衝撃「ついに…」 驚き続々「これはキツい…」「日本人を殺しに来てる」 [ぐれ★]
- 【伊東市長選】「きょうは行きたくない」 落選の田久保眞紀 前市長が”取材拒否” 約束の場所に姿を現さず 最後まで誠実さを欠く [ぐれ★]
- 中国軍機のレーダー照射1週間 駆け引き続く 中国、米のレッドライン模索 日本、米以外の同志国とも連携探る 米は対立から距離置く★3 [ぐれ★]
- 「婚活中の男女の8割以上が婚活疲れ」続ければ続けるほど蟻地獄にハマる必然とは? ★2 [ぐれ★]
- 【オーストラリア】シドニー近郊のボンダイビーチで銃撃 16人死亡、首相「ユダヤ教徒標的」 容疑者は50歳の父親と24歳の息子 [ぐれ★]
- 【福岡】みずほPayPayドーム刺傷事件 殺人未遂容疑で30歳男逮捕 [Ailuropoda melanoleuca★]
- 【悲報】竹田恒泰氏「世界で最も野蛮な軍国主義国家は中華人民共和国」中国政府の日本批判に対し切り返し [733893279]
- 【朗報】高市首相、日本国内のパンダを半世紀ぶりに0頭にすることに成功!👏 [271912485]
- 【悲報】テコンダー朴、高市vs石破決着 [974680522]
- 千晴の顔画像はダークウェブの掲示板にばら撒いた
- ネトウヨ「今の国会、高市総理や小泉さん、片山さん、萩生田さん、鈴木さんら可愛くてイケメンばかりで見てて幸せ💕」 [153490809]
- なんか急に肋骨痛むんだが
