BASICの宿題はお前にまかせた

[1 BASIC 2006/01/09(月) 15:35:00]

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する

[2 デフォルトの名無しさん 2006/01/09(月) 15:50:40]

10 PRINT "斉藤"
20 PRINT "鈴木"
30 PRINT "ゴンザレス"
40 END

[3 デフォルトの名無しさん 2006/01/10(火) 00:19:06]

>>1
そんなことは無理

[4 デフォルトの名無しさん 2006/01/10(火) 18:26:48]

☀

[5 BASIC 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--

[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--

[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--

[10 BASIC 2006/01/15(日) 20:31:18]

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい

年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する

[11 デフォルトの名無しさん 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 （以下略）

[12 デフォルトの名無しさん 2006/01/15(日) 23:06:54]

お願いします。

N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と
平均値を求めるプログラムをBASICで作成しなさい。

データはこんな感じで並んでいます。
2 4 6 8 9 3 1 7 5

[13 デフォルトの名無しさん 2006/01/15(日) 23:33:29]

エクセルがあるんならエクセルで計算しろよ

[14 デフォルトの名無しさん 2006/01/15(日) 23:35:08]

>>13
宿題だからそうはいかないんです。

[15 デフォルトの名無しさん 2006/01/16(月) 01:20:16]

>>14
じゃぁ、自分でやれ。

[16 デフォルトの名無しさん 2006/01/16(月) 03:32:56]

ぬるぽ

[17 デフォルトの名無しさん 2006/01/16(月) 03:58:06]

　　　　 >>16さんｶﾞｯなの！
　　　　＼＿＿＿　 ＿＿＿/　ミ'' ''ヽ
　　　　　　　　　　Ｖ　　　　　　　 ミ　　 ',　　- - ―― 　 　　　　　　
　―　┼―ヽl　　　,､ l/ ミ;ヽ　　　ミ 　 ',　　　―　　 ＼　　　　/　　
　　　　　　〃")' ~´ﾍﾍ)"ヽ ミ; , l＼　:: 　',　　＼　,-､,-､/
- - ―　　!(　ソﾉ八)ヽ） ｿ　　'' :,ヽ＼::　lヽ￣―-('∀`；）―　
　- - ―――ヾl._ﾟヮﾉ!.　　　.-[／二──―　-_C　Ｏ）>>6
　　　　(二====O===O三二=［!=!●二二二二==-○　　￣三二＝−―
- - ―――　./ｿ､j､iヾ. ﾍゝ. -[＼二──￣　　,―ﾉ￣ﾉ 　-
　- - ―――~(_/ '-'~　 　　,,; ,''/／::　 .lﾉ ―┼（　　　）―　-　　
　　　　　　　　　　　　　　　彡　'l／　::　 ,'　　　―　 / /.:^⌒^ ﾟ ＼丶
- - ―――　┼―　　 彡:;, ﾉ　　 彡　 ,'　　-
　　　　　　　　　　　　　　　　　　 彡 　 ,'　- - ――
　　――　　　　　　　　　　　　　彡,, ,,ﾉ

[18 BASIC 2006/01/17(火) 12:12:13]

キーボードより入力したデータの中で最大値と最小値を求める
プログラムを作成しなさい。０を入力した場合に終了

[19 デフォルトの名無しさん 2006/01/17(火) 16:36:20]

10 INPUT "C:>",KEY$
20 IF KEY$="0" THEN END
30 NEW

[20 BASIC 2006/01/18(水) 15:54:39]

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
最も体重の軽い人の名前を表示する

[21 デフォルトの名無しさん 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

[22 デフォルトの名無しさん 2006/01/19(木) 00:27:12]

10 REM >>21
20 PRINT "WAROTA"
22 GOTO 23

[23 BASIC 2006/01/19(木) 17:00:01]

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する

[24 デフォルトの名無しさん 2006/01/19(木) 17:08:43]

>>23
それってすごく失礼だと思う。

[25 BASIC 2006/01/19(木) 17:08:48]

N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい

[26 デフォルトの名無しさん 2006/01/19(木) 17:50:58]

10 INPUT "氏名を入力して下さい"; NA$
20 PRINT "個人情報保護の観点からお答えできません。ご了承下さい。"
30 END

[27 デフォルトの名無しさん 2006/01/19(木) 17:58:42]

10 INPUT "氏名を入力して下さい"; NA$
20 PRINT "データに無い人の住所とか表示できません。"
30 PRINT "データにある人の住所だったらデータをそのまま読んだ方が早いです。"
40 END

[28 BASIC 2006/01/20(金) 17:15:33]

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する

[29 デフォルトの名無しさん 2006/01/20(金) 17:17:49]

>>28
先生、作ったら、名前を表示された人が自殺しました。

[30 デフォルトの名無しさん 2006/01/20(金) 23:51:31]

デスノート型のPCで表示したお前が悪い。

[31 デフォルトの名無しさん 2006/01/22(日) 17:22:19]

奇数ｎ*nの魔方陣をｎを入力するだけで作るプログラムを誰か作って。

[32 デフォルトの名無しさん 2006/01/22(日) 19:05:50]

>>31
奇数×奇数の魔方陣の作り方

1. 上段の中央を1にする
2. 右上に次の数字を置いていく（最上段の上は最下段になる。）
3. 右上が埋まっていたら一つ下に次の数字を置く
4. 再び右上へと数字を埋めていく
5. 後は3,4の繰り返しで完成

[33 デフォルトの名無しさん 2006/01/22(日) 19:41:20]

それはわかるけどそれをどうやるかわからん。
二次元配列？

[34 デフォルトの名無しさん 2006/01/22(日) 20:34:11]

>>33
10 DIM A(99,99):INPUT "n";N:IF N MOD 2 = 0 THEN PRINT "（　´,_ゝ｀）ﾌﾟｯ":END
20 X=N\2+1:Y=1:FOR I=1TO N*N:A(Y,X)=I:X=(X+(I MOD N=0)) MOD N+1:Y=Y+(I MOD N<>0)*2+1-((Y-(I MOD N=0)*2-1)=0)*N:NEXT
30 FOR I=1TO N:FOR J=1TO N:PRINT A(I,J);:NEXT:PRINT:NEXT:END

[35 デフォルトの名無しさん 2006/01/22(日) 21:12:39]

それでやってみたけど>>32のやりかたじゃなくね？
できることは出来るけど>>34の原理がわかんね

[36 デフォルトの名無しさん 2006/01/22(日) 21:20:22]

できたよ！まじさんくす

[37 デフォルトの名無しさん 2006/01/23(月) 01:42:52]

すばらすぃスレを発見！！
よかったら私のもお願いできませんでしょうか・・・(´Д｀;)

課題9
ttp://www.imgup.org/iup151444.gif

課題11
ttp://www.imgup.org/iup151447.gif
ttp://www.imgup.org/iup151450.gif

課題12
ttp://www.imgup.org/iup151453.gif

課題13
ttp://www.imgup.org/iup151455.gif

課題14
ttp://www.imgup.org/iup151456.gif
ttp://www.imgup.org/iup151457.gif

どうか、よろしくお願い致します(´･ω･`)