FORTRAN90实验(3)

出错因素，这是程序静态调试的方法。

4. 上机过程中，要注意屏幕上显示的信息，并学会根据计算机所给出的信息修改程序，这是程序动态调试的步骤之一。 五、思考题

1. 编程求方程X+3X-1=0的根。

2. 任意输入一个三位数，编程求其个位数字、十位数字和百位数字并输出。

2.3 选择结构程序设计

一、实验目的

1. 掌握关系表达式、逻辑表达式的正确书写形式，能够画出分支结构的结构化流程图。

2. 掌握逻辑IF语句、块IF语句、多重条件IF语句、CASE结构等语句的语句格式、基本功能及执行过程。

3. 掌握选择结构程序设计的一般方法，能够用多种方法编写同一程序。

4. 熟练掌握分段函数、求一元二次方程根等问题的算法。 二、实验要求

1. 认真复习教材第2章的内容。

2. 按照题目要求，对编程各题画出流程图。根据流程图，编写出各题的程序，并认真进行静态检查。

3. 对于程序设计题⑴，要求用X=-2，X=0，X=3三个值分别检

2

验程序，并输入X的值为-1、1，分析程序运行结果。 4. 对于程序设计题⑵，要求分别输入各分数段的成绩，分析程序运行结果。

5. 对于程序设计题⑶，要求分别用下面三组输入来验证程序： 1,6,9 2,5,3 3,6,5

6. 详细记录输入数据、输出数据，并分析实验结果。三、实验内容 1. 运行下面程序：

PROGRAM EX1 IMPLICIT NONE INTEGER::A,B,C A=5;B=3 C=A.AND.B PRINT *,C

END PROGRAM EXAM1 运行结果是：

2. 运行下面程序：

PROGRAM EX2 LOGICAL::L1,L2,L3

L1=.TRUE. L2=2>3

L3=.NOT.L2.AND.L1 PRINT *,L1,L2,L3 END PROGRAM EX2 运行结果是： 3. 程序设计

?0?2y?⑴ 计算函数：?x?e?1?(x??1)(?1?x?1) (x?1)⑵ 由键盘输入学生成绩，要求输出该成绩的等级A, B, C, D, E。其中60分以下为E；60~70分为D；70~80分为C；80~90分为B；90~100分为A。要求分别用块IF和块SELECT CASE语句编写。

2⑶求一元二次方程ax?bx?c?0的根，a，b，c由键盘输入。

四、实验说明

1. FORTRAN 90语言中选择结构程序设计，用块IF语句、逻缉IF语句、多重条件IF语句、CASE结构来实现。对于“单边”的分支结构，一般可用不包含ELSE块的块IF语句来实现，若分支中只包含一个语句，则可以由逻辑IF语句来实现；对于“双边”的分支结构，可以用包含ELSE块的块IF 语句来实现；对于多分支结构，一般可以用多重条件IF语句或CASE结构来实现。

2. 在选择结构程序的调试中，要注意各个分支的正确性，在静态检查无错，编译、连接通过的情况下，可以选择多组数据作为输入来运行程序，这些数据分别“走过”各条支路，以验证程序中各条支路的正确性。 五、思考题

1. 输入三个数A、B、C，找出其中最小的数输出。

2. 输入一个整数，判断是否为7的倍数，若是，则输出“YES”，否则输出“NO”。

2.4 循环结构程序设计

一、实验目的

1. 理解循环的概念，掌握几种循环语句的语句格式、语句功能及执行过程，能够画出循环结构的流程图。

2. 理解循环嵌套的概念，掌握循环嵌套的基本结构及执行过程。 3. 掌握循环结构程序设计的一般方法，能够灵活运用几种循环语句和循环嵌套编写简单的程序。

4. 熟练掌握求各种级数、阶乘和判断素数等问题的算法。 二、实验要求

1. 认真复习教材第3章的内容。

2. 按照编程题目的要求设计各题的算法，画出相应的结构化流程图。

3. 按照流程图编写出各题的程序，并仔细进行逻辑结构和语法

结构的检查。

4. 掌握循环程序调试的特点，在必要的时候可采用设置断点的方法，查看循环过程中变量的变化情况。

5. 详细记录数据的输入、输出信息，并对结果进行分析。 三、实验内容

1. 下面程序功能是求正整数M，N的最小公倍数。在标注行有错，请改正。

PROGRAM EXAMPLE IMPLICIT NONE INTEGER::M,N,K,T,I READ*,M,N I=1

IF (M

DO WHILE ( MOD(K,N) =0) !<==ERROR2 I=I+1

K=K*I !<==ERROR3

END DO PRINT *,K END

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库FORTRAN90实验(3)在线全文阅读。