Google
¥ª¥Õ¥³¥óÎý½¬Ä¢Æâ¤ò¸¡º÷
¥¤¥ó¥¿¡¼¥Í¥Ã¥ÈÁ´ÂΤò¸¡º÷

NEC¥ª¥Õ¥³¥ó´ØÏ¢
¥ª¥Õ¥³¥ó°ìÈÌ
¾ðÊó

[·Ç¼¨ÈĤËÌá¤ë]


¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ ¤¬¤·¤Þ¤ë 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

1 ¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
¤¬¤·¤Þ¤ë 2005-6-6 16:48  [ÊÖ¿®] [ÊÔ½¸]

¤Ï¤¸¤á¤Þ¤·¤Æ¡£

ITOS»þÂ夫¤éCOBOL¤Ç¥·¥¹¥Æ¥à³«È¯¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¤¬

¡Ê¸½ºß¤ÏA-VX­¸¡Ë

COBOL¤Ç¤Ï¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ï¤Ç¤­¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

¸½ºß¤Ï¼«Ê¬¤Çºî¤Ã¤¿¥ë¡¼¥Á¥ó¤Ç·×»»¤µ¤»¤Æ¤ª¤ê¤Þ¤¹¤¬¡¢

¤¤¤Þ¤¤¤ÁÍê¤ê¤Ê¤¤´¶¤¸¤Ç¤¹¡¦¡¦¡¦(µã¡Ë



¤Ê¤Ë¤«¡¢Îɤ¤ÊýË¡¤Ã¤Æ¤¢¤ê¤Þ¤¹¤«¤Í¡©

2 Re:¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
²¹Àô¹¥¤­¤Î¤¦¤µ¤® 2005-6-7 13:39  [ÊÖ¿®] [ÊÔ½¸]

¤Ù¤­¾è¤ò»È¤Ã¤Æ¡¢

£Ã£Ï£Í£Ð£Õ£Ô£Å¡¡£Á¡¡¡á¡¡£Â¡¡¡ö¡ö¡¡£°¡¥£µ

¤È¤¹¤ì¤Ð¤¤¤¤¤ó¤¸¤ã¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£



¤¿¤À¤·¡¢£Ò£Ï£Õ£Î£Ä£Å£Ä¤Î»ØÄ꤬¤Ê¤¤¤È¡¢£Â¡á£´¤Î¤È¤­¤Ë¡¢

£Á¡á£±¡¥£¹£¹£¹£¹£¹£¹£¹¡¡¡¡¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
3 Re:¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
¤¬¤·¤Þ¤ë 2005-7-4 17:02  [ÊÖ¿®] [ÊÔ½¸]

ÊÖ¿®Í­Æñ¤¦¤´¤¶¤¤¤Þ¤¹¡£¸æÎéÃÙ¤¯¤Ê¤Ã¤Æ¤¹¤¤¤Þ¤»¤ó¡£



> ¤Ù¤­¾è¤ò»È¤Ã¤Æ¡¢
> £Ã£Ï£Í£Ð£Õ£Ô£Å¡¡£Á¡¡¡á¡¡£Â¡¡¡ö¡ö¡¡£°¡¥£µ
> ¤È¤¹¤ì¤Ð¤¤¤¤¤ó¤¸¤ã¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£


¤è¤í¤³¤ó¤ÇÁᮤä¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢A-VX­¸¤Ï¡¢¤Ù¤­¾è¤Î
¾®¿ôÅÀ°Ê²¼¤Ï̵»ë¤µ¤ì¤ë¤ß¤¿¤¤¤Ç¤¹¡£0¾è¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ê
B¤Ë²¿¤òÆþ¤ì¤Æ¤â¤¹¤Ù¤ÆA¤Ë¤Ï1¤¬Ê֤äÆÍè¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤Þ¤¿

£Ã£Ï£Í£Ð£Õ£Ô£Å¡¡£Á¡¡¡á¡¡£Â¡¡¡ö¡ö¡¡-2
¤Î¤è¤¦¤Ë¤¹¤ë¤È¤Ù¤­¾è¤¬0°Ê²¼¤Ç¤¢¤ë¤È¤¤¤¦¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤è¤¦¤Ç¤¹¡£
4 Re:¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
Tama 2005-7-4 20:38  [ÊÖ¿®] [ÊÔ½¸]

°ì¤Ä³Îǧ¤·¤Æ¤¤¤¿¤À¤­¤¿¤¤¤Î¤Ç¤¹¤¬¡¢£Á¡¤£Â¤Ï 9V9(7)¡¡¤Î¤è¤¦¤Ë

¾®¿ôÅÀ°Ê²¼¤âÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤Ç¤·¤ç¤¦¤«¡©
5 Re:¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
¤¬¤·¤Þ¤ë 2005-8-16 11:13  [ÊÖ¿®] [ÊÔ½¸]

> °ì¤Ä³Îǧ¤·¤Æ¤¤¤¿¤À¤­¤¿¤¤¤Î¤Ç¤¹¤¬¡¢£Á¡¤£Â¤Ï 9V9(7)¡¡¤Î¤è¤¦¤Ë

> ¾®¿ôÅÀ°Ê²¼¤âÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤Ç¤·¤ç¤¦¤«¡©



¤Ï¤¤¡£ÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£¤·¤«¤·¤Ê¤¬¤é¡¢Á°½Ò¤Î¤è¤¦¤Ë¤¦¤Þ¤¯·×»»¤µ¤ì¤Þ¤»¤ó¡£

º¤¤Ã¤Æ¡¢¥ª¥Õ¥³¥ó¤Î¹ØÆþ¸µ¤ÎÂçÄ;¦²ñ¤Ë³Îǧ¤·¤Þ¤·¤¿¤é¡¢Ê¿Êýº¬¤Î·×»»¤ÏA-VX¤ÎCOBOL¤Ï¥µ¥Ö¥×¥í¥°¥é¥àÅù¤òºîÀ®¤·¤Ê¤¤¤È½ÐÍè¤Ê¤¤¤½¤¦¤Ç¤¹¡£
6 Re:¥ë¡¼¥È¡ÊÊ¿Êýº¬¡Ë¤Î·×»»¤Ã¤Æ
bluelion 2005-8-18 9:26  [ÊÖ¿®] [ÊÔ½¸]



> º¤¤Ã¤Æ¡¢¥ª¥Õ¥³¥ó¤Î¹ØÆþ¸µ¤ÎÂçÄ;¦²ñ¤Ë³Îǧ¤·¤Þ¤·¤¿¤é¡¢Ê¿Êýº¬¤Î·×»»¤ÏA-VX¤ÎCOBOL¤Ï¥µ¥Ö¥×¥í¥°¥é¥àÅù¤òºîÀ®¤·¤Ê¤¤¤È½ÐÍè¤Ê¤¤¤½¤¦¤Ç¤¹¡£

¡¡ÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿

¡¡£Î£Å£Ã¤âFORTRAN¤¢¤ë¤ó¤À¤«¤é¡¢É¸½à¤Ç¥µ¥Ö¥ë¡¼¥Á¥ó²½¤·¤ÆÄ󶡤¹¤ì¤Ð¤È»×¤¦¤Î¤Ï»ä¤À¤±¤Ç¤·¤ç¤¦¤«¡©

¡¡
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.

BluesBB ©Sting_Band