*vf題目：分別使用自定義函式和子程式兩種方法，編寫計算圓環面積的程式，其中圓的半徑從鍵盤輸入

INPUT "請輸入圓環外(大)半徑：" TO dr

INPUT "請輸入圓環內(小)半徑：" TO xr

?"圓環面積(自定義函式方法):",yhmj_hs(dr,xr) &&自定義函式方法呼叫

s=0 &&以下是子程式方法呼叫

DO yhmj_zc WITH dr,xr

?"圓環面積(子程式方法):",s

RETURN

PROCEDURE yhmj_zc

PARAMETERS wj,nj

s=PI()*wj^2-PI()*nj^2

RETURN

FUNCTION yhmj_hs

PARAMETERS wj,nj

s=PI()*wj^2-PI()*nj^2

RETURN s