オフコン練習帳 - 掲示板->ＮＥＣのオフコン情報掲示板（ノウハウ系）->Re:ルート（平方根）の計算って

7 Re:ルート（平方根）の計算って

苦労人 2006-2-9 16:32 [返信] [編集]

>困って、オフコンの購入元の大塚商会に確認しましたら、
>平方根の計算はA-VXのCOBOLはサブプログラム等を作成しないと
>出来ないそうです。

確かに私もプログラムで対応しました。
下記のロジックで限りなく良い結果が出た気がします。


********************************************************** 
*****　　ルート計算　　　　　    　　　　　   　     ***** 
********************************************************** 
 A-ROOT-RTN.                                                
     DIVIDE  2  INTO  WK-INPUT  GIVING  WK-SYO         
                                REMAINDER  WK-AMARI.    
     MOVE  WK-SYO               TO  WK-ROOTCNT.           
     IF  WK-AMARI  NOT =  ZERO                           
         ADD  1                    TO  WK-ROOTCNT.       
     MOVE  WK-INPUT             TO  WK-Z  WK-Y.           
     PERFORM                                              
         VARYING  WK-TS4  FROM  1  BY  1                 
         UNTIL    WK-TS4  >  WK-ROOTCNT                  
             COMPUTE  WK-Z = (WK-Z + WK-Y / WK-Z) / 2    
     END-PERFORM.                                        
     MOVE  WK-Z                    TO  WK-OUTPUT.       
 A-ROOT-EXT.                                              
     EXIT.