1 第九章結構體 9 1派生類數據類型 格式 TYPE ACCESS 派生類型名字分量表ENDTYPE 派生類名 ACCESS 訪問方式 PRIVATE 私有的 PUBLIC 公共的 默認方式為PUBLIC 分量表 該類型中的成員項 每項要有類型說明 2 P177例 TYPESTUDENTCHARACTER 15 NAMEINTEGERNUMLOGICALSEXCHARACTER 30 ADDRESSENDTYPE 9 2結構體變量的定義與引用 一 結構體類型變量的定義 格式 TYPE 派生類型名 結構體變量名 例 TYPE STUDENT S1 S2 3 結構體類型可以嵌套定義 即結構體類型的成員也可以是另一個結構體類型的變量 P177例 TYPESTUDENTRECORDCHARACTER 15 NAMEINTEGERNUMLOGICALSEXCHARACTER 30 ADDRESSENDTYPETYPESTUDENTTOGETHERTYPE STUDENTRECORD STUDENTREALMATHREALENGLISHREALCHINESEENDTYPE 4 若定義STUDENTTOGETHER結構體變量S TYPE STUDENTTOGETHER S則結構體變量S包含 三個實型變量MATH ENGLISH CHINESE和一個結構體變量STUDENT 而STUDENT又包含NAME NUM SEX ADDRESS四個成員 二 結構體成員的引用 結構體名 成員名結構體名 成員名 如 S1 NAME S1 NUMS2 NAME S2 NUMS STUDENT NUM 5 9 3結構體變量的賦值 一 用賦值語句給結構體成員賦值 P178例9 1職工工資表包含的數據有 姓名 性別 家庭住址 工資等 現計算三個職工工資的平均值 TYPECLERKCHARACTER 15 NAMELOGICALSEXCHARACTER 30 ADDRESSINTEGERSALENDTYPETYPE CLERK S1 S2 S3S1 SAL 800 也可用輸入語句READ S1 SALS2 SAL 900S3 SAL 700AVER S1 SAL S2 SAL S3 SAL 3PRINT 三個職工的平均工資為 AVEREND 6 二 定義變量的同時賦值 格式 TYPE 派生數據類型名 結構體變量名 派生數據類型名 成員初值表 例如 TYPETEACHERCHARACTER 12 NAMELOGICALSEXENDTYPE TYPE TEACHER S1 TEACHER WU TRUE S2 S3 賦值時 所給的值類型和個數應與結構體變量定義中各成員的類型與個數保持一致 可以將一個結構體變量的值直接賦給另外一個結構體變量 7 P180例 INTEGERSTYPESTUDENTRECORDCHARACTER 15 NAMEINTEGERNUMLOGICALSEXCHARACTER 30 ADDRESSENDTYPETYPE STUDENTRECORD S1 S2S1 STUDENTRECORD ABCD 20 TRUE CHANGSHA S2 S1S S2 NUM S1 NUMPRINT SEND 8 9 4結構體數組 一般格式 TYPE 派生類型名 DIMENSION 維數說明符 結構體數組名 例 TYPE STUDENT DIMENSION 100 STU 9 P183例 職工信息 職工號 職工姓名 年齡 工資 職工150人 存儲信息后統計工資低于500元的職工數 并輸出相關信息 programclerkrecordimplicitnoneinteger k itypeclerk 定義結構體類型integernumcharacter 15 namerealsalendtypeclerktype clerk dimension 150 cl 定義結構體數組k 0Print 輸入職工號num doi 1 150read cl i numenddo 10 print 輸入職工姓名name doi 1 150read cl i nameenddoprint 輸入職工工資sal doi 1 150read cl i salenddodoi 1 150if cl i sal 500 then 打印工資 500的職工信息及計數k k 1print cl i num cl i name cl i salendifenddoPrint kend 11 排序算法SUBROUTINESORT STRE N 可調數組TYPESTUDENTCHARACTER 15 NAMEINTEGERMARKINTEGERGRADEENDTYPESTUDENTTYPE STUDENT DIMENSION N STRETYPE STUDENT TEMPINTEGERI J NDOI 1 N 1DOJ I 1 NIF STRE I MARK STRE J MARK THENTEMP STRE I STRE I STRE J STRE J TEMPENDIFENDDOENDDOEND 12 插入算法SUBROUTINESORT INSERT STRE NEW N type studentcharacter 15 nameinteger MARKinteger gradeendtypestudenttype student stre N 1 說明數組 N 1 11type student newIntegeri n ji 1dowhile stre i MARK new MARK and i N i i 1enddodoj N i 1stre j 1 stre j enddostre i newend 13 順序查找SUBROUTINESORT SEARCH STRE N KEY TYPESTUDENTCHARACTER 15 NAMEINTEGERMARKINTEGERGRADEENDTYPESTUDENTTYPE STUDENT STRE N INTEGERI N KEYI 1DOWHILE STRE I MARK NE KEY AND I LE N I I 1ENDDOIF I N THENPRINT 找到 姓名 STRE I NAME 成績 STRE I GRADEELSEPRINT 查無此人 ENDIFEND 14 刪除算法SUBROUTINEDEL STRE DEKEY N TYPESTUDENTCHARACTER 15 NAMEINTEGERMARKINTEGERGRADEENDTYPESTUDENTTYPE STUDENT DIMENSION N STRETYPE STUDENT TEMPINTEGERI N J DEKEYI 1DOWHILE STRE I MARK NE DEKEY AND I LE N I I 1ENDDOIF I GT N THENPRINT 學生記錄沒找到 無法刪除 ELSETEMP STRE I TEMP為一個臨時記錄 用于存放待刪記錄DOJ I N 1STRE J STRE J 1 ENDDOPRINT 刪除的記錄為 TEMP NAME TEMP MARK TEMP GRADEENDIFEND 15 PROGRAMSTUDENT RECORDS 主程序TYPESTUDENTCHARACTER 15 NAMEINTEGERMARKINTEGERGRADEENDTYPESTUDENTINTEGER PARAMETER STNUM 5 代表要處理的學生數TYPE STUDENT DIMENSION STNUM 1 STRETYPE STUDENT NEW1PRINT 請輸入學生有關的信息 DOI 1 STNUMREAD STRE I NAME STRE I