3. 上机调试各程序。调试程序时，要充分注意和利用编译、连接和运行时计算机给出的信息，要求能够根据这些信息，较熟练地判断出程序的语法错误和一般的逻辑错误。 4. 选择一些有代表性的数据作为输入，运行程序。 5. 详细记录数据的输入、输出，并对实验结果进行分析。 三、实验内容
1. 下面程序的功能是从键盘输入一个长度不超过20的字符串STR，统计其中大写字母A的个数N。在标注行有错，请改正。 PROGRAM EXAM IMPLICIT NONE
CHARACTER(LEN=20)::STR INTEGER::I,N
READ '(I20)',STR !<==ERROR1 N=1 !<==ERROR2 DO I=1,20
IF(STR(I,I)='A') N=N+1 !<==ERROR3 END DO
PRINT '(1X,I6.2)',N END PROGRAM EXAM ERROR1处正确的语句是： ERROR2处正确的语句是： ERROR3处正确的语句是：
2. 下面程序的功能是从第2列开始打印下面图形： A A A A A A A 请在下划线处填上适当的内容,以完成题目的要求。
PROGRAM EXAM INTEGER::I
CHARACTER(LEN=5)::LINE LINE=' ' DO I=1,4
LINE( ) ='A' PRINT *,LINE LINE=' ' END DO DO I=1,3
LINE( )='A' PRINT *,LINE
END DO
END PROGRAM EXAM
3. 程序设计
⑴ 编程打印下面图形：
******************************* **********⑵ 输入一行字符串，将其中的小写字母转换成大写字母，输出转换后的字符串。 四、实验说明
1. 对于程序设计题⑴，可以采用字符串的方法或者字符数组的方法来求解。
2. 对于程序设计题⑵，可以采用字符串的方法或者字符数组的方法来求解。注意小写字母与其对应的大写字母ASCII码的差值为32。 五、思考题
1. 输入一段字符，每个单词以空格分隔，统计单词的个数。 2. 输入一段字符，统计其中某个字母出现的概率（不区分大小
写）。
2.8 派生类型
一、实验目的
1. 理解派生类型概念，掌握派生类型的定义和使用方法。 2. 能够用正确的方法给派生类型变量、赋值、输入和输出。 3. 理解成员的概念，能够用派生类型进行学生档案、职工档案等信息处理。 二、实验要求
1. 认真复习教材第8章的内容。
2. 按照编程题目的要求设计算法，并写出程序。
3. 上机调试程序。调试程序时，要充分注意和利用编译、连接和运行时计算机给出的信息，要求能够根据这些信息，较熟练地判断出程序的语法错误和一般的逻辑错误，逐步掌握程序调试的一般方法和手段。
4. 在进行输入输出时，给出一些提示性的语句以加强程序的友好性。
5. 详细记录数据的输入、输出信息，并对结果进行分析。 三、实验内容
1. 已知有4个学生的记录，每个学生有学号、姓名、3门课成绩。下面程序功能是输出这4位学生的学号、姓名、3门课成绩和每位学生的总分。在标注行有错，请改正。
程序如下：
IMPLICIT NONE TYPE STUDENT INTEGER::XH
CHARACTER(LEN=10)::NAME REAL,DIMENSION(4)::CJ END TYPE STUDENT
DIMENSION(4)::A !<==ERROR1 INTEGER::I,J REAL::S DO I=1,4
READ *,A(I)%XH,A(I)%NAME S=0
DO J=1,4 !<==ERROR2 READ *,A(I)%CJ(J) S=S+A(I)%CJ(J) END DO
CJ=S !<==ERROR3 END DO DO I=1,4 PRINT
'(1X,I6,2X,A10,2X,4F6.1)',A(I)%XH,A(I)%NAME,(A(I)%CJ(J),J=