PASCAL第9讲记录与文件操作.pptVIP

记 录 记录 type student=record //记录 num : integer; //数据项1 name : string; //数据项2 sum : integer; //数据项3 end; Var a:array[1..50] of student; p:student; i , j,t :integer; Begin for I:=1 to 50 do begin readln(a[i].num); readln(a[i].name); readln(a[i].summ) end; for I:=1 to 49 do for j:=I+1 to 50 do if a[I].suma[j].sum then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; For I:=1 to 50 do writeln(a[i].num, ‘ ‘,a[i].name, ‘ ‘ ,a[i].sum); end. 文件的概念 文件是指由一系列相同类型数据组成的一个数据序列，是一种由用户定义的构