8.202 SQUARE_ROOT

平方根値を計算します。

 

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

N

必須

平方根を計算する値

注:Visual LANSAでは、最大長は15,5です。

1

30

0

9

 

戻り値

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

N

必須

平方根値

注:Visual LANSAでは、最大長は15,5です。

1

30

0

9

 

注: このファンクションは、平方根値を切り捨ててから、その値を戻します。つまり、戻りフィールドがDIGITS(4) DECIMALS(2)と定義され、平方根値が1.41421の場合、戻り値は01.41になります。

********** A simple square root calculator
DEFINE     FIELD(#NUMBER1) TYPE(*DEC) LENGTH(15) DECIMALS(5) EDIT_CODE(3)
DEFINE     FIELD(#RESULT) TYPE(*DEC) LENGTH(15) DECIMALS(5) EDIT_CODE(3)
********** Request number to calculate root from
REQUEST    FIELDS(#NUMBER1)
********** Calculate square root
USE        BUILTIN(SQUARE_ROOT) WITH_ARGS(#NUMBER1) TO_GET(#RESULT)
********** Display result
DISPLAY   FIELDS(#NUMBER1 #RESULT)