ファイルによるFree Pascalでの簡単なソート機能
4944 ワード
このプログラムは主にファイル機能の読み書き機能を検証し、まとめたものは:1ファイルは読み書きにかかわらず、リンク関係を確立してから行うことができる;②読み書きを同時に行うことができず、別々に操作しなければならないことも理解できますが、実際のマウス操作でもそうです!③読み書き後はclose(ファイル変数名)で読み書きしたファイルを消さなければならない.④ランダム整数を生成する方法を学び、検証時間を節約してキーボードから入力しない方法を学んだ.
現在の問題は、より多くのデータに対して最大値を検索する場合、コードの行数がこれらをはるかに上回る場合、どのように実現すればいいかということです.次のステップで解決しなければならない問題です.また、ファイルに対するread文は配列に直接値を割り当てることができますか?できれば、ビッグデータ量の最大値を抽出したり、並べ替えたりするのに便利なはずです!!
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文は配列に直接値を割り当てることができますか?できれば、ビッグデータ量の最大値を抽出したり、並べ替えたりするのに便利なはずです!!