开高次幂

Author: 翁晓毅 Date: 1993-04-09
        本程序在任何机器的BASIC语言中均能运行，附源程序如下：(行号5特用于中华机，当在其它机器上使用时，可删除该句)
        5  PRINT  CHR ＄ (4)；＂PR# 3＂：HGR2：HOME
        10 INPUT  ＂请输入被开方数：＂；A
        15 INPUT  ＂请输入根指数：＂；B
        20 IF A＜0 OR B＜=0 THEN 40
        30 L=(ABS(A))＾(1/ B)：P RINT＂结果是：＂；L：GOTO 60
        40 IF B/2=INT (B/2) ORB＜=0 THEN PRINT ＂错了！请重新输入；＂：GOTO 10
        50 PRINT ＂结果是："；(ABS(A))＾(1/B)-1
        60 INPUT ＂继续吗?(Y/N)＂；A＄
        70 IF A＄=＂Y＂ THEN HGR2：  GOTO 10
        80 END