永发信息网

Fortran一个程序是写文件,写入10个学生的学号和数学成绩,并输出显示在输出屏幕。

答案:2  悬赏:40  手机版
解决时间 2021-01-03 16:34
.编写两个程序,一个程序是写文件,写入10个学生的学号和数学成绩,并输出显示在输出屏幕。一个程序是调用上个程序写入的文件,然后进行统计,分别统计出不及格的学生个数并列出其学号,成绩,及格(60-70)的学生个数并列出其学号、成绩,良好(70-80))的学生个数并列出其学号、成绩,优秀(80-100)的)的学生个数并列出其学号、成绩,

学号
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010

成绩
48
83
62
78
95
86
67
52
90
85
最佳答案
在一个程序中实现你的要求:

dimension no(100),score(100)
integer no,score
n=10

c 读数据
do 10 i=1,n
read(*,*) no(i),score(i)
10 continue

c 将数据输出到屏幕
do 12 i=1,n
write(*,*) no(i),score(i)
12 continue
write(*,*)

c 将数据写入文件cj.out
open(99,file='cj.out',status='unknown')
do 15 i=1,n
write(99,*) no(i),score(i)
15 continue
close(99)

c 读刚生成的cj.out文件
open(1,file='cj.out')
do 18 i=1,n
read(1,*) no(i),score(i)
18 continue
close(1)

m=0
do 19 i=1,n
if (score(i).lt.60) then
m=m+1
write(*,*) no(i),score(i)
endif
19 continue
write(*,*) '不及格人数=',m
write(*,*)

m=0
do 20 i=1,n
if (score(i).ge.60.and.score(i).lt.70) then
m=m+1
write(*,*) no(i),score(i)
endif
20 continue
write(*,*) '60~70之间人数=',m
write(*,*)

m=0
do 21 i=1,n
if (score(i).ge.70.and.score(i).lt.80) then
m=m+1
write(*,*) no(i),score(i)
endif
21 continue
write(*,*) '70~80之间人数=',m
write(*,*)

m=0
do 22 i=1,n
if (score(i).ge.80) then
m=m+1
write(*,*) no(i),score(i)
endif
22 continue
write(*,*) '80以上人数=',m
write(*,*)

pause
end
全部回答
期待看到有用的回答!
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
香水中etd是什么意思
如何用premiere制作一个帷幕向上下拉开的效果
以正方形ABCD的BC边为直径作半圆O,过点D作直
单选题《盛世危言》指出:“……置之,灾民流
如果婚姻的一方已经对另一方没有感情了怎么办
油漆干燥后大片脱落什么情况?
刘雨佳这个名字多少分
男孩用英文怎么写
电动机是一种高效率,低污染的动力设备,广泛
在百度云上申请域名后,如何做网站
有谁知道小米6屏碎了还能正常操作吗?
关于相邻两个时区的说法,正确的有A.区时相同
涧西区洛阳谷水老任卤肉地址在哪,我要去那里
卡版是什么意思
南昌从口腔医院到秋水广场
推荐资讯
开鲁县工商行政管理局建华工商所办公地址在什
六店居委会地址在哪?我要去那里办事
在密闭容器中的酵母菌细胞,葡萄糖被氧化分解
单选题下列句子中句式结构不同于其他三项的一
台儿庄区交警大队办公位置在哪啊?好找么?
乌龟能吃素食吗?是巴西龟
下列各组词语,有两个错别字的一组是A.天理昭
跪求“期待在地下城邂逅有错吗”的TXT版本,
艾艾贴效果好不好?
新生有网络吗想上网怎么办
代数式是什么意思
男的发不再见啥意思
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?