Fortran的一道简单的编程题目 5C

要求:写一个Fortran90 fixed format程序,名字:student_info.F,包括内容如下:
建一个学生档案,学生的信息包括学号(整型),计算机成绩(实型),同时这些信息从屏幕(log in node)读入,读入后进行判断:如果成绩高于90分,输出“excellent”,如果是80-89,输出“Good”,如果是“60-79”,输出“Fair”,其余的输出“Fail”
我写的代码如下:
program assignment3
type :: person
integer :: schoolnumber
real :: score
character :: grade

    end type person
    type (person) :: a

    character(len=12) b
    character(len=10) c
    character(len=10) d
    character(len=10) e
     b = "Excellent!"
     c = "Good!"
     d = "Fair!"
     e = "Fail!"

    write(*,*) "School number:"
    read(*,*) a%schoolnumber
    write(*,*) "Score:"
    read(*,*) a%score

    if (score >= 90) then
    grade = "b"
    else if (score >= 80) then
    grade = "c"
    else if (score >= 60) then
    grade = "d"
    else if (score >= 0) then
    grade = "e"
    else
    grade = '?'
    end if

    write(*,"('Grade:',A10)") a%grade


    write(*,100) a%schoolnumber,a%score,a%grade

100 format(/,"School number:",A10/,"Score:",A2/,"Grade:",A10)

    end

请问如何修改呢?

0

1个回答

-1
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
[杜教筛 反演] LOJ#6229. 这是一道简单的数学题
推一推式子可以得到 ans=∑d=1n∑i=1⌊nd⌋∑j=1iij[gcd(i,j)=1]ans=\sum_{d=1}^n\sum_{i=1}^{\lfloor{n\over d}\rfloor}\sum_{j=1}^i ij[\gcd(i,j)=1]nn有一个经典的等式是 ∑i=1ni[gcd(i,n)=1]=[n=1]+nφ(n)2\sum_{i=1}^ni[\gcd(i,n)=1]={[n
写程序来解决一道小学数学题
默默学习编程一年,因故遇到一道小学数学题。心想:“然也,编程用武之地也!”于是博主便打开电脑狂撸一番,遂解决。拿来与同志们一乐。n题目描述如下:代码如下: nstatic char[] operator=new char[16];//储存运算符 n static int[] number=new int[16];//储存数字 n static int[] selected=new int
fortran小程序
一个非常简单的fortran练手小程序,一个非常简单的fortran练手小程序
一道小学数学题:ZigZag Conversion
题目描述nnThe string “PAYPALISHIRING” is written in a zigzag pattern on a given number of rows like this: (you may want to display this pattern in a fixed font for better legibility)nP A H NnA P L S...
一些简单的编程题(函数应用练习)
1. 定义函数,输入3个参数,求和。-----2. 定义函数,输入年份,判断年份是否是闰年------3. 定义函数,打印1999--2050年中间所有的闰年。------4. 定义函数,输入一个日期,判断该日期是否合法;例如:输入 2015-2-29不合法。------5. 定义函数,用最好的排序法进行排序数列。------1.<!DOCTYPE html>n<html lan...
一道简单的入门pwn题
这是一道入门的pwn题nn链接:https://pan.baidu.com/s/1vltSv8tJYrqKw8vATxwNYA 密码:f0qynnn拿到题先用file命令查看一下文件信息 n n可以看到是32-bit 的elf文件,用32位的IDA打开。n首先进入main函数,F5反编译后分析代码 n n定位到输入的参数&s,可以看到参数s分配的空间。这一题通过覆盖的方式执行_system...
机器人大作战-oj选拔题(七道题-题目及源代码)
一、等凸函数问题描述:    定义一种数字称为等凹数字,即从高位到低位,每一位的数字先递减再递增,且该数是一个回文数,即从左读到右与从右读到左是一样的,仅形成一个等凹峰,如543212345,5544334455是合法的等凹数字,543212346,123321不是等凹数字。现在问你[L,R]中有多少等凹数字呢?L,R<=1e18(小于等于2位的无凹峰)输入:    第一行一个整数T,表示有...
洛谷P3768:简单的数学题 (杜教筛)
题目传送门:https://www.luogu.org/problem/show?pid=3768题目分析:我们来看一下,原先题目要我们求: n∑i=1n∑j=1nijgcd(i,j)\sum_{i=1}^{n} \sum_{j=1}^{n} ijgcd(i,j) n我们变形一下,将j只枚举到i。则原式转化成: n2∑i=1ni∑j=1ijgcd(i,j)−∑i=1ni32 \sum_{
Cuda & Fortran简单的例子
简单的cuda&fortran小程序
2017图灵杯问题F 一道简单的递推题()
题目描述nnn存在如下递推式:nF(n+1)=A1*F(n)+A2*F(n-1)+...+An*F(1)n求第K项的值对1000000007取模的结果nnnn输入nn单组测试数据n第一行输入两个整数 n , k (1n第二行输入 n 个整数 F(1)   F(2)   ...   F(n)n第三行输入 n 个整数A1   A2   ...   An nnn输出
Fortran简介及第一个程序hello world!
1、Fortran=Formula Translator/Translation可以把接近数学语言的文本翻译成机械语言。从一开始,IBM设计的时候就是为了方便数值计算和科学数据处理。设计强大的数组操作就是为了实现这一目标。nFortran奠定了高级语言发展的基础。现在Fortran在科研和机械方面应用很广。n2、Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实很多。
qduoj 一道非常简单的签到题
一道非常简单的签到题rnrnrn发布时间: 2016年7月2日 20:32   最后更新: 2016年7月2日 21:48   时间限制: 1000ms   内存限制: 128Mrnrn描述rnrn给你k,a,b三个数,问[a,b]区间内有多少个数可以整除k。(n / k == 0)rnrnrnrn输入rnrn多组输入,即输入包括多行,每行三个数k,a,b。 其中1 ≤ k ≤ 10^18,-10
OJ.3157: 这是一道简单题
3157: 这是一道简单题rnTime Limit: 1 Sec  Memory Limit: 128 MBrnSubmit: 139  Solved: 10rn[Submit][Status][Webrn Board]rnrnDescriptionrnrn为了准备即将到来的考试,小欣每天都在努力练习。rnrn考试开始了,总共有 n 道题目。rnrn对于第 i 道题,小欣可以在 ti 分钟内做出来
google面试的一个简单的白板编程题。
之前在CSDN的推文上看到了一篇关于google面试的面试题。题目考察的是白板编程。nn给出的编程要求是:nn/*['Tokyo','London','Rome','Donlon','Kyoto','Paris']*/nn/*nn ['Tokyo','Kyoto']nn ['London','Donlon']nn ['Rome']nn ['Paris'] nn */nn/*一个城市名...
马克思手稿中的趣味数学题
题目内容:编程求解马克思手稿中的趣味数学题:有30个人,其中有男人、女人和小孩,在一家饭馆里吃饭共花了50先令,每个男人各花3先令,每个女人各花2先令,每个小孩各花1先令,请编程计算男人、女人和小孩各有几人?#include <stdio.h>nmain()n{n printf("Man Women Children\n");n int i,j,k;n for...
一道Python编程题(类方法,getitem与setitem)
一些说明: n题目由来最近加了个接单做大学生编程作业的兼职群,13日一单的其中一道题,然而那单已经被退回去了,因为群里发的时候,我没看到。。感觉题目挺有意思,就花几个小时做了一下。 n有两个坑的地方,一个是Account表里是a_id,所以pymysql返回的字典的key是‘a_id’,而下面是{‘id’:’a01’,’balance’:500},所以如果采用 user=bank_user(‘u
一道pwn入门的练习题
直接以一个非常简单的栈溢出例子(基于Linux)来讲解pwn所要用到的一些常用的工具及命令的用例
fortran简易教程(适合快速入门)
fortran简易教程,比较简单,适合快速入门。
计算2的幂
准备了一道最简单的与幂运算的题目:n给定非负整数 n,求 2^nn输入格式n一个整数 n。n0≤n<31。n输出格式n一个整数,即 2 的 n 次方。n代码并不难,不懂的小伙伴得去学习一下 power 的用法n#include <stdio.h>nint power(int x,int n); /* x 表示底数,n表示幂次*/ nint main()n{n int n...
学习python,看到一个有趣的题目,就练习了一下
0到9的10个数,要求组成两个5位数a和b,构成a和b中的数字不重复,并且 a + 20085 = bnnn代码实现,随手写的不是很规范nnn = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]nk = 20085nnndef validate(num: int):n total = num + knn if total > 99999:n retur...
GFOJ686 序列操作(分段DP,未高精)
数据会举出,还需要有高精度。n#includen#includen#includenusing namespace std;nnconst int maxSize=1000;nconst int maxValue=1024;nint n,a[maxSize+5],i,j,k,m,ans;nint fAnd[maxSize+5][maxValue],fXor[maxSize+5][maxValue
c语言 有关数组的入门简单题
(1)题目是:编写C语言程序,求2个一位整型数组的积 nnn代码如下nn#include <stdio.h>nint main()n{n int a[105],b[105],n;n int c[105]; //定义数值n while(~scanf("%d",&n))n {n for(int i=1;i<=n;i++)//这是第二行的输...
GFOJ686 序列操作
CJJ被SCOI2012那道序列操作做吐了,于是他想出了一道简单的序列操作的题目自我安慰。rn有一个包含n个数序列的Ai,她想找出两个非空的集合S、T。rn这两个集合要满足以下的条件:rn1、两个集合中的元素都为整数,且都在[1,n] 里,即Si,Ti∈[1,n]。rn2、对于集合S中任意一个元素x,集合T中任意一个元素y,满足x rn3、对于大小分别为p, q的集合S与T,满足:rnA[s1]
题目-剥洋葱
5-14 剥洋葱   (15分)rnrnrnrn布告,布告! 应老师要求,我们要做一道打印图形的题目,这是程序员最基本的能力。 那废话不多说,我们来说要求的图形 AAAAA ABBBA ABCBA ABBBA AAAAA 就是外到内,从A到Z。每一层都是一种字母,最里面的一层为一个,即最中心的一个。rn输入格式:rnrn一行,一个整数,即图形的层数rn输出格式:rnrn如上述图形rn输入样例:rn
一道难倒清华学霸的区块链相关选择题
今天,一个毕业于清华大学的学霸朋友跟我说,他遇到了一个困惑,跟区块链相关。听他描述,我感觉事态很严重。难道是因为近期数字货币价格下跌?但是我不是庄家,币价的涨跌我爱莫能助啊。难道是IBM和微软同时给他发了Offer,他无从选择?手握今日头条一大笔期权,清华学霸应该不至于想不通。原来,真相是这样的,这位清华学霸近期相继看到了三条资讯,都是行业巨头布局区块链相关的信息。作为清华学霸,他却无法判断哪个布
pku 1113 代码
是一道简单的凸包题目....代码详细...
编程题“奇怪的数组”
package com.test.nowcode1;nnimport java.util.ArrayList;nimport java.util.List;nimport java.util.Scanner;nn/**n * n * zhrt是数学大佬,但有一天一道奇怪的数学题把他难住了: n * 题目要求计算两个十进制数相加后的结果,但在本题中是不需要进位的!n * 输入描述: 输入有多组(组数...
牛的排序 代码
C++代码 一道简单的poj题目 快速排序
凸包 pku 2007
一道凸包题目..简单题....代码易懂.........
一个防AK的题
一个防AK的题目 n时间限制(普通/Java) : 1000 MS/ 3000 MS          运行内存限制 : 65536 KByten总提交 : 181            测试通过 : 68 nn描述 n请看输入 nn输入 n处理到文件末尾n每组的第一行包含格式如下:na + bn(0n输出 nn每组输出包含一行,就是结果n样例输入 n1000000
常应变三角形单元有限元程序(Fortran,附算例)
程序在Intel Parallel Studio XE 2013 with VS2013中成功运行,程序为《计算力学》(龙述尧等编)一书中的源程序,仅作研究学习使用。
java 课程作业
关于编程的一道题目,很是困难呢,忘高手指教
哈希(poj相关题目)
hash
一道奥数题的简单实现
package com.m;rn/*某一实验,共在教室里安放200盏灯,并由1-200号同学分别按自己的倍数去开,关灯,问:200名同学依次按完后,有几盏灯开着?rn * (提示:比如1号按1到200号灯,2号按2,4,6,8...200号灯,先前室内灯都是关的)*/rnpublic class SwitchProblem {rn    public static void main(String
华为面试的一道题目 真的是佩服自己好菜,时间到了才做出来
输入:n3n0x62 0x80 0x00n2n4n5n///n输出:n6n5上面3表示连续输入3个 十六进制:0x62 0x80 0x00 二进制为 01100010 1000000 000000002表示连续输入两个数:4,5。即先取上面二进制的前四个,转为整数0110即为6,00101即为5#include<stdio.h>nint main(){n char temp[10000...
一道华为2016机试题总结:“最高分是多少”
关于题目的描述见最高分是多少。n话不多说,直接上代码:n#includen#includennusing namespace std;nnint findmax(vector v,int st,int en)n{n int max = 0,tmp;n if(st>en)n {n tmp = st;n st = en;n en = tmp;n }n for(int i = st-1;i<e
科学计数法的两道题
问题 A: 字符串处理 http://codeup.cn/problem.php?cid=100000598&amp;amp;pid=0n1024 科学计数法 (20 分) https://pintia.cn/problsets/994805260223102976/problems/994805297229447168n我对这种题目处理都很头痛,因为要处理‘E’,‘e’,’-’,’.'等字符。n问题A我...
map 入门简单例题(STL)+ pair的简单使用
使用map.count(str),返回的是被查找元素str的有无情况, 如果有,返回1;否则,返回0nnmap.find() 返回的是被查找元素的地址,若元素不存在则返回的是map.end()nn nnHDU1004   Let the Balloon RisennDescriptionnn在ACM比赛中,你每解决一道题,你就可以获得一个气球,不同颜色的气球代表你解决了不同的问题。在WJL同学参加...
Fortran95程序设计课后习题答案(word版方便)
Fortran95程序设计是经典的Fortran入门教程,这是课后习题的答案(word版方便)
Python 练习册,每天一个小程序:题目代码
n#第 0001 题:做为 Apple Store App 独立开发者,你要搞限时促销,为你的应用生成激活码(或者优惠券),n#使用 Python 如何生成 200 个激活码(或者优惠券)?nimport string,randomn#letters大小写字母,digits0-9数字nfield=string.ascii_letters + string.digitsn#将16位随机码生成字符串n...
文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习
相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 数据库系统课程题目 区块链课程题目