N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
探検
BASICの宿題はお前にまかせた
■ このスレッドは過去ログ倉庫に格納されています
2006/01/09(月) 15:35:00
2006/01/09(月) 15:50:40
10 PRINT "斉藤"
20 PRINT "鈴木"
30 PRINT "ゴンザレス"
40 END
20 PRINT "鈴木"
30 PRINT "ゴンザレス"
40 END
2006/01/10(火) 00:19:06
2006/01/10(火) 18:26:48
☀
2006/01/15(日) 16:26:34
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
6デフォルトの名無しさん
2006/01/15(日) 16:41:53 10 READ $NAME
20 READ $WAIT
30 READ $HEIGHT
40 READ $OLD
60 IF ($HEIGHT>=160)*($HEIGHT<170) THEN PRINT $NAME;$CHR(13)
50 IF (READ<>"END")*($WAIT<>0)*($HEIGHT<>0)*($OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
20 READ $WAIT
30 READ $HEIGHT
40 READ $OLD
60 IF ($HEIGHT>=160)*($HEIGHT<170) THEN PRINT $NAME;$CHR(13)
50 IF (READ<>"END")*($WAIT<>0)*($HEIGHT<>0)*($OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
7デフォルトの名無しさん
2006/01/15(日) 16:44:31 $の位置が逆じゃね？
8デフォルトの名無しさん
2006/01/15(日) 16:55:11 デバッグしますた。(´･ω･`)ｼｮﾎﾞｰﾝ
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
60 IF (HEIGHT>=160)*(HEIGHT<170) THEN PRINT NAME$;CHR$(13)
50 IF (NAME$<>"END")*(WAIT<>0)*(HEIGHT<>0)*(OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
60 IF (HEIGHT>=160)*(HEIGHT<170) THEN PRINT NAME$;CHR$(13)
50 IF (NAME$<>"END")*(WAIT<>0)*(HEIGHT<>0)*(OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
9デフォルトの名無しさん
2006/01/15(日) 17:02:15 MZ-1200 SP-5030なら上で動くはずだけど、下の場合は動かない。
でも、Tiny Basic for Windowsだとエラーがでた。
下でないとエラーが出る。
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
50 IF (HEIGHT>=160) and (HEIGHT<170) THEN PRINT NAME$;CHR$(13)
60 IF (NAME$<>"END") and (WAIT<>0) and (HEIGHT<>0) and (OLD<>0) THEN 10
70 END
80 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA "END",0,0,0
180 REM --INFORMATION END--
でも、Tiny Basic for Windowsだとエラーがでた。
下でないとエラーが出る。
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
50 IF (HEIGHT>=160) and (HEIGHT<170) THEN PRINT NAME$;CHR$(13)
60 IF (NAME$<>"END") and (WAIT<>0) and (HEIGHT<>0) and (OLD<>0) THEN 10
70 END
80 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA "END",0,0,0
180 REM --INFORMATION END--
10BASIC
2006/01/15(日) 20:31:18 N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する
2006/01/15(日) 20:56:11
1 N=10
2 FOR I=1 TO N: READ NA$,W,H,A:IF A<=30 THEN WA=WA+W: HA=HA+H: M=M+1:NEXT
3 IF M<>0 THEN PRINT "30歳以下の平均体重、身長:"; WA/M, HA/M
4 DATA （以下略）
2 FOR I=1 TO N: READ NA$,W,H,A:IF A<=30 THEN WA=WA+W: HA=HA+H: M=M+1:NEXT
3 IF M<>0 THEN PRINT "30歳以下の平均体重、身長:"; WA/M, HA/M
4 DATA （以下略）
2006/01/15(日) 23:06:54
お願いします。
N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と
平均値を求めるプログラムをBASICで作成しなさい。
データはこんな感じで並んでいます。
2 4 6 8 9 3 1 7 5
N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と
平均値を求めるプログラムをBASICで作成しなさい。
データはこんな感じで並んでいます。
2 4 6 8 9 3 1 7 5
2006/01/15(日) 23:33:29
エクセルがあるんならエクセルで計算しろよ
2006/01/15(日) 23:35:08
>>13
宿題だからそうはいかないんです。
宿題だからそうはいかないんです。
2006/01/16(月) 01:20:16
>>14
じゃぁ、自分でやれ。
じゃぁ、自分でやれ。
2006/01/16(月) 03:32:56
ぬるぽ
2006/01/16(月) 03:58:06
>>16さんｶﾞｯなの！
＼＿＿＿ ＿＿＿/ ミ'' ''ヽ
Ｖ ミ ', - - ――
― ┼―ヽl ,､ l/ ミ;ヽ ミ ', ― ＼ /
〃")' ~´ﾍﾍ)"ヽ ミ; , l＼ :: ', ＼ ,-､,-､/
- - ― !( ソﾉ八)ヽ） ｿ '' :,ヽ＼:: lヽ￣―-('∀`；）―
- - ―――ヾl._ﾟヮﾉ!. .-[／二──― -_C Ｏ）>>6
(二====O===O三二=［!=!●二二二二==-○ ￣三二＝−―
- - ――― ./ｿ､j､iヾ. ﾍゝ. -[＼二──￣ ,―ﾉ￣ﾉ -
- - ―――~(_/ '-'~ ,,; ,''/／:: .lﾉ ―┼（ ）― -
彡 'l／ :: ,' ― / /.:^⌒^ ﾟ ＼丶
- - ――― ┼― 彡:;, ﾉ 彡 ,' -
彡 ,' - - ――
―― 彡,, ,,ﾉ
＼＿＿＿ ＿＿＿/ ミ'' ''ヽ
Ｖ ミ ', - - ――
― ┼―ヽl ,､ l/ ミ;ヽ ミ ', ― ＼ /
〃")' ~´ﾍﾍ)"ヽ ミ; , l＼ :: ', ＼ ,-､,-､/
- - ― !( ソﾉ八)ヽ） ｿ '' :,ヽ＼:: lヽ￣―-('∀`；）―
- - ―――ヾl._ﾟヮﾉ!. .-[／二──― -_C Ｏ）>>6
(二====O===O三二=［!=!●二二二二==-○ ￣三二＝−―
- - ――― ./ｿ､j､iヾ. ﾍゝ. -[＼二──￣ ,―ﾉ￣ﾉ -
- - ―――~(_/ '-'~ ,,; ,''/／:: .lﾉ ―┼（ ）― -
彡 'l／ :: ,' ― / /.:^⌒^ ﾟ ＼丶
- - ――― ┼― 彡:;, ﾉ 彡 ,' -
彡 ,' - - ――
―― 彡,, ,,ﾉ
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 地震 [Hitzeschleier★]
- 【地震】 茨城 栃木 埼玉 千葉 震度４ [KingFisherは魚じゃないよ★]
- 【STARTO ENTERTAINMENT】SUPER EIGHTの横山裕、フジ『ドッキリGP』ロケで全治2ヶ月の重傷 [Ailuropoda melanoleuca★]
- 【話題】好きな鍋は？！ 「寄せ鍋」「キムチ鍋」「水炊き」「もつ鍋」「豆乳鍋」「ちゃんこ鍋」「ごま坦々鍋」「トマト鍋」 [ひぃぃ★]
- 【食】「シャウエッセンは焼くべからず」暗黙のルールを破り売上高過去最高…日本ハム社員たちが「夜味」にかけた情熱 [ぐれ★]
- 「もうキモくてキモくて…」29歳女性が語る“おぢアタック”の実態。「俺ならイケるかも」年下女性を狙う勘違い中年男性に共通点が★6 [Hitzeschleier★]
- ( ´ん`)地震…？ [399583221]
- ジャップ、タイ🇹🇭で宿泊施設備え付けのスピーカーを盗み取る 元自衛官疑惑も [165981677]
- ほんこん さん「尖閣諸島も竹島も北方領土も、全て日本の領土だ！」 [201193242]
- 🖐( -᷄ὢ)俺には>>2の>>3を自由に扱える権利がある……
- 地震
- 地震地震うっせーーーんだよゴミ共wwwwwwwwwwwwwwwwwwwwwwwwwwwwww