N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
身長が160CM以上で170cm未満の人の名前を表示する
BASICの宿題はお前にまかせた
■ このスレッドは過去ログ倉庫に格納されています
2006/01/09(月) 15:35:00
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
■ このスレッドは過去ログ倉庫に格納されています
