版塊導航: 正在加載中...

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (2567)
>考研 (293)
>導師招生 (255)
>蟲友互識 (59)
>休閑灌水 (47)
>基金申請 (31)
>考博 (22)
>文獻求助 (21)
>博后之家 (18)
>教師之家 (17)
>論文投稿 (17)
>論文道賀祈福 (16)
>碩博家園 (13)
>找工作 (11)
>公派出國 (9)
>生物科學 (5)

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

返回列表

zyj8119

木蟲 (著名寫手)

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

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

回復此樓

» 猜你喜歡

292求調(diào)劑已經(jīng)有15人回復
304求調(diào)劑已經(jīng)有5人回復
材料與化工考研調(diào)劑已經(jīng)有17人回復
321求調(diào)劑已經(jīng)有5人回復
329求調(diào)劑已經(jīng)有5人回復
材料求調(diào)劑一志愿哈工大324 已經(jīng)有8人回復
286求調(diào)劑已經(jīng)有7人回復
083000學碩274求調(diào)劑已經(jīng)有7人回復
311求調(diào)劑已經(jīng)有8人回復
一志愿C9材料與化工專業(yè)總分300求調(diào)劑已經(jīng)有9人回復

好好學習，天天向上。

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

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

zyj8119

木蟲 (著名寫手)

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

顯示的錯誤是：
--------------------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發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

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

★ ★
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人)

回復此樓

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

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

zyj8119

木蟲 (著名寫手)

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

編譯通過，此貼結帖。

贊一下

回復此樓

好好學習，天天向上。

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

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

相關版塊跳轉(zhuǎn) 我要訂閱樓主 zyj8119 的主題更新

返回列表

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

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

[考研] 265求調(diào)劑 +8	小木蟲085600 2026-03-27	8/400	2026-03-27 22:16 by 無際的草原
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +7	邱gl 2026-03-27	7/350	2026-03-27 15:27 by Joe率
[考研] 085600，材料與化工321分調(diào)劑 +4	大饞小子 2026-03-27	6/300	2026-03-27 14:11 by 松花缸1201
[考研] 求調(diào)劑 +3	劉柯@ 2026-03-24	4/200	2026-03-27 11:28 by shangxh
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 一志愿吉大071010，316分求調(diào)劑 +3	xgbiknn 2026-03-27	3/150	2026-03-27 10:36 by guoweigw
[考研] 0703化學338求調(diào)劑！ +6	Zuhui0306 2026-03-26	7/350	2026-03-27 10:35 by shangxh
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】 +4	Higraduate 2026-03-22	8/400	2026-03-26 20:34 by Higraduate
[考研] 材料調(diào)劑 5+4	想要一壺桃花水 2026-03-25	10/500	2026-03-26 19:56 by 不吃魚的貓
[考研] 求調(diào)劑 +8	Auroracx 2026-03-22	8/400	2026-03-26 19:55 by 不吃魚的貓
[考研] 286求調(diào)劑 +13	Faune 2026-03-21	13/650	2026-03-26 19:52 by peike
[考研] 271求調(diào)劑 +6	生如夏花… 2026-03-22	6/300	2026-03-26 16:48 by 張凱十八號
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚的貓
[考研] 291 求調(diào)劑 +7	化工2026屆畢業(yè)?/a> 2026-03-21	8/400	2026-03-26 11:25 by AlenQIN.
[考研] 考研調(diào)劑 +6	來好運來來來 2026-03-21	7/350	2026-03-25 22:43 by 418490947
[考研] 0854AI CV方向招收調(diào)劑 +4	章小魚567 2026-03-23	4/200	2026-03-25 17:04 by CoderLoser
[考研] 生物學學碩求調(diào)劑 +7	小羊睡著了? 2026-03-23	10/500	2026-03-25 02:24 by 清風拂揚。 m
[考研] 材料考研調(diào)劑生 +3	黃粱一夢千年 2026-03-24	3/150	2026-03-24 17:00 by barlinike
[考研] 求調(diào)劑 +7	十三加油 2026-03-21	7/350	2026-03-23 23:48 by 熱情沙漠

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

24小時熱門版塊排行榜

zyj8119

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

» 猜你喜歡

zyj8119

snoopyzhao

zyj8119

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

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