ファイルによるFree Pascalでの簡単なソート機能

4944 ワード

このプログラムは主にファイル機能の読み書き機能を検証し、まとめたものは:1ファイルは読み書きにかかわらず、リンク関係を確立してから行うことができる;②読み書きを同時に行うことができず、別々に操作しなければならないことも理解できますが、実際のマウス操作でもそうです!③読み書き後はclose(ファイル変数名)で読み書きしたファイルを消さなければならない.④ランダム整数を生成する方法を学び、検証時間を節約してキーボードから入力しない方法を学んだ.
 1 program Test07;
 2 var
 3   f:text;
 4   i,a,b,c,max:integer;
 5 begin
 6   assign(f,'test.txt');
 7   rewrite(f);
 8   randomize;
 9   //       
10   for i:=1 to 3 do
11     begin
12       writeln(f,random(100));  //  0-100     
13     end;
14   close(f);
15   //        .
16   assign(f,'test.txt');
17   reset(f);
18   read(f,a,b,c);//   f       (3 )     .
19   writeln(a,b,c);
20   readln;
21   close(f);
22   //           
23   if a>b then
24     begin
25       max:=a;
26     end
27   else
28     begin
29       max:=b;
30     end;
31   if c>max then
32     begin
33       max:=c;
34     end;
35   writeln(utf8decode('    '),max);
36   readln;
37 end.
38             

現在の問題は、より多くのデータに対して最大値を検索する場合、コードの行数がこれらをはるかに上回る場合、どのように実現すればいいかということです.次のステップで解決しなければならない問題です.また、ファイルに対するread文は配列に直接値を割り当てることができますか?できれば、ビッグデータ量の最大値を抽出したり、並べ替えたりするのに便利なはずです!!