[SAMPLE8] SAMPLE
10 REM SAMPLE8
100 INPUT "数字を入力して下さい!";A
110 FLG=0
120 IF A<0 THEN A=ABS(A):FLG=1
130 PRINT SQR(A);
140 IF FLG THEN PRINT "i" ELSE PRINT
150 END
120 入力された値が負ならばFLGに1を代入。
130 SQRは平方根の関数。
140 入力値が負のときには,平方根の結果に
"i"(複素表示)を付加する。