Tiny Basic 日本語

質問

Tiny Basic for Windows v1.21を利用しているものです。
入力した日本語を後ろから表示したいです。あいうと入力したら、ういあと出力したいです。
以下が実行したプログラムです。
10 INPUT "お名前は？: ", U$
20 PRINT "こんにちは "; U$ ;" さん"
25 REM
30 INPUT "丸がいくつ欲しいですか？: "; N
35 S$ = ""
40 FOR I = 1 TO N
50' S$ = S$ + "○"
print "○"
55 NEXT I
60 'PRINT S$
65 REM
70 INPUT "もう一度やりますか（Y/N)？ "; A$
80 IF LEN(A$) = 0 THEN GOTO 70
90 A$ = LEFT$(A$, 1)
100 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 30
110 PRINT "さようなら "
111 INPUT "挨拶はなん回: "; N2
120 FOR I = 1 TO N2
130 PRINT RIGHT$(U$,6); "さん ";
140 NEXT I
150 PRINT
160 PRINT "さようなら "
170 END
行番号１３０の処理では、アルファベットを後ろから表示できました。ひらがなや漢字はそうなりません。
御指摘お願いします。

回答No.1

Prome_Lin · ベストアンサー

質問のプログラムでは、名前で入力した文字が逆順にはならないですよ。

アルファベットで入力しても、このプログラムではなりません。

下記のプログラムでは「125」～「140」のように、お名前の文字数「LEN(U$)」から、最初の１文字目までを、１文字ずつ取り出しています「MID$(U$,J,1)」。

FOR J = LEN(U$) TO 1 STEP -1で、逆順にしています。例えば、U$が６文字の場合、「LEN(U$)」の値は「６」、STEP -1なので、１つずつ「６」から「１」まで減って行きます。

そして、そのお名前を１文字ずつ、逆順に表示したのち、すなわち、「NEXT J」のあとに「PRINT "さん ";」を置くことで、お名前を出力したのち、「さん 」が出力されます。

10 INPUT "お名前は？: ", U$
20 PRINT "こんにちは "; U$ ;" さん"
30 INPUT "丸がいくつ欲しいですか？: "; N
35 S$ = ""
40 FOR I = 1 TO N
50 print "○"
55 NEXT I
70 INPUT "もう一度やりますか（Y/N)？ "; A$
80 IF LEN(A$) = 0 THEN GOTO 70
90 A$ = LEFT$(A$, 1)
100 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 30
110 PRINT "さようなら "
111 INPUT "挨拶はなん回: "; N2
120 FOR I = 1 TO N2
125 FOR J = LEN(U$) TO 1 STEP -1
130 PRINT MID$(U$,J,1);
135 NEXT J
140 PRINT "さん ";
145 NEXT I
150 PRINT
160 PRINT "さようなら"
170 END

以上でどうでしょうか？

お礼

実行結果の間違いの指摘と、プログラムありがとうございます。