等価･比較演算子は1か０を返すので配列の添字に条件式を突っ込むという荒業も出来なくはないですよ。 ACLS OPTION DEFINT VAR A$[2],I,J,N A$[0]="*":A[1]=" " INPUT "数値を入力せよ",N FOR I=1　TO N FOR J=1 TO N*2-1 PRINT A[N-I<J&&N-I>J]; NEXT PRINT NEXT (未検証)