版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

[交流] 【求助】這個程序明明沒有錯誤，但是編譯就是顯示有個錯誤【已完結(jié)】已有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 ]

回復(fù)此樓

» 猜你喜歡

352分-085602-一志愿985 已經(jīng)有3人回復(fù)
291求調(diào)劑已經(jīng)有4人回復(fù)
330分求調(diào)劑已經(jīng)有4人回復(fù)
309求調(diào)劑已經(jīng)有4人回復(fù)
0856求調(diào)劑已經(jīng)有13人回復(fù)
0703化學(xué) 已經(jīng)有11人回復(fù)
329求調(diào)劑已經(jīng)有7人回復(fù)
321求調(diào)劑已經(jīng)有8人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有12人回復(fù)
070300化學(xué)354求調(diào)劑已經(jīng)有4人回復(fù)

好好學(xué)習(xí)，天天向上。

1樓 2010-09-10 01:00:37

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

編譯通過，此貼結(jié)帖。

贊一下

回復(fù)此樓

好好學(xué)習(xí)，天天向上。

4樓2010-09-10 09:39:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個回答

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

顯示的錯誤是：
--------------------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)

贊一下

回復(fù)此樓

好好學(xué)習(xí)，天天向上。

2樓2010-09-10 01:01:23

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★ ★
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'
試試

贊一下(2人)

回復(fù)此樓

3樓2010-09-10 08:51:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個回答

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 352分-085602-一志愿985 +3	海納百川Ly 2026-03-29	3/150	2026-03-29 07:15 by 380984326
[考研] 291求調(diào)劑 +3	Y-cap 2026-03-29	4/200	2026-03-29 07:13 by wxiongid
[考研] 321求調(diào)劑 +7	璞玉~~ 2026-03-25	8/400	2026-03-29 06:41 by 544594351
[考研] 315求調(diào)劑 +4	akie... 2026-03-28	5/250	2026-03-28 21:05 by zhq0425
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落睿可思
[考研] 一志愿廈門大學(xué)化學(xué)學(xué)碩307求調(diào)劑 +10	y7czhao 2026-03-26	10/500	2026-03-28 14:23 by 唐沐兒
[考研] 0703化學(xué)求調(diào)劑 +9	奶油草莓. 2026-03-22	10/500	2026-03-28 13:30 by 唐沐兒
[考研] 311求調(diào)劑 +4	冬十三 2026-03-24	4/200	2026-03-28 13:17 by 唐沐兒
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito
[考研] 283求調(diào)劑（080500） +4	A child 2026-03-27	4/200	2026-03-27 15:34 by XPU李慶
[考研] 考研化學(xué)308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 材料學(xué)碩，求調(diào)劑 6+5	糖葫蘆888ll 2026-03-22	10/500	2026-03-27 08:18 by hypershenger
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +4	崔wj 2026-03-26	4/200	2026-03-27 08:04 by chemisry
[考研] 求調(diào)劑 +8	Auroracx 2026-03-22	8/400	2026-03-26 19:55 by 不吃魚的貓
[考研] 一志愿河工大 081700 276求調(diào)劑 +4	地球繞著太陽轉(zhuǎn) 2026-03-23	4/200	2026-03-26 14:27 by zzll406
[考研] 化學(xué)調(diào)劑一志愿上海交通大學(xué)336分-本科上海211 +4	小魚愛有機 2026-03-25	4/200	2026-03-26 10:19 by aa331100
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4	gdlf9999 2026-03-24	4/200	2026-03-25 23:01 by boxking200
[考研] 材料與化工328分調(diào)劑 +6	。，。，。，。i 2026-03-23	6/300	2026-03-25 22:30 by 418490947
[考研] 一志愿武理085500機械專業(yè)總分300求調(diào)劑 +3	an10101 2026-03-24	7/350	2026-03-25 00:00 by 山鬼0-
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

zyj8119

[交流] 【求助】這個程序明明沒有錯誤，但是編譯就是顯示有個錯誤【已完結(jié)】 已有1人參與

» 猜你喜歡

zyj8119

zyj8119

snoopyzhao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[交流] 【求助】這個程序明明沒有錯誤，但是編譯就是顯示有個錯誤【已完結(jié)】已有1人參與