首页/ 公务员考试

求一个Fortran编写行列互换代码。

 2024-12-21 06:36:01  阅读 725  评论 0

摘要：integer,parameter::row=4,ll=6real,dimension(:,:),allocatable::bb,ccallocate(bb(row,ll))allocate(cc(ll,row))do i=1,rowread(12,*)(bb(i,j),j=1,ll)enddodo i=1,rowdo j=1,llcc(j,i)=bb(i,j)enddoenddodo i=1,llwrite(13,*)(cc(i,j),j=1,row)enddo仅供参考是网页木马on

integer,parameter::row=4,ll=6

real,dimension(:,:),allocatable::bb,cc

求一个Fortran编写行列互换代码。

allocate(bb(row,ll))

allocate(cc(ll,row))

do i=1,row

read(12,*)(bb(i,j),j=1,ll)

enddo

do i=1,row

do j=1,ll

cc(j,i)=bb(i,j)

enddo

enddo

do i=1,ll

write(13,*)(cc(i,j),j=1,row)

enddo

仅供参考

是网页木马

检查你的程序有没有什么漏洞

版权声明：我们致力于保护作者版权，注重分享，被刊用文章【求一个Fortran编写行列互换代码。】因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理! 部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!；

原文链接：https://www.yxiso.com/offcn/653110.html

上一篇：考教师资格证有什么要求不是师范专业能报名吗
下一篇：2022北京公务员考试进面分数线

发表评论:

阅读排行
猜你喜欢
热门标签
相关分类
关于我们
院校搜的目标不仅是为用户提供数据和信息，更是成为每一位学子梦想实现的桥梁。我们相信，通过准确的信息与专业的指导，每一位学子都能找到属于自己的教育之路，迈向成功的未来。助力每一个梦想，实现更美好的未来！
快捷菜单
搜索内容
教育资讯
学习方法
院校大全
联系方式
电话：
地址：广东省中山市
Email：beimuxi@protonmail.com

Copyright © 2022 院校搜 Inc. 保留所有权利。 Powered by BEIMUCMS 3.0.3

页面耗时0.0349秒, 内存占用1.99 MB, 访问数据库22次

陕ICP备14005772号-15