利用檔案實現Free Pascal中的簡單排序功能

2022-08-27 03:45:08 字數 1198 閱讀 8316

此程式主要是驗證檔案功能的讀寫功能,總結到的東西有:①檔案無論是讀還是寫,都要先建立鏈結關係才可以進行;②讀與寫不能同時進行,必須分開操作,這也可以理解,在實際滑鼠操作時也是如此的!③讀寫後必須用close(檔案變數名)關掉讀寫的檔案;④學會了如何生成隨機整數,並且學會了如何節省驗證時間不再從鍵盤輸入.

1

program

test07;

2var

3f:text;

4i,a,b,c,max:integer;

5begin

6 assign(f,'

test.txt');

7rewrite(f);

8randomize;

9 //生成三個隨機數

10for i:=1to3

do11

begin

12 writeln(f,random(100)); //生成0-100

以內的整數

13end;14

close(f);

15 //讀取生成的隨機數.

16 assign(f,'

test.txt');

17reset(f);

18 read(f,a,b,c);//直接將f中的所有隨機數(3

個)讀到變數中.

19writeln(a,b,c);

20readln;

21close(f);

22 //對讀取的隨機數進行排序

23if a>b then

24begin

25 max:=a;

26end

27else

28begin

29 max:=b;

30end;31

if c>max then

32begin

33 max:=c;

34end

;35 writeln(utf8decode('

最大值為

'),max);

36readln;

37end

.38

現在的問題是:如果是針對更多的資料進行查詢最大值,那**的行數會遠遠超過這些,應該如何實現?是下一步需要解決的問題.還有,針對檔案的read語句能否直接給陣列賦值?如果可以的話,在提取大資料量的最大值或者排序問題應該會解決的比較方便!!

利用檔案流實現檔案讀寫

儲存在磁碟上的檔案中的資料被定義為檔案流。檔案流不但包括了檔案的真實資料還包含了檔案目錄 檔案系統元資料 訪問控制列表以及這個檔案的擴充套件屬性等。在c語言中,用 file 結構來表示檔案流。通過 fopen fread fwrite 以及fprintf 等函式對檔案流操作實現檔案的讀寫。通過fop...

利用WebClient實現檔案傳送

新增命名引用空間 using system.net using system.io using system.threading namespace 利用webclient實現檔案傳送 private void startdownload catch webexception ex webclien...

利用MQ實現大檔案交換

本文介紹了如何利用activemq提供的機制,實現大檔案斷點續傳,從而可以在低速網路的情況下,不會因為網路的故障而使整個大檔案重新傳輸。本文介紹的這個實現可以大大的提高業務處理效率,並且可以對本文提供的思路進行擴充套件以完成更加複雜的功能。message broker 訊息伺服器 jms strea...