Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]


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.


ルート(平方根)の計算って がしまる 2005-6-6 16:48
Re:ルート(平方根)の計算って 温泉好きのうさぎ 2005-6-7 13:39
Re:ルート(平方根)の計算って がしまる 2005-7-4 17:02
Re:ルート(平方根)の計算って Tama 2005-7-4 20:38
Re:ルート(平方根)の計算って がしまる 2005-8-16 11:13
Re:ルート(平方根)の計算って bluelion 2005-8-18 9:26
Re:ルート(平方根)の計算って 苦労人 2006-2-9 16:32 ←いまここ〜
BluesBB ©Sting_Band