Fortran语言上机实验报告7.doc

FORTRAN语言实验（上机）报告班级学号 桥三 201118020312 姓名 周佳程 实验日期 11.23 任课教师 吴建华 实验名称实验七 派生类型和指针程序设计操作型一、实验目的（1）掌握结构体的概念、定义、格式及引用和初始化方法；（2）掌握结构体数组的定义； (3) 掌握指针的概念、定义格式和使用；(4) 理解动态变量的含义。二、实验内容：1、有以下程序：IMPLICIT NONETYPE person CHARACTER name *8 REAL salary REAL award REAL costEND TYPEINTEGER I,J,NUMPARAMETER (NUM=10)TYPE (person) , DIMENSION ( NUM ):clerkDO i=1,NUM READ *,clerk(i).name, clerk(i).salary, clerk(i).award, clerk(i).costEND DODO J=1,NUM IF(clerk(j).salary + clerk(j).award clerk(j).cost=1200)THEN PRINT * , clerk(j).name, clerk(j).salary, clerk(j).award, clerk(j).cost END IFEND DOEND运行程序，输入以下数据：“Lister”,876,451,123“Angel”,746,523,23“Billy”,912,551,243“Henry”,926,660,314“Ervine”,676,481,103“Ford”,816,351,89“George”,936,451,145“Mailer”,766,480,98“Philip”,880,560,168“Victor”,660,440,86输出结果为： 。2、以下程序用于在屏幕上输出如下图形：12 13 2 14 3 2 15 4 3 2 1IMPLICIT NONEINTEGER，POINTER：p(：)INTEGER，TARGET：X(5,5)INTEGER ix=0DO i=1,5 p=x(1:i,1) p=p+1PRINT *,pEND DOEND请将程序略作修改，用于输出下列图形：(1) (2)1 1 1 1 1 12 2 2 2 2 23 3 3 3 3 34 4 4 4 4 45 5 5 5 5 5三、实验平台 Fortran PowerStation 4.0四、程序清单及运行结果要求：第1题写出运行结果，第2题写出程序清单。1.输出结果为：“Lister”,876,451,123“Angel”,746,523,23“Billy”,912,551,243“Henry”,926,660,314“George”,936,451,145“Philip”,880,560,1682.(1)IMPLICIT NONEINTEGER,POINTER:P(:)INTEGER,TARGET:X(5,5)INTEGER IX=0DO I=5,1,-1 P=X(1:I,1) P=5-I+1PRINT *,PEND DOEND(2)IMPLICIT NONEINTEGER,POINTER:P(:)INTEGER,TARGET:X(5,