#99 Article 1080 Posted at 1995/12/27 20:16:07 by たぐれっと (MAP4870) [SAHOU.5]
Subject: Re: Re: Re: プログラミング作法・５：回文の判定 /1077 /1072 /1063
N88-BASIC(86) です。 100 ' 回文 110 '"kaibun",a 120 KEY 2,"system"+CHR$(13) 130 DIM S$(255) 140 PRINT "元の文を入れてください。" 150 LINE INPUT ">";S$ 160 ' 分割、抜粋 170 SLEN=LEN(S$) 180 FOR I=1 TO SLEN 190 B$=MID$(S$,I,1) 200 BC=ASC(B$) 210 IF 65<=BC AND BC<= 92 THEN BC=BC+32 220 IF NOT (95<=BC AND BC<=122) THEN *SKIP 230 P=P+1 240 S$(P)=CHR$(BC) 250 *SKIP 260 NEXT 270 IF P=0 THEN *OWARI 280 ' 判定 290 RP=P : I=1 300 WHILE I<=P 310 IF S$(I)<>S$(RP) THEN *OWARI 320 I=I+1 : RP=RP-1 330 WEND 340 ' 回文だから表示 350 PRINT S$;" : 回文と判定されました。" 360 *OWARI 370 END WHILE～WEND からジャンプしてます(^^; たぐれっと