小木虫 --- 700万学术达人喜爱的学术科研平台
热门搜索：
&&找不出毛病不知怎么改？
找不出毛病不知怎么改？
计算系数矩阵为上三角的线性方程组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 如果不带 then 需要写成一行，如果写成两行，应该有 then 和 end if
嗯。　if construct 和 if staent 的区别，
学术必备与600万学术达人在线互动！
扫描下载送金币
北京学而思教育科技有限公司 地址：北京市海淀区北三环甲18号中鼎大厦A座1层102室 电话：010-我不小心更改了，现在不知道是什么语言，谁知道怎么改回去？？？
我的是3310，按功能键，然后输入6213即可...
其他答案（共2个回答）
设置 里面有一项 语言 ，里面便可更改！
谢谢！
打开控制面板选/用户账户/更改账户/点击原来的“账户名”/更改我的密码/输入新密码，再次输入新密码，然后点击“更改密码”按钮即可。
答: 是因为有些记录信息直接会保存在那个手机里面的,所以在这边应该是找不到的,你自己可以登录账号来找回以前的信息就可以了。
答: 一般说来
全国联保的有发票等都是可以的
数码相机等都需要有正规发票的，而且不能有私自拆开过，
但是网上买数码产品风险大
高价值的东西不推荐购买！
答: 电脑与手机数据传输时,手机要开机的。
数码相机与电脑相连时，数码相机也要打开的。
答: 打当地的114摸一下底，看经营手续是否齐全，网友的评价可以作为参考意见，价格如果低于正常价的20%，最好别动心。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415正在加载验证码......
请先拖动验证码到相应位置育成偶像之卵汉化修改版怎么样 好玩吗_图文攻略_全通关攻略_高分攻略_百度攻略
育成偶像之卵汉化修改版怎么样?游戏的汉化版好不好玩?修改后还会不会存在语言上的障碍。百度攻略&魔方网小夕告诉大家育成偶像之卵汉化修改版完全让你没障碍。这款游戏是由魔方扑家汉化组为大家汉化的，游戏的汉化解决了玩家玩游戏遇到的困难，比如不知道对方说什么啊，不知道如何操作啊等，下面看看游戏的具体信息吧!精彩内容，尽在百度攻略：https://gl.baidu.com基本信息：游戏名称：育成偶像之卵游戏语言：游戏可运行的语言种类精彩内容，尽在百度攻略：https://gl.baidu.com游戏类型：养成类完美汉化版下载：点我下载游戏的汉化给玩家提供了很大的方便，对于喜欢养成类游戏的朋友不要错过这场萌妹子的邀请!游戏中的你担当制作人，你的目标是要培养出万人迷，让她们顺利的出道，同时要收集20多张图鉴。精彩内容，尽在百度攻略：https://gl.baidu.com游戏中的汉化修改版让你很快的进入游戏中，萌妹子的各种动作，动听的音乐，细腻的画面无不吸引着玩家。游戏的玩法非常简单，购买一个蛋，然后孵化它。对于蹦出的美少女们进行各方面的培养，最后在你觉得合适的时机，让她登台演出!这款游戏带给小夕最大的乐趣是亲手培养出一个个歌手的成就感，还有就是收集癖们的图鉴又来了!你们懂的!所以如果你喜爱这款游戏就下载游戏的汉化修改版，绝对让你玩个够。游戏最后，小夕祝大家玩的愉快!每天好心情!精彩内容，尽在百度攻略：https://gl.baidu.com
相关攻略推荐欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 3281 人关注过本帖
标题：编程实现成绩转换：要求输入100分以上时，输出“输入错误”，我不知道该怎么 ...
等　级：新手上路
帖　子：78
结帖率：78.57%
&&已结贴√
&&问题点数：10&&回复次数：13&&&
编程实现成绩转换：要求输入100分以上时，输出“输入错误”，我不知道该怎么编，这是我写的程序，应该如何改？
#include&stdio.h&
void main()
&&& int score,
&&& printf(&please input a score:&);
&&& scanf(&%d&,&score);
&&& grade=score/10;
&&& switch(grade)
&&& case 10:printf(&优秀\n&);
&&& case 9:printf(&优秀\n&);
&&& case 8:printf(&良好\n&);
&&& case 7:printf(&中\n&);
&&& case 6:printf(&及格\n&);
&&& case 5:
&&& case 4:
&&& case 3:
&&& case 2:
&&& case 1:
&&& case 0:printf(&不及格\n&);
&&& default:printf(&输入错误\n&);
搜索更多相关主题的帖子:
&&&&&&&&&&
等　级：新手上路
加入一句判断，
if(score&100)
printf(&输入错误&);
&&& grade=score/10;
&&& switch(grade)
&&& case 10:printf(&优秀\n&);
&&& case 9:printf(&优秀\n&);
&&& case 8:printf(&良好\n&);
&&& case 7:printf(&中\n&);
&&& case 6:printf(&及格\n&);
&&& case 5:
&&& case 4:
&&& case 3:
&&& case 2:
&&& case 1:
&&& case 0:printf(&不及格\n&);
&&& default:printf(&输入错误\n&);
等　级：论坛游民
帖　子：36
专家分：42
#include&stdio.h&
void main()
&&& int score,
&&& printf(&please input a score:&);
&&& scanf(&%d&,&score);
&&& if(score&100)
&&& printf(&输入错误&);
&&& grade=score/10;
&&& switch(grade)
&&& case 10:printf(&优秀\n&);
&&& case 9:printf(&优秀\n&);
&&& case 8:printf(&良好\n&);
&&& case 7:printf(&中\n&);
&&& case 6:printf(&及格\n&);
&&& case 5:
&&& case 4:
&&& case 3:
&&& case 2:
&&& case 1:
&&& case 0:printf(&不及格\n&);
&&& default:printf(&输入错误\n&);
等　级：新手上路
帖　子：78
用switch语句可以实现吗
等　级：新手上路
帖　子：78
回复 2楼 nba88lin
输入100，得不到优秀
等　级：新手上路
#include&stdio.h&
void main()
&&& int score,
&&& printf(&please input a score:&);
&&& scanf(&%d&,&score);
&&& if(score&100 || score&0)
&&&&&&&&printf(&输入错误\n&);
&&&&&&&&grade=score/10;
&&&&&&&&switch(grade)
&&&&&&&&case 10:printf(&优秀\n&);
&&&&&&&&case 9:printf(&优秀\n&);
&&&&&&&&case 8:printf(&良好\n&);
&&&&&&&&case 7:printf(&中等\n&);
&&&&&&&&case 6:printf(&及格\n&);
&&&&&&&&case 5:
&&&&&&&&case 4:
&&&&&&&&case 3:
&&&&&&&&case 2:
&&&&&&&&case 1:
&&&&&&&&case 0:printf(&不及格\n&);
不积跬步，何以至千里。
等　级：论坛游侠
帖　子：63
专家分：151
单纯用switch无法实现，当score&=100的时候，grade都等于10，必须加一个判断语句判断分数是等于100，还是大于100，这个判断语句可以放在switch前面，也可以放在case10里面。
等　级：新手上路
帖　子：78
回复 6楼 Bravado
程序正确，可以得到正确结果
等　级：新手上路
帖　子：78
回复 7楼 Eumenides_me
不能放在case语句里吧，如果放在里面的话，会得到两个“输入错误”。
等　级：职业侠客
帖　子：139
专家分：313
程序没有问题。
版权所有，并保留所有权利。
Powered by , Processed in 0.072317 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights Reserved}