ImageVerifierCode 换一换
格式:PPT , 页数:15 ,大小:52KB ,
资源ID:766697      下载积分:11 金币
验证码下载
登录下载
邮箱/手机:
图形码:
验证码: 获取验证码
温馨提示:
支付成功后,系统会自动生成账号(用户名为邮箱或者手机号,密码是验证码),方便下次登录下载和查询订单;
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/766697.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  

开通VIP折扣优惠下载文档

            查看会员权益                  [ 下载后找不到文档?]

填表反馈(24小时):  下载求助     关注领币    退款申请

开具发票请登录PC端进行申请。


权利声明

1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时联系平台进行协调解决,联系【微信客服】、【QQ客服】,若有其他问题请点击或扫码反馈【服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【版权申诉】”,意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4009-655-100;投诉/维权电话:18658249818。

注意事项

本文(Fortran结构体PPT课件.ppt)为本站上传会员【可****】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4009-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

Fortran结构体PPT课件.ppt

1、第九章第九章 结结构体构体9.1 9.1 派生派生类类数据数据类类型型格式:格式:TYPETYPE,ACCESS:ACCESS:派生派生类类型名字型名字 分量表分量表 END TYPE END TYPE 派生派生类类名名 ACCESSACCESS:访问访问方式,方式,PRIVATEPRIVATE(私有的)(私有的)PUBLIC PUBLIC(公共的)(公共的)默默认认方式方式为为 PUBLIC PUBLIC。分量表分量表:该类该类型中的成型中的成员项员项,每,每项项要有要有类类型型说说明。明。1P177 例:例:TYPE STUDENT CHARACTER(15)NAME INTEGER NU

2、M LOGICAL SEX CHARACTER(30)ADDRESSEND TYPE 9.2 9.2 结结构体构体变变量的定量的定义义与引用与引用一、一、结结构体构体类类型型变变量的定量的定义义格式:格式:TYPE(派生(派生类类型名)型名):结结构体构体变变量名量名例:例:TYPE(STUDENT):S1,S22 结结构体构体类类型可以嵌套定型可以嵌套定义义,即,即结结构体构体类类型的成型的成员员也可以也可以是另一个是另一个结结构体构体类类型的型的变变量。量。P177 P177 例:例:TYPE STUDENTRECORD CHARACTER(15)NAME INTEGER NUM LOGI

3、CAL SEX CHARACTER(30)ADDRESSEND TYPETYPE STUDENTTOGETHER TYPE (STUDENTRECORD):STUDENT REAL MATH REAL ENGLISH REAL CHINESEEND TYPE3若定若定义义 STUDENTTOGETHER STUDENTTOGETHER 结结构体构体变变量量 S S:TYPE (STUDENTTOGETHER):S则结则结构体构体变变量量 S 包含:三个包含:三个实实型型变变量量MATH、ENGLISH、CHINESE和一个和一个结结构体构体变变量量STUDENT,而,而STUDENT又包含又包

4、含NAME、NUM、SEX、ADDRESS四个成四个成员员。二、二、结结构体成构体成员员的引用的引用结结构体名构体名%成成员员名名结结构体名构体名.成成员员名名如:如:S1.NAME、S1.NUM S2%NAME、S2%NUM S%STUDENT%NUM49.3 9.3 结结构体构体变变量的量的赋值赋值一、用一、用赋值语赋值语句句给结给结构体成构体成员赋值员赋值P178 P178 例例9.1 9.1 职职工工工工资资表包含的数据有:姓名、性表包含的数据有:姓名、性别别、家庭住址、家庭住址、工工资资等,等,现计现计算三个算三个职职工工工工资资的平均的平均值值。TYPE CLERK CHARACT

5、ER(15)NAME LOGICAL SEX CHARACTER(30)ADDRESS INTEGER SALEND TYPETYPE(CLERK):S1,S2,S3 S1.SAL=800 S1.SAL=800 !也可用!也可用输输入入语语句句 READ*,S1.SAL READ*,S1.SAL S2%SAL=900 S2%SAL=900 S3.SAL=700 S3.SAL=700 AVER=(S1%SAL+S2.SAL+S3.SAL)/3 PRINT*,三个三个职职工的平均工工的平均工资为资为:,AVEREND5二、定二、定义变义变量的同量的同时赋值时赋值格式:格式:TYPE(派生数据派生数

6、据类类型名型名):结结构体构体变变量名量名 =派生数据派生数据类类型名(成型名(成员员初初值值表)表)例如:例如:TYPE TEACHER CHARACTER(12)NAME LOGICAL SEXEND TYPE TYPE(TEACHER):S1=TEACHER(“WU,.TRUE.),S2,S3赋值时赋值时,所,所给给的的值类值类型和个数型和个数应应与与结结构体构体变变量定量定义义中各成中各成员员的的类类型与个数保持一致。型与个数保持一致。可以将一个可以将一个结结构体构体变变量的量的值值直接直接赋给赋给另外一个另外一个结结构体构体变变量,量,6P180 例:例:INTEGER STYPE

7、STUDENTRECORD CHARACTER(15)NAME INTEGER NUM LOGICAL SEX CHARACTER(30)ADDRESSEND TYPE TYPE(STUDENTRECORD):S1,S2S1=STUDENTRECORD(ABCD,20,.TRUE.,CHANGSHA)S2=S1S=S2%NUM+S1%NUMPRINT*,SEND79.4 9.4 结结构体数构体数组组一般格式:一般格式:TYPE(派生派生类类型名型名),DIMENSION(维维数数说说明符明符,):结结构体数构体数组组名名 例:例:TYPE(STUDENT),DIMENSION(100):STU

8、8P183 例:例:职职工信息:工信息:职职工号、工号、职职工姓名、年工姓名、年龄龄、工、工资资,职职工工150人,存人,存储储信息后信息后统计统计工工资资低于低于500元的元的职职工数,并工数,并输输出相关信息。出相关信息。program clerkrecordimplicit noneinteger:k,itype clerk !定定义结义结构体构体类类型型 integer num character(15)name real salend type clerk type(clerk),dimension(150):cl !定定义结义结构体数构体数组组k=0Print*,输输入入职职工号工

9、号num:do i=1,150 read*,cl(i).num end do9print*,输输入入职职工姓名工姓名 name do i=1,150 read*,cl(i).nameend doprint*,输输入入职职工工工工资资 sal do i=1,150 read*,cl(i).salend dodo i=1,150 if(cl(i).sal500)then !打印打印 工工资资STRE(J)%MARK)THEN TEMP=STRE(I);STRE(I)=STRE(J);STRE(J)=TEMP ENDIF END DO END DOEND 11!插入算法插入算法SUBROUTINE

10、SORT_INSERT(STRE,NEW,N)type:student character(15):name integer:MARK integer:grade end type student type(student):stre(N+1)!说说明数明数组组,N+1=11 type(student):new Integer i,n,j i=1 do while(stre(i)%MARK new%MARK.and.i=N)i=i+1 end do do j=N,i,-1 stre(j+1)=stre(j)end do stre(i)=newend12!顺顺序序查查找找SUBROUTINE S

11、ORT_SEARCH(STRE,N,KEY)TYPE STUDENT CHARACTER(15)NAME INTEGER MARK INTEGER GRADE END TYPE STUDENT TYPE (STUDENT):STRE(N)INTEGER I,N,KEY I=1 DO WHILE(STRE(I)%MARK.NE.KEY).AND.(I.LE.N)I=I+1 ENDDO IF(I=N)THEN PRINT*,“找到,姓名找到,姓名:”,STRE(I)%NAME,成成绩绩:,STRE(I)%GRADE ELSE PRINT*,查查无此人无此人 ENDIFEND13!删删除算法除算法S

12、UBROUTINE DEL(STRE,DEKEY,N)TYPE STUDENT CHARACTER(15)NAME INTEGER MARK INTEGER GRADE END TYPE STUDENT TYPE (STUDENT),DIMENSION(N):STRE TYPE(STUDENT):TEMP INTEGER I,N,J,DEKEY I=1 DO WHILE(STRE(I)%MARK.NE.DEKEY).AND.(I.LE.N)I=I+1 ENDDO IF(I.GT.N)THEN PRINT*,学生学生记录记录没找到,无法没找到,无法删删除!除!ELSE TEMP=STRE(I)!

13、TEMP为为一个一个临时记录临时记录,用于存放待,用于存放待删记录删记录 DO J=I,N-1 STRE(J)=STRE(J+1)ENDDO PRINT*,删删除的除的记录为记录为:,TEMP%NAME,TEMP%MARK,TEMP%GRADE ENDIFEND14PROGRAM STUDENT_RECORDS !主程序!主程序TYPE STUDENT CHARACTER(15)NAME INTEGER MARK INTEGER GRADEEND TYPE STUDENTINTEGER,PARAMETER:STNUM=5 !代表要代表要处处理的学生数理的学生数TYPE (STUDENT),DI

14、MENSION(STNUM+1):STRETYPE(STUDENT):NEW1PRINT*,请输请输入学生有关的信息入学生有关的信息DO I=1,STNUM READ*,STRE(I)%NAME,STRE(I)%MARK,STRE(I)%GRADEEND DOCALL SORT(STRE,stnum)PRINT*,排序后的排序后的结结果信息果信息 DO I=1,STNUM print*,NAME,MARK,GRADE print*,STRE(I)%NAME,STRE(I)%MARK,STRE(I)%GRADEEND DOPRINT*,“请输请输入待入待处处理的学生有关的信息理的学生有关的信息 READ(*,*)CALL END15

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2025 宁波自信网络信息技术有限公司  版权所有

客服电话:4009-655-100  投诉/维权电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服