N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
身長が160CM以上で170cm未満の人の名前を表示する
探検
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人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
身長が160CM以上で170cm未満の人の名前を表示する
ある。これを用いて次のプログラムをBASICで作成しなさい
身長が160CM以上で170cm未満の人の名前を表示する
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人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
年齢が30歳以下の人の、体重と身長の平均値を計算し表示する
ある。これを用いて次のプログラムをBASICで作成しなさい
年齢が30歳以下の人の、体重と身長の平均値を計算し表示する
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さんガッなの!
\___ ___/ ミ'' ''ヽ
V ミ ', - - ――
― ┼―ヽl ,、 l/ ミ;ヽ ミ ', ― \ /
〃")' ~´ヘヘ)"ヽ ミ; , l\ :: ', \ ,-、,-、/
- - ― !( ソノ八)ヽ) ソ '' :,ヽ\:: lヽ ̄―-('∀`;)―
- - ―――ヾl._゚ヮノ!. .-[/二──― -_C O)>>6
(二====O===O三二=[!=!●二二二二==-○  ̄三二=−―
- - ――― ./ソ、j、iヾ. ヘゝ. -[\二── ̄ ,―ノ ̄ノ -
- - ―――~(_/ '-'~ ,,; ,''//:: .lノ ―┼( )― -
彡 'l/ :: ,' ― / /.:^⌒^ ゚ \丶
- - ――― ┼― 彡:;, ノ 彡 ,' -
彡 ,' - - ――
―― 彡,, ,,ノ
\___ ___/ ミ'' ''ヽ
V ミ ', - - ――
― ┼―ヽl ,、 l/ ミ;ヽ ミ ', ― \ /
〃")' ~´ヘヘ)"ヽ ミ; , l\ :: ', \ ,-、,-、/
- - ― !( ソノ八)ヽ) ソ '' :,ヽ\:: lヽ ̄―-('∀`;)―
- - ―――ヾl._゚ヮノ!. .-[/二──― -_C O)>>6
(二====O===O三二=[!=!●二二二二==-○  ̄三二=−―
- - ――― ./ソ、j、iヾ. ヘゝ. -[\二── ̄ ,―ノ ̄ノ -
- - ―――~(_/ '-'~ ,,; ,''//:: .lノ ―┼( )― -
彡 'l/ :: ,' ― / /.:^⌒^ ゚ \丶
- - ――― ┼― 彡:;, ノ 彡 ,' -
彡 ,' - - ――
―― 彡,, ,,ノ
18BASIC
2006/01/17(火) 12:12:13 キーボードより入力したデータの中で最大値と最小値を求める
プログラムを作成しなさい。0を入力した場合に終了
プログラムを作成しなさい。0を入力した場合に終了
2006/01/17(火) 16:36:20
10 INPUT "C:>",KEY$
20 IF KEY$="0" THEN END
30 NEW
20 IF KEY$="0" THEN END
30 NEW
20BASIC
2006/01/18(水) 15:54:39 N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
最も体重の軽い人の名前を表示する
ある。これを用いて次のプログラムをBASICで作成しなさい
最も体重の軽い人の名前を表示する
2006/01/18(水) 21:33:16
110 N=5:DIM NA$(N)
120 FOR I = 1 TO N
130 READ NA$(I),W,H,A
140 PRINT "No.";I,"体重";W
150 NEXT
160 INPUT "一番体重の軽い番号を入力して下さい:", X
170 IF X <= 0 OR N < X THEN 160
180 PRINT "一番体重の軽い人は "; NA$(X); " です."
190 END
200 DATA "SUZUKI",67,150,15
210 DATA "SATOU",80,180,24
220 DATA "ITO",74,170,18
230 DATA "TANAKA",90,190,20
240 DATA "YAMADA",45,168,16
120 FOR I = 1 TO N
130 READ NA$(I),W,H,A
140 PRINT "No.";I,"体重";W
150 NEXT
160 INPUT "一番体重の軽い番号を入力して下さい:", X
170 IF X <= 0 OR N < X THEN 160
180 PRINT "一番体重の軽い人は "; NA$(X); " です."
190 END
200 DATA "SUZUKI",67,150,15
210 DATA "SATOU",80,180,24
220 DATA "ITO",74,170,18
230 DATA "TANAKA",90,190,20
240 DATA "YAMADA",45,168,16
2006/01/19(木) 00:27:12
23BASIC
2006/01/19(木) 17:00:01 N人分のデータ(氏名、体重、身長、年齢)がDATA文で入力されているプログラムが
ある。これを用いて次のプログラムをBASICで作成しなさい
体重が60kg以上で、身長が150cm未満の人の名前を表示する
ある。これを用いて次のプログラムをBASICで作成しなさい
体重が60kg以上で、身長が150cm未満の人の名前を表示する
2006/01/19(木) 17:08:43
>>23
それってすごく失礼だと思う。
それってすごく失礼だと思う。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 鈴木農相「おこめ券はお米しか買えないわけではない。例えば卵、味噌、しょうゆ、こうした購入に利用可能」 ★2 [Hitzeschleier★]
- なぜリベラルは人気がないのか 斎藤幸平さんが指し示す未来への道筋:朝日新聞 ★3 [少考さん★]
- 【伊原剛志】62歳俳優、夫婦別姓に「選択出来るならしたい人はする したくない人はしない 何が問題?」 [少考さん★]
- 三谷幸喜氏 温泉嫌いの理由を熱弁「知らない人の股間を素通りしたお湯なんですよ」「おじさんの肛門を通り過ぎたお湯が自分の前に」 [Ailuropoda melanoleuca★]
- 【日本人の旅行離れ】国内旅行すら行けなくなった……オーバーツーリズムだけじゃない 旅行者減少の異常事態 ★2 [ぐれ★]
- ベトナムのバイク「脱ガソリン」、シェア8割のホンダに打撃…政府が電動二輪普及を主導 [煮卵★]
- これが日本人かどうかで見解が割れる [445522505]
- 【急募】ガチで萎える女の趣味wwwwwwwwwwwwwWWWwwwwwwww [442080748]
- 【高市物価悲報】ケンタッキーのパーティーセット(5000円)ワロタwwwwww [153490809]
- 【高市悲報】小泉の進さん「日米電話会談を行いました😤(パシャリ)」あからさまなパフォーマンスだと話題に [359965264]
- あ、出ちゃう、イクッ😫💦🏡
- 外食屋の注文方法と支払い方法統一しろ!
