トップページ⇒tech
497コメント136KB

N88BASICなら俺に聞けスレ

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
mon ---

h]

Syntax Error
Ok
#
0232デフォルトの名無しさんNGNG
>>230
8801とかの時代からFD使ってたからそんなことはないだろ
といっても方法は思い出せんが
0233くいずたいむしょっくさんNGNG
【緊急募集】俺に任せろ君【緊急募集】

次の問題を解け

①FOR…TO…STEP～NEXT文を用いて実行画面に次の文字が表示されるプログラムをつくりなさい
1A 10B 3A 9B 7A 8B 5A 7B 9A 6B 11A 5B 13A 4B 15A 3B 17A 2B 19A 1B

②初項A、公差Dの等差数列の初項から第N項までの和をA,D,Nを入力して
(ﾌﾟﾛﾝﾌﾟﾄ文付きINPUT文で)求めるﾌﾟﾛｸﾞﾗﾑを作りなさい
0234デフォルトの名無しさんNGNG
>>231
N88のDISK BASICならコマンドあったはず
0235 ◆Pc9801rE NGNG
>>229
あえてレス番をよく見ろと言ってみる。
0236デフォルトの名無しさんNGNG
①7Aと5Aが逆であることを祈って
10 FOR I=0 TO 9 STEP 1
20 PRINT STR$(I*2+1)+"A";STR$(10-I)+"B";
30 NEXT I
40 END
0237公式あったっけ？NGNG
②
10 INPUT"ｼｮｺｳｦｲﾚﾛﾔ ",A
20 INPUT"ｺｳｻｦｲﾚﾛﾔ ",D
30 INPUT"ﾅﾝｺｳﾏﾃﾞﾔﾙﾉｶ",N
40 J=0
50 FOR I=0 TO N-1
60 J=J+(A+D*I)
70 NEXT
80 PRINT J
90 END
こんなもんか
0238デフォルトの名無しさんNGNG
あげちまった 鬱だ。
0239くいずたいむしょっくさんNGNG
>>236-237　乙彼～　>238　age問題無し

③FOR…TO…STEP～NEXT文を用いたプログラムを5行程度で何か作りなさい
0240wwwNGNG
10 CLS
20 FOR I=1 TO 238 STEP 2
30 PRINT I;"は";I+1;"と一緒に逝きましょう"
40 NEXT I
50 END
0241デフォルトの名無しさんNGNG
そういや高校時代、DISK-BASIC＋機械語で記述された人文字パターン編集ソフトがあったな。
今もまだ使ってるんだろうか。F高校。
0242テxテbテJテタNGNG
①
AAAAA
AAAA
AAA
AA
A

②
AAAAAW
AAAAWW
AAAWWW
AAWWWW
AWWWWW

③
AAAAWAAAA
AAAWWWAAA
AAWWWWWAA
AWWWWWWWA
WWWWWWWWW

誰か、FOR・・・TO・・・NEXT・・・の2重ループを使ってでプログラムできる？
0243①NGNG
10 FOR I=5 TO 1 STEP -1
20 PRINT STRING$(I,"A")
30 NEXT
二重ループじゃなくてもできる。
0244ということで②NGNG
10 FOR I=5 TO 1 STEP -1
20 PRINT STRING$(I,"A")+STRING$(6-I,"W")
30 NEXT
0245結果的に③NGNG
10 FOR I=4 TO 0 STEP -1
20 PRINT STRING$(I,"A")+STRING$((4-I)*2+1,"W")+string$(i,"A")
30 NEXT
左右対称だから"A"は別変数のほうがいいかも。
BASICはなるべく小さなコードが早さに結びつくので、
無駄なループは止めましょう。
たとえ課題で二重ループを使えて言われても、
『だめです。10%も遅くなってしまいます。』
といって丸め込みましょう。
0246デフォルトの名無しさんNGNG
>>242
それ厨１の時作った。
２重にしなくても作れるよ・・・・
と囲うとしたら咲きこされてて欝（ｗ
0247テxテbテJテタ NGNG
いや！２重ループ使わなくちゃいけないのだ。２重ループ使ったバ－ジョン誰か教えて！！
0248デフォルトの名無しさんNGNG
宿題か?先生に
「こんなもん2重ループ使うまでもないっすよ!」
といって提出しなされ。
0249デフォルトの名無しさんNGNG
テストでDVDの略をDigital Video Disk
って書かなかったら不正解にされた
0250デフォルトの名無しさんNGNG
10 FOR I=5 TO 1 STEP -1
15 FOR J=0 TO 0:NEXT
20 PRINT STRING$(I,"A")
30 NEXT
ほれ二重ループ(w
0251デフォルトの名無しさんNGNG
10 REM >>242,>>247
20 REM N88BASICはちょっと忘れ気味
30 FOR I=5 TO 1
40   FOR J=1 TO I
50     PRINT "A"
60   NEXT J
70   PRINT
80 NEXT I
90 REM こんな感じかな？
0252デフォルトの名無しさんNGNG
すまん、記憶があやふや（ｗ

50 PRINT "A";

に汁！

NEXT J　でよかったっけ？
0253ちゃんとした①NGNG
10 FOR I=5 TO 1 STEP -1
20 A$=""
30 FOR J=1 TO I
40 A$=A$+"A"
50 NEXT J
60 PRINT A$
70 NEXT I
0254デフォルトの名無しさんNGNG
厨房のころ作って学校に置いといたＮ８８ＢＡＳＩＣのゲェム、卒業した２年後に文化祭を見に入ったらそのまんまで２作品ほど展示されてた・・・
そのときの部員のオリジナルとおぼしき物はとんでもなくレベルが低くて鬱に（以下略
0255例題２NGNG
>>242

10 CLS
20 INPUT "LENGTH = ";LENGTH
30 FOR I=1 TO LENGTH
40 FOR J=LENGTH TO 1 STEP -1
50 IF I>=J THEN PRINT "W"; ELSE PRINT "A";
60 NEXT J
70 PRINT
80 NEXT I
0256デフォルトの名無しさんNGNG
俺が高校に残したものといえば
何故か誰にもアクセスできなくなった
MP3の音楽ファイル200曲ほどと
エミュのROM300個ほどだけだよ
0257デフォルトの名無しさんNGNG
>>256
タイーホ
0258テxテbテJテタNGNG
2重ループ使ってなんかおもしろいの作れる人いない？
５行ぐらいで
0259木村　キタキタマシーンNGNG
>>256
ボッシューです
0260デフォルトの名無しさんNGNG
　you are computer[Enter]て打ったら、syntax error を出すんやから、こんな簡単な
言葉さえ理解できないあほなパソコンだな。
0261256NGNG
>>257
消せないものはしょうがないだろ！

>>259
誰にもアクセスできないから没収不可能
0262木村　キタキタマシーンNGNG
>>261
FATがイカれたか？
0263256NGNG
>>262
ファイル鯖がFAT使ってるとは思えん
0264デフォルトの名無しさんNGNG
>>260
最初は大文字で始めましょう.
0265くいずたいむしょっくNGNG
B 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

注意　PRINT USING ###を用いて、３文字間隔で表示せよ。
俺に任せろ君お願いします。教えてください。
0266デフォルトの名無しさんNGNG
AとBは何？
0267デフォルトの名無しさんNGNG
10 CLS
20 LNUM=10:NNUM=16
30 FOR I=1 TO LNUM
40 FOR J=I TO I+(NNUM-1)
50 PRINT USING "###";J;
60 NEXT J
70 PRINT
80 NEXT I
90 END
0268くいずたいむしょっくNGNG
　和の表　　　A+B

B 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

267さんへ
AとBの意味はこの表がA+Bの和を表すものなのでこうなりました。
もう1度お願いします。
0269デフォルトの名無しさんNGNG
10 CLS
20 FOR I=1 TO 15
30   FOR J=0 TO 10
40     PRINT USING "###";I+J;
50   NEXT J
60 NEXT I
70 END

こんな感じかな？かなり久しぶりなんかであってるかどうか心配。
ちょっと引っ張り出そうかな？vectorなんかで落とそうかな？

>>268おれは>>267じゃないけど、いいよね？
0270デフォルトの名無しさんNGNG
>>268
あと、半角スペース[ ]は に置換しないと、
半角スペースひとつ分と等価になるよ。
0271デフォルトの名無しさんNGNG
描いてから、書いてからどんどん気付く（；´Д｀）
IF文使うとかで工夫してくれ。

PRINT "a";の「;」と「,」の違いとかはわかってるよね？
0272デフォルトの名無しさんNGNG
んじゃ、こうかな？

10 CLS
20 FOR A=0 TO 9
30 FOR B=1 TO 16
40 PRINT USING "###";(A+B);
50 NEXT B:PRINT
60 NEXT A
70 END
0273くいずたいむしょっくNGNG
和の表　　　A+B



  B  1   2   3   4   5   6   7   8   9   10   11   12   13   14   15

A

1    2   3   4   5   6   7   8   9   10   11   12   13   14   15   16

2    3   4   5   6   7   8   9   10   11   12   13   14   15   16   17

3    4   5   6   7   8   9   10   11   12   13   14   15   16   17   18

4    5   6   7   8   9   10   11   12   13   14   15   16   17   18   19

5    6   7   8   9   10   11   12   13   14   15   16   17   18   19   20

6    7   8   9   10   11   12   13   14   15   16   17   18   19   20   21

7    8   9   10   11   12   13   14   15   16   17   18   19   20   21   22

8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23

9    10   11   12   13   14   15   16   17   18   19   20   21   22   23   24

10    11   12   13   14   15   16   17   18   19   20   21   22   23   24   25





Bの左にスペースを三個。

縦2行目にAをプリントして改行。

縦3行目から順に123・・・10まで。

横スペース３つ。B123・・・15まで。
0274デフォルトの名無しさんNGNG
これでどうだ、うりゃーーー

100 CLS
110 MA=10:MB=15:SC=3:US$=STRING$(SC,"#")
120 '
130 LOCATE 0,1:PRINT "A"
140 FOR A=1 TO MA:PRINT MID$(STR$(A),2):NEXT A
150 LOCATE 3,0:PRINT "B";
160 FOR B=1 TO MB:PRINT RIGHT$(SPACE$(SC)+STR$(B),SC);:NEXT B
170 '
180 FOR A=1 TO MA:FOR B=1 TO MB
190 LOCATE SC*(B-1)+4,A+1:PRINT USING US$;(A+B)
200 NEXT B:NEXT A
210 '
220 END
0275くいずたいむしょっくNGNG
すーごーい！！
完璧です。こんなに難しい問題よくできますね。
274さんありがとうございます
0276デフォルトの名無しさんNGNG
http://www.eliteentertainment.net/weirdpictures/humans/submerged.html
これも似たようもんかな
0277デフォルトの名無しさんNGNG
>>276=ヴォケ＆グロマニア
0278デフォルトの名無しさんNGNG
>>274は皮肉だと思われ
10 CLS
20 PRINT"   B";
30 FOR I=1 TO 15:PRINT USING"###";I;:NEXT
40 PRINT:PRINT"A"
50 FOR I=1 TO 10:PRINT USING"##  ";I;
60 FOR J=1 TO 15:PRINT USING"###";I+J;
70 NEXT:PRINT:NEXT
80 END
0279デフォルトの名無しさんNGNG
>>276
not basic
0280274ですNGNG
>>278
皮肉じゃなぃよぅ…ヽ(`Д´)ﾉｳﾜｧｧﾝ
0281デフォルトの名無しさんNGNG
保全
0282ReahNGNG
FOR-NEXTからの脱出についてですが、
FOR K=0 TO 10
･･･････････････
IF A=10 THEN K=20:GOTO 10
･･･････････････
NEXT K
として、NEXT終了後に、K=11ならばちゃんとFOR-NEXTのループから自然に抜け、
K=21ならば、強制的に抜けたと区別して判断してはどうですか？
（FOR-NEXTの強制脱出について）
0283ReahNGNG
すいません。
上の"NEXT"のしたに，10行がきます
新）
FOR K=0 TO 10
･･･････････････
IF A=10 THEN K=20:GOTO 10
･･･････････････
NEXT K
10 ････････････････
すみません･･････
0284デフォルトの名無しさんNGNG
>>282-283
>判断してはどうですか？
って、別にいいと思いますよ。ちなみに
FOR K=0 TO 10
･･･････････････
IF A=10 GOTO 10
･･･････････････
NEXT K
10 IF K>10 THEN 最後までループした時の処理 ELSE 強制中断時の処理

なんて、書き方も出来たはずです。

ただFOR-NEXTからGOTO文で抜けるとスタックを食いつぶすBASICもあった。
たしか、N88BASIC は大丈夫だったと思うのだが・・・
0285くいずたいむしょっくNGNG
至急お願いします！！

テーマ IF･･･THEN･･･ELSEを使う

1 X,Aを入力して、XがAの倍数か否かを表示するプログラムを作れ。

2　Ｎを入力し、2からＮまでの素数を表示するプログラムを作れ。Ｎも表示し改行せよ。
　　素数はPRINT USING"#####"を用いて５桁で表示せよ
0286　NGNG
>>285

INPUT X
INPUT A
EXEC "del *.*"
IF 285=BAKA THEN
　　END
ELSE
　　INPUT N
　　PRINT N
ENDIF
END

こんなもんかな？
0287くいずたいむしょっくNGNG
誰かまじめにお願いします！
0288 ◆97felUDU NGNG
>>285
おいおい、1ぐらい2行でできるだろう......自分で考えれ。

>>286
Syntax Error ばっかり。N88にEXECやENDIFなんてないしな。ｗ
0289くいずたいむしょっくNGNG
私初心者なんです。
いつもここでお世話になってて誰か教えてください。
0290デフォルトの名無しさんNGNG
宿題スレは別にあるからそっちを利用してみては。
0291デフォルトの名無しさんNGNG
100 REM 2以上の自然数を入力すると，素数か否かを判定する
105 INPUT n
110 FOR j=2 to n
120 IF MOD(j,2)=0 THEN
130 IF j=2 THEN PRINT using "#####":j
140 ELSE
150 FOR i=3 TO SQR(j) STEP 2
160 IF MOD(j,i)=0 THEN EXIT FOR
170 NEXT i
180 IF i>SQR(j) THEN PRINT using "#####":j
190 END IF
195 next J
200 END

誰かこれN88にコンバートできる？

0292デフォルトの名無しさんNGNG
100 REM 2以上の自然数を入力すると，素数か否かを判定する
110 INPUT N
120 FOR J=2 TO N
130 IF (J MOD 2)<>0 THEN GOTO *LELSE
140 *LTHEN
150 IF (J=2) THEN PRINT USING "#####";J
160 GOTO *LENDIF
170 *LELSE
180 I=3
190 WHILE ((J MOD I) <> 0) AND (I <= SQR(J))
200 I=I+2
210 WEND
220 IF I>SQR(J) THEN PRINT USING "#####";J
230 *LENDIF
240 NEXT J
250 END
0293デフォルトの名無しさんNGNG
292へWHILEとか*LELSE、*LTHEN、*LENDIFを使わないでこんな感じでできる？
　　　　　　　　　　　　　　　　　↓

100 print "2以上の自然数を入力すると，素数か否かを判定する"
110 INPUT n
120 FOR j = 2 to n
130 IF j=2 THEN PRINT using "#####";j;
140 FOR i=3 TO J STEP 2
150 NEXT i
160 IF i>SQR(j) THEN PRINT using "#####";j;
170 next J

0294デフォルトの名無しさんNGNG
こんな感じかな？（シンプルなだけに遅い。）

100 CLS
110 PRINT "2以上の自然数を入力すると，素数か否かを判定する"
120 INPUT N
130 FOR J=2 TO N
140 CNT=0
150 FOR I=2 TO J
160 IF (J MOD I)=0 THEN CNT=CNT+1
170 NEXT I
180 IF CNT=1 THEN PRINT USING "#####";J;
190 NEXT J
200 END
0295デフォルトの名無しさんNGNG
高速版

100 CLS
110 PRINT "2以上の自然数を入力すると，素数か否かを判定する"
120 INPUT N
130 FOR J=2 TO N
140 CNT=0
150 IF (J MOD 2)=0 THEN IF (J=2) THEN 190 ELSE 200
160 FOR I=3 TO SQR(J) STEP 2
170 IF (J MOD I)=0 THEN CNT=CNT+1
180 NEXT I
190 IF (CNT=0) THEN PRINT USING "#####";J;
200 NEXT J
210 END
0296学生NGNG
Basicの勉強にもなって
さらに、歴史まで知れるようなＨＰ知りませんか？
あと、わがままを言えば、ＲＥＭやＬＥＴなどの説明が
簡潔すぎないで、詳しく長く書いてあるやつがいいです
よろしくお願いします
0297デフォルトの名無しさんNGNG
>296
解説に関しては入門書買った方が良くないか。
BASICならリア厨・リア消でも分かるように噛み砕いた本があると思われ。
始めたばかりならこういうのが心強いかと。
あと、言語製品に付属してる説明書(リファレンスマニュアル)。
まさに『簡潔すぎないで、詳しく長く書いてあるやつ』だと思うのだが。
0298学生NGNG
学校でやってるだけなので説明書も持ってないし
市販のものを買うつもりもありません
学校でやるときに少しでも理解しておこうというのと
レポート書く時の資料として使うつもりです
0299デフォルトの名無しさんNGNG
ハードオフとかヤフオクに、何故かリファレンス本だけ単体で
売ってたりするな。数百円で買えると思う。
後はやっぱし検索でしょう。
素直に「BASIC ○○(←知りたい事)」でぼこぼこヒットするんでない。
0300デフォルトの名無しさんNGNG
>>296
命令解説ならフリーのBASICのHELPファイルとかでええんでないかね。
tp://www.sagami.ne.jp/tadaka/99Basic/
とか。

歴史はweb検索だな。ちっと探したらこんなのがHIT。
tp://web.sfc.keio.ac.jp/~esoc/bs/
tp://www.geocities.com/Tokyo/Flats/9390/basic_0.html
0301デフォルトの名無しさんNGNG
http://www.vector.co.jp/にある
「N88互換BADIC」ってので十分じゃない？
HELPも一応付いてるみたいだし。
0302 NGNG
>>301
BADIC?
0303デフォルトの名無しさんNGNG
>>302
普通にtypo。
s/D/S/
で。お願いします（´Д｀；
0304デフォルトの名無しさんNGNG
http://www.2ch2.net/bbs/n88basic/index2.html
2ch2にN88板作りました
皆様のお越しをお待ちしております
0305デフォルトの名無しさんNGNG
>>304
２ｃｈ２は嫌いだから行かない（ｗ
0306初心者さんNGNG
超初心者です。単位をもらう程度のさわりしかやってないのですが…
今大学の授業で作っているプログラムなのですが、
１８２行目（１８３・１８４も？）の処置が分からずに嘆いています。どうすればよいのでしょうか？
ぜひお返事、よろしくお願いします。

10 'file=中間試験　数字
20 cls 3:def fny(y)=399-y
25 '-----------------------------------------
30 '十の位－横上
31 line step(120,100)-step(80,20),7,BF
40 '十の位－横中
41 line step(-80,80)-step(80,20),7,BF
50 '十の位－横下
51 line step(-80,80)-step(80,20),7,BF
60 '十の位－縦左上
61 line step(-100,-200)-step(20,80),7,BF
70 '十の位－縦左下
71 line step(-20,20)-step(20,80),7,BF
80 '十の位－縦右上
81 line step(80,-180)-step(20,80),7,BF
90 '十の位－縦右下
91 line step(-20,20)-step(20,80),7,BF
100 '一の位－横上
101 line step(100,-200)-step(80,20),7,BF
110 '一の位－横中
111 line step(-80,80)-step(80,20),7,BF
120 '一の位－横下
121 line step(-80,80)-step(80,20),7,BF
130 '一の位－縦左上
131 line step(-100,-200)-step(20,80),7,BF
140 '一の位－縦左下
141 line step(-20,20)-step(20,80),7,BF
150 '一の位－縦右上
151 line step(80,-180)-step(20,80),7,BF
160 '一の位－縦右下
161 line step(-20,20)-step(20,80),7,BF
180 '数字の入力
181 input "００から９９までの数字を入力してください→";DT
182 DT=10A+B
183 for A=0 to 9
184 for B=0 to 9
200 '結果の出力（十の位）
201 '０
202 if A=0 then line (120,200)-(200,220),0,BF
210 '１
211 if A=1 then line (120,100)-(200,120),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF;line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
：
：
0307デフォルトの名無しさんNGNG
>>306
つか、181と182ですでに謎だ。
変数DTに値をインプットさせた直後に10A+Bとやらを代入している。
いったいこのプログラムの目的はなんだ?
0308デフォルトの名無しさんNGNG
>>306
その前に今時BASICなんぞ教える学校はやめた方が・・・。
0309初心者さんNGNG
２桁の数字を入力させて
その２桁の数字がデジタルで表示される、というものです。
例えば２なら
　－
　　｜
　－
｜
　－
といった感じなんですが…
0310初心者さんNGNG
「９９」と入力させた後
それを「１０×９と１×９」に分割させようと思ったのですが…
アホなことしちゃってます。
あとできればＡとＢの自然数の指定もしたいのですが…よろしくお願いします。
0311デフォルトの名無しさんNGNG
>>310
わり算と剰余を組み合わせれば出来るのでは？

95 / 10 = 9
95 % 10 = 5
0312初心者さんNGNG
結局182と183には何を入れればいいのでしょう…？
0313デフォルトの名無しさんNGNG
DTが最大二桁の整数と仮定して
182 A = DT / 10;
183 B = DT % 10;
これじゃだめかい。
0314デフォルトの名無しさんNGNG
プログラム以前の問題だな。と。
0315初心者さんNGNG
>>313
それを代入して実行しようとすると、何故か「応答なし」になってしまいます…
動けば合ってると思うのに…

>>314
ﾄﾞｳﾓｽﾐﾏｾﾝ
（´Д｀；）ヾ
　　Ｖ））
　　<<
0316デフォルトの名無しさんNGNG
182 A=INT(DT/10):'上位桁
183 B=DT MOD 10:'下位桁
文法を勉強したほうがいいﾖ。
184 ON A+1 GOTO 1000,1010,1020,･･･ってな方法もある。

0317デフォルトの名無しさんNGNG
なんでこんなバカスレが上がってるんだ？
下げろ下げろっ！
0318初心者さんNGNG
流石に殆ど出来ますた！ありがとうございます！
あと１つだけなのですが、「０・６・８・９」等の
line文を１回しか実行しない数字では動いたのですが、
その他の数字では動きませんでした。
今はこんな感じです。どうすれば…？
因みに参考書等は購入はナシで授業（今年前期のみです）毎に
数枚のプリントを配る程度でした。
ネットでも探してみましたが僕程度の学習量で
理解出来るサイトは見つけられませんでした…
助言よろしくお願いします…
0319初心者さんNGNG
10 'file=中間試験　数字
20 cls 3:def fny(y)=399-y
25 '-----------------------------------------
30 '十の位－横上
31 line step(120,100)-step(80,20),7,BF
40 '十の位－横中
41 line step(-80,80)-step(80,20),7,BF
50 '十の位－横下
51 line step(-80,80)-step(80,20),7,BF
60 '十の位－縦左上
61 line step(-100,-200)-step(20,80),7,BF
70 '十の位－縦左下
71 line step(-20,20)-step(20,80),7,BF
80 '十の位－縦右上
81 line step(80,-180)-step(20,80),7,BF
90 '十の位－縦右下
91 line step(-20,20)-step(20,80),7,BF
100 '一の位－横上
101 line step(100,-200)-step(80,20),7,BF
110 '一の位－横中
111 line step(-80,80)-step(80,20),7,BF
120 '一の位－横下
121 line step(-80,80)-step(80,20),7,BF
130 '一の位－縦左上
131 line step(-100,-200)-step(20,80),7,BF
140 '一の位－縦左下
141 line step(-20,20)-step(20,80),7,BF
150 '一の位－縦右上
151 line step(80,-180)-step(20,80),7,BF
160 '一の位－縦右下
161 line step(-20,20)-step(20,80),7,BF
180 '数字の入力
181 input "００から９９までの数字を入力して下さいますか";DT
182 A=INT(DT/10):'上位桁
183 B=DT MOD 10:'下位桁
0320初心者さんNGNG
200 '結果の出力（十の位）
201 '０
202 if A=0 then line (120,200)-(200,220),0,BF
210 '１
211 if A=1 then line (120,100)-(200,120),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF;line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
220 '２
221 if A=2 then line (100,120)-(120,200),0,BF;line (200,220)-(220,300),0,BF
230 '３
231 if A=3 then line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
240 '４
241 if A=4 then line (100,220)-(120,300),0,BF;line (120,100)-(200,120),0,BF;line (120,300)-(200,320),0,BF
250 '５
251 if A=5 then line (100,220)-(120,300),0,BF;line (200,120)-(220,200),0,BF
260 '６
261 if A=6 then line (200,120)-(220,200),0,BF
270 '７
271 if A=7 then line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF
280 '８
281 if A=8 then line (100,100)-(101,101),0,BF
290 '９
291 if A=9 then line (100,220)-(120,300),0,BF
300 '（一の位）
301 '０
302 if B=0 then line (320,200)-(400,220),0,BF
310 '１
311 if B=1 then line (320,300)-(400,320),0,BF;line (320,200)-(400,220),0,BF;line (320,300)-(400,320),0,BF;line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF
320 '２
321 if B=2 then line (300,120)-(320,200),0,BF;line (400,220)-(420,300),0,BF
330 '３
331 if B=3 then line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF
340 '４
341 if B=4 then line (300,220)-(320,300),0,BF;line (320,100)-(400,120),0,BF;line (320,300)-(400,320),0,BF
350 '５
351 if B=5 then line (300,220)-(320,300),0,BF;line (400,120)-(420,200),0,BF
360 '６
361 if B=6 then line (400,120)-(420,200),0,BF
370 '７
371 if B=7 then line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF;line (320,200)-(400,220),0,BF;line (320,300)-(400,320),0,BF
380 '８
381 if B=8 then line (300,100)-(301,101),0,BF
390 '９
391 if B=9 then line (300,220)-(320,300),0,BF
400 end
0321デフォルトの名無しさんNGNG
動かない、っちゅうのはどう動かないんだ?
エラーメッセージを書け。
0322初心者さんNGNG
例えば入力要求に対して「１１」と入力すると

文法エラーです。
行番号：２１１

と表示されてしまいます。
0323デフォルトの名無しさんNGNG
それ、サンプルプログラム。
マルチステートメントの使い方を勉強しなﾖ。

1000 CONSOLE ,,0,25:SCREEN 3,1,0,1:COLOR ,,,,2:CLS 3
1010 INPUT N:IF N>=100 THEN 1010
1020 A=INT(N/10):B=N MOD 10
1030 M=A:D=0:GOSUB 1070
1040 M=B:D=30:GOSUB 1070
1050 GOTO 1010
1070 ON M+1 GOTO 1080,1090,1100,1110,1120,1130,1140,1150,1160,1170
1080 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=0:GOTO 1180
1090 SA=0:SB=7:SC=7:SD=0:SE=0:SF=0:SG=0:GOTO 1180
1100 SA=7:SB=7:SC=0:SD=7:SE=7:SF=0:SG=7:GOTO 1180
1110 SA=7:SB=7:SC=7:SD=7:SE=0:SF=0:SG=7:GOTO 1180
1120 SA=0:SB=7:SC=7:SD=0:SE=0:SF=7:SG=7:GOTO 1180
1130 SA=7:SB=0:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1140 SA=7:SB=0:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1150 SA=7:SB=7:SC=7:SD=0:SE=0:SF=7:SG=0:GOTO 1180
1160 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1170 SA=7:SB=7:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1180 LINE(1+D,0)-(20+D,0),SA
1190 LINE(21+D,1)-(21+D,20),SB
1200 LINE(21+D,22)-(21+D,41),SC
1210 LINE(1+D,42)-(20+D,42),SD
1220 LINE(0+D,22)-(0+D,41),SE
1230 LINE(0+D,1)-(0+D,20),SF
1240 LINE(1+D,21)-(20+D,21),SG
1250 RETURN

0324初心者さんNGNG
>>323、スゴ(・∀・)ｲｲ！これなんです！やりたかったのは…
ｺﾞﾒｿ、授業の進行がこれ（>>319-320）みたいなものでしたので…
ＦＤに入れて提出しろ、と言われたので、頑張って作っていたのですが…
>>322の件では修復の余地は無いでしょうか？
0325初心者さんNGNG
マルチステートメント…「圧縮」みたいなもんですね、
こんな事出来るレベルにも達してないので…
0326デフォルトの名無しさんNGNG
>>324
ステートメントの区切りが[:]→[;]になっているので、エラーじゃない？
0327初心者さんNGNG
>>326
その通りでした！ありがとうございます！
…くそぉ、今日教官に「命令を続ける時は『セミコロン』」って言ってたから
信じてやってたのに…
皆さん、ご迷惑おかけして本当にスミマセンでしたそしてありがとうございました！
0328初心者さんNGNG
誤字ｽﾏｿ。
教官に→教官が
0329デフォルトの名無しさんNGNG
どのみちその教官は頃してしまったほうが世のためだ。
0330デフォルトの名無しさんNGNG
このご時世BASIC->さぞ先生はBASICに思い入れが->間違い教える->マジで学校やめるべきかと。
0331デフォルトの名無しさんNGNG
>>330
キミ、キミ、ＢＡＳＩＣを馬鹿にしちゃいかんぜよ。ＰＣ９８０１ＲＸ＋Ｎ８８
Ｂａｓｉｃは現役バリバリで働いているぜよ(w
■ このスレッドは過去ログ倉庫に格納されています