#99 Article 1001 Posted at 1995/12/09 06:30:02 by たぐれっと (MAP4870) [SAHOU.1]
Subject: Re:*6 プログラミングお作法の話 /946 ... /941 /940
参加します(^^) 言語は MS-DOS版 N88(86)-BASIC です。それしかわかりません(^^; ファイル名は "nyan.bas" です。 --- 100 '"nyan",a 110 KEY 2,"system"+CHR$(13) 120 DAME$="駄目にゃん。 ちゃんとした" 130 CLS 140 *IRERU 150 INPUT "数字を入れるにゃん。 ",N$ 160 N=VAL(N$) 170 IF N<1 OR INT(N)<>N THEN PRINT DAME$; : GOTO *IRERU 180 ' 190 FOR I=1 TO N 200 IF I=3 OR I=5 OR I=N THEN GOSUB *NYAN ELSE PRINT I 210 NEXT 220 END 230 ' 240 *NYAN 250 FOR J=1 TO I 260 PRINT "にゃん"; 270 NEXT 280 PRINT : RETURN --- 自己分析： セーブすることや、DOS に戻ることも考慮している(^^; 入力チェックをしている。 ループはやっぱり I 。(^^; みなさん、多彩な言語が使えますね。 たぐれっと