计算半径等于10厘米的圆的周长和面积（QBASIC

程序：
CLS
A = 3.14 * 10 * 2
B = 3.14 * 10 ^ 2
PRINT "周长="; A
PRINT "面积="; B
END

周长62.8厘米。面积314平方厘米。

周长=10*2=20厘米，20*3.14=62.8厘米
面积=10*10=100厘米，100*3.14=314厘米

CLS '清屏
Zhouchang=3.14*10*2 '算周长
Mianji=3.14*10^2 '算面积
PRINT “Zhouchang:”；Zhouchang '输出周长
PRINT “Mianji:”；Mianji '输出面积
END '结束

若半径为N,则:
CLS
INPUT N
Zhouchang=3.14*N*2
Mianji=3.14*N^2
PRINT “Zhouchang:”；Zhouchang
PRINT “Mianji:”；Mianji
END

const r = 10, pi = 3.14159
print "zhouchang="; 2*pi*r
print "mianji=";r^2*pi
end