win7在哪里输入激活码在哪里找？

来源：蜘蛛抓取(WebSpider) 时间：2014-08-27 02:00 标签： win8在哪里输入激活码
&& 查看话题
找不出毛病不知怎么改？
计算系数矩阵为上三角的线性方程组Ax=b的解，N维
！##############################################
module tri_eq
subroutine uptri(A,b,x,N)
implicit real*8(a-z) !a到z开头的变量都视为双精度浮点数
integer::i,j,k,N
real*8::A(N,N),b(N),x(N)
x(N)=b(N)/A(N,N)
do i=N-1,1,-1
do j=i+1,N
x(i)=b(i)-a(i,j)*x(j)
x(i)=x(i)/A(i,i)
end subroutine uptri
end module tri_eq
!############################################
module driver
subroutine dri_main()
implicit real*8(a-z)
integer::ioerr !ioerr=0
character(20)::uptr
open(unit=11,file='fin.txt',iostat=ioerr)
open(unit=12,file='fout.txt')
read(11,*) uptr
!读输入文件
if(uptr(1:5)=='uptri') ！提示这里有错误
call dri_up()
if(ioerr/=0) exit
end subroutine dri_main
subroutine dri_up()
use tri_eq
implicit real*8(a-z)
integer,parameter::N=4
integer::i,j
real*8::A(N,N),b(N),x(N)
read(11,*)((A(i,j),j=1,N),i=1,N)
!读入b向量
read(11,*) b
call uptri(A,b,x,N)
write(12,101) x
101 format(T5,'上三角方程组的解',/,T4,'x='4(/f12.8))
end subroutine dri_up
end module driver
！################################################
program main
use driver
call dri_main()
end program main
！#################################################
其中fin.txt如下
& && &2&&1&&4&&3
& && &0&&3&&2&&5
& && &0&&0&&7&&3
& && &0&&0&&0&&2& &
编译信息：
D:\fortran_programming\myfirst\main.f95:31.34:
& && && & if(uptr(1:5)=='uptri')
& && && && && && && && && && && && && && & 1
Error: Cannot assign to a named constant at (1)
D:\fortran_programming\myfirst\main.f95:51.8:
use driver
Fatal Error: Can't open module file 'driver.mod' for reading at (1): No such file or directory
Process terminated with status 1 (0 minute(s), 0 second(s))
1 error(s), 0 warning(s) (0 minute(s), 0 second(s))
if(uptr(1:5)=='uptri') ！提示这里有错误
call dri_up()
后面没有　ＥＮＤ　ＩＦ？ : Originally posted by btx97 at
if(uptr(1:5)=='uptri') ！提示这里有错误
call dri_up()
后面没有　ＥＮＤ　ＩＦ？ 谢谢，是的。语法规定：if 如果不带 then 需要写成一行，如果写成两行，应该有 then 和 end if : Originally posted by physliebe at
谢谢，是的。语法规定：if 如果不带 then 需要写成一行，如果写成两行，应该有 then 和 end if... 嗯。　if construct 和 if statement 的区别普通牧牛杖已经做出来了，怎么去找内头牛？_暗黑3吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：620,922贴子：
普通牧牛杖已经做出来了，怎么去找内头牛？
是重新选择任务吗？是第几章~第几节的任务？
美女遇见熊孩子会有怎么...
哭哭哟，还不知道女人什...
妈妈再也不用担心我缺头...
告别颓废，戒出精彩人生...
5G时代超强大，小热狗表...
完美腹肌的最优训练计划...
看完之后，小编的心理受...
人类何苦为难人类？爱情...
童年加青春痕迹的偶像剧...
睡你麻痹起来嗨，不然就...
随着离婚率逐年攀升，分...
古装剧里美丽的额饰，你...
任务选哪个都行，小站选第二个，就是旧城镇废墟，传出来往东走，然后下，你左手边（屏幕右侧）有发光的悬崖，你带着仗子会看到一头牛上面有感叹号，对话完就可以进了
楼上说的是开完的。。。你带着牛杖传送旧废墟，然后向左边走，下面有一个牛的骨头，第一次找一找肯定找得到，然后在他旁边会出来一个牛的灵魂和你对话，旁边的裂缝变成彩色的就可以进去了
PS：爆率什么的并没有变，只是能出汉堡和虹光
毛用都没，打他妈一天的材料合成，进去连个传奇都不掉，垃圾东西，还不如刷别的地方呢
内&&容:使用签名档&&
保存至快速回贴
为兴趣而生，贴吧更懂你。&或男人怎么样找对象_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
男人怎么样找对象
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢

我要回帖

更多关于 win8在哪里输入激活码 的文章

 

随机推荐