***すれ立てるまでもない質問はここで 第59刷***
レス数が900を超えています。1000を超えると表示できなくなるよ。
0949デフォルトの名無しさん
NGNGいやー久々にBASIC書いたよ〜。あってるかな？
10 DIM A$,B(255),C
20 INPUT "データを入力してください：",A$
30 IF VAL(A$)<0 THEN GOTO 50
40 C=C+1:B(C)=VAL(A$):GOTO 20
50 FOR I=1 TO C: PRINT "データ";C;"|";
60 FOR J=1 TO B(C): PRINT "＊"; : NEXT J:PRINT
70 NEXT I
レス数が900を超えています。1000を超えると表示できなくなるよ。