²é¿´: 460  |  »Ø¸´: 3

zyj8119

ľ³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿Õâ¸ö³ÌÐòÃ÷Ã÷ûÓдíÎ󣬵«ÊDZàÒë¾ÍÊÇÏÔʾÓиö´íÎó¡¾ÒÑÍê½á¡¿ ÒÑÓÐ1È˲ÎÓë

CODE:
FUNCTION plus(hex1,hex2) RESULT(hexsum)
INTEGER::dec1,dec2,tmp,n=8,k,i
CHARACTER(len=*)::hex1,hex2,hexsum
    dec1=h2d(hex1);dec2=h2d(hex2);tmp=dec1+dec2;hexsum=d2h(tmp)
        CONTAINS
         FUNCTION d2h(dec) RESULT(hex)
         CHARACTER(len=8)::hex
         CHARACTER(len=16)::hexc=(/'0123456789ABCDEF'/)
         INTEGER,INTENT(in)::dec
         tmp=dec;hex='';k=0
         DO WHILE(tmp/=0)
          i=MOD(tmp,16);hex(n-k:n-k)=hexc(i+1:i+1);
          tmp=tmp/16;k=k+1
         END DO
         END FUNCTION d2h
         FUNCTION h2d(hex) RESULT(dec)
         INTEGER::dec
         INTEGER,PARAMETER::asciiA=65,asciiF=70,ascii0=48,ascii9=57
         CHARACTER(len=8),INTENT(in)::hex
     dec=0
         DO i=1,n
         IF(hex(i:i)=='')THEN
           CYCLE
         ELSE
           tmp=ICHAR(hex(i:I))
           SELECT CASE(tmp)
                  CASE(asciiA:asciiF);k=tmp-55
                          CASE(ascii0:ascii9);k=tmp-48
                          CASE DEFAULT;  EXIT
                END SELECT
        END IF
        dec=dec*16+k
  END DO
END FUNCTION h2d
END FUNCTION plus
!
PROGRAM HEX_plus
INTERFACE OPERATOR(+)
  FUNCTION plus(hex1,hex2) RESULT(hexsum)
  CHARACTER(len=7),INTENT(in)::hex1,hex2
  CHARACTER(len=8)::hexsum
  END FUNCTION plus
END INTERFACE
CHARACTER(len=7)::hex1,hex2,result*8
OPEN(1,FILE='myf1.out')
hex1='1FAB21';hex2='2EDC34';result=hex1+hex2
WRITE(1,'(A8)')result; WRITE(*,'(A8)')result
END PROGRAM Hex_Plus

[ Last edited by ÓàÔó³É on 2010-9-10 at 16:19 ]
»Ø¸´´ËÂ¥
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)

ÏÔʾµÄ´íÎóÊÇ£º
--------------------Configuration: 4 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\Common\MSDev98\My Projects\4.f90
C:\Program Files\Microsoft Visual Studio\Common\MSDev98\My Projects\4.f90(8) : Error: The shapes of the array expressions do not conform.
  CHARACTER(len=16)::hexc=(/'0123456789ABCDEF'/)
-----------------------------------^
Error executing df.exe.

4.obj - 1 error(s), 0 warning(s)
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
2Â¥2010-09-10 01:01:23
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡ï ¡ï
zyj8119(½ð±Ò+1):лл²ÎÓë
zyj8119(½ð±Ò+9):ллָ½Ì£¡ 2010-09-10 08:53:09
ÓàÔó³É(½ð±Ò+1):ÐÁ¿àÁË£¡ 2010-09-10 16:19:31
°Ñ
CHARACTER(len=16)::hexc=(/'0123456789ABCDEF'/)
¸Ä³É
CHARACTER(len=16)::hexc='0123456789ABCDEF'
ÊÔÊÔ
3Â¥2010-09-10 08:51:30
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)

±àÒëͨ¹ý£¬´ËÌù½áÌû¡£
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
4Â¥2010-09-10 09:39:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zyj8119 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ£¬327·Ö£¬²ÄÁÏÓ뻯¹¤085600 +6 Ncdx123456 2026-03-19 6/300 2026-03-20 17:40 by ÎÞи¿É»÷111
[¿¼ÑÐ] ¹¤¿Æ²ÄÁÏ085601 279Çóµ÷¼Á +7 À§ÓÚÐdz¿ 2026-03-17 9/450 2026-03-20 17:38 by ÎÞи¿É»÷111
[¿¼ÑÐ] 295¸´ÊÔµ÷¼Á +7 ¼òľChuFront 2026-03-19 7/350 2026-03-20 14:11 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] ±¾ÈË¿¼085602 »¯Ñ§¹¤³Ì ר˶ +18 ²»ÖªµÀ½Ðʲô£¡ 2026-03-15 20/1000 2026-03-20 13:52 by danney002
[ÂÛÎÄͶ¸å] ÉêÇë»Ø¸åÑÓÆÚÒ»¸öÔ£¬±à¼­Í¬ÒâÁË¡£µ«ÏµÍ³ÉϵÄʱ¼äû±ä£¬¸ø±à¼­ÓÖдÓʼþÁË£¬Ã»»Ø¸´ 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[¿¼ÑÐ] ÉúÎïѧµ÷¼ÁÕÐÈË£¡£¡£¡ +3 ɽº£Ììá° 2026-03-17 4/200 2026-03-19 21:34 by ÔõôÊÍ»³
[¿¼²©] ¶«»ªÀí¹¤´óѧ»¯²Äרҵ26½ì˶ʿ²©Ê¿ÉêÇë +8 zlingli 2026-03-13 8/400 2026-03-19 16:32 by ÇáËɲ»ÉÙËæ
[¿¼ÑÐ] Ò»Ö¾Ô¸Ìì½ò´óѧ»¯Ñ§¹¤ÒÕרҵ£¨081702£©315·ÖÇóµ÷¼Á +11 yangfz 2026-03-17 11/550 2026-03-19 15:06 by houyaoxu
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +6 Ð÷ÐÒÓë×Ó 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[¿¼ÑÐ] ²ÄÁÏ¿¼Ñе÷¼Á +3 xwt¡£ 2026-03-19 3/150 2026-03-19 11:22 by wãåÑôw
[¿¼ÑÐ] 328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑо­Àú +3 ÉúÎ﹤³Ìµ÷¼Á 2026-03-17 7/350 2026-03-18 20:41 by Wangjingyue
[¿¼ÑÐ] 311Çóµ÷¼Á +11 ¶¬Ê®Èý 2026-03-15 12/600 2026-03-18 14:36 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 0854¿É¿çµ÷¼Á£¬Ò»×÷Ò»ÏîºËÐÄÂÛÎÄÎåÏîרÀû£¬Ê¡¡¢¹ú¼¶Ö¤Êé40+ÊýÒ»Ó¢Ò»287 +8 СÀî0854 2026-03-16 8/400 2026-03-18 14:35 by ²«»÷518
[¿¼ÑÐ] ¿¼ÑÐÇóµ÷¼Á +3 éÙËÌ. 2026-03-17 4/200 2026-03-17 21:43 by ÓÐÖ»ÀêÅ«
[¿¼ÑÐ] Ò»Ö¾Ô¸£¬¸£ÖÝ´óѧ²ÄÁÏר˶339·ÖÇóµ÷¼Á +3 ľ×ÓmomoÇàÕù 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
[¿¼ÑÐ] »úеר˶325£¬Ñ°ÕÒµ÷¼ÁԺУ +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[¿¼ÑÐ] 0854¿ØÖƹ¤³Ì 359Çóµ÷¼Á ¿É¿çרҵ +3 626776879 2026-03-14 9/450 2026-03-16 17:42 by 626776879
[¿¼ÑÐ] 070300»¯Ñ§Ñ§Ë¶Çóµ÷¼Á +6 Ì«Ïë½ø²½ÁË0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[¿¼ÑÐ] 0703 ÎïÀí»¯Ñ§µ÷¼Á +3 ÎÒ¿ÉÒÔÉϰ¶µÄ¶Ô 2026-03-13 5/250 2026-03-16 10:50 by ÎÒ¿ÉÒÔÉϰ¶µÄ¶ÔÂ
[¿¼ÑÐ] 297Ò»Ö¾Ô¸ÉϽ»085600Çóµ÷¼Á +5 Ö¸¼â°ËǧÀï 2026-03-14 5/250 2026-03-14 17:26 by a²»Ò×
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û