24小时热门版块排行榜    

Znn3bq.jpeg
查看: 967  |  回复: 1

yhwsmile

金虫 (小有名气)

[求助] fortran十进制转二进制,麻烦各位大虾给看一下~~附程序,谢谢

十进制转二进制问题:
下面是我自己编的程序,麻烦各位大虾给看一下我这个程序有问题没,主要是数据第一行是数据说明(eg:2011年5月4日降水数据),对于这个头我不知道怎么弄?我转换完成后,生成的二进制文件第一行依然显示:2011年5月4日降水数据,请问对不对啊这样~~~~~谢谢啦~~图片为10进制和转换成2进制
         program main
      implicit none
        integer j       
               real h(50,180)
        character c*80
        open(1,file='1.txt')
        read(1,'(a80)')c
        do j=1,50          
           read(1,*)h(j,: )
        end do
   
        open(2,file='1.dat',form='unformatted',access='direct',recl=180)
        write(2,rec=1)c
               do j=1,50
           write(2,rec=j+1)h(j,: )
        end do
        end

生成的二进制文件



10进制文件

[ Last edited by yhwsmile on 2012-5-12 at 10:29 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

已解决~~
2楼2012-05-25 17:30:34
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yhwsmile 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料专业344求调剂 +14 hualkop 2026-04-10 19/950 2026-04-10 16:47 by wangy0907
[考研] 085404 298分求调剂 +10 呼啦呼啦呼呼呼 2026-04-10 11/550 2026-04-10 16:44 by wangy0907
[考研] 初试261 +3 Asht少 2026-04-10 6/300 2026-04-10 16:38 by Asht少
[考研] 284求调剂 +9 archer.. 2026-04-10 9/450 2026-04-10 16:37 by 6781022
[考研] 一志愿211,化学学硕,310分,本科重点双非,求调剂 +27 努力奋斗112 2026-04-07 30/1500 2026-04-10 15:06 by Kilig0317
[考研] 296求调剂 +12 汪!?! 2026-04-08 13/650 2026-04-10 12:09 by 汪!?!
[考研] 362求调剂 +9 我要考大 2026-04-06 13/650 2026-04-10 11:28 by may_新宇
[考研] 青岛科技大学材料学院,环境学院调剂补录4月10日以前都可以 +3 1青科大。 2026-04-09 5/250 2026-04-10 09:58 by 翩翩一书生
[考研] 0703调剂 +18 拾玖壹 2026-04-04 20/1000 2026-04-09 20:53 by zhouxiaoyu
[考研] 0854调剂 +10 长弓傲 2026-04-09 11/550 2026-04-09 19:03 by 探123
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 材料工程调剂 +12 小刘同学吖吖 2026-04-06 13/650 2026-04-09 17:07 by luoyongfeng
[论文投稿] 求助文献原文 10+3 18500821399 2026-04-08 3/150 2026-04-09 16:56 by 北京莱茵润色
[考研] 材料调剂 +14 一样YWY 2026-04-05 15/750 2026-04-09 13:36 by 故人??
[考研] 275 求调剂 +8 Lei812514 2026-04-07 8/400 2026-04-08 12:46 by chemisry
[考研] 085405软件工程301分求调剂,专硕可跨专业,四六级已过 +3 静静想想 2026-04-05 3/150 2026-04-06 15:23 by nepu_uu
[考研] 377求调剂 +6 by.ovo 2026-04-05 6/300 2026-04-05 22:18 by dongzh2009
[考研] 313求调剂 +5 海日海日 2026-04-04 5/250 2026-04-05 15:52 by jndximd
[考研] 341求调剂 +3 学无止境,冲 2026-04-05 3/150 2026-04-05 09:40 by lbsjt
[考研] 怎么删帖子啊 +3 缝曦1000 2026-04-04 3/150 2026-04-04 14:20 by 土木硕士招生
信息提示
请填处理意见