Pascal - Kiểu File

Dữ liệu kiểu File

1.Kh¸i niÖm vÒ tÖp

TÖp hay tÖp d÷ liÖu lµ mét tËp hîp c¸c d÷ liÖu cã liªn quan víi nhau vµ cã

cïng kiÓu ®îc nhãm l¹i víi nhau t¹o thµnh mét d·y. Chóng thêng ®îc chøa trong

mét thiÕt bÞ nhí ngoµi cña m¸y tÝnh (®Üa mÒm, ®Üa cøng...)

TÖp d÷ liÖu theo nghÜa réng : cã thÓ ®ã lµ ch¬ng tr×nh, cã thÓ lµ sè liÖu, cã

thÓ lµ c¸c d÷ liÖu kh¸c nh kÝ tù, v¨n b¶n...

TÖp ®îc lu tr÷ trong bé nhí ngoµi nh ®Üa cøng, ®Üa mÒm...§iÒu ®ã cã nghÜa

lµ tÖp ®îc lu tr÷ ®Ó dïng nhiÒu lÇn vµ tån t¹i ngay c¶ khi ch¬ng tr×nh kÕt thóc hoÆc

mÊt ®iÖn. V× vËy nhng d÷ liÖu nµo cÇn lu gi÷ th× chóng ta b¾t buéc ph¶i dïng ®Õn

tÖp.

TÖp lµ mét kiÓu d÷ liÖu cã cÊu tróc. §Þnh nghÜa tÖp cã phÇn nµo gièng m¶ng

ë chç chóng ®Òu lµ tËp hîp cña c¸c phÇn tö d÷ liÖu cïng kiÓu. Song m¶ng ®îc khai

b¸o trong ch¬ng tr×nh víi sè phÇn tö ®· x¸c ®Þnh, cßn sè phÇn tö cña tÖp kh«ng

x¸c ®Þnh khi ®Þnh nghÜa

2. C¸ch ®Þnh nghÜa tÖp trong Pascal

C¸ch 1

TYPE

KiÓu_tÖp = FILE OF kiÓu_phÇn_tö;

Sau ®ã ta khai b¸o

VAR BiÕn_TÖp : KiÓu_tÖp;

C¸ch 2 : khai b¸o trùc tiÕp

VAR

BiÕn_tÖp : FILE OF KiÓu_phÇn_tö;

VD :

TYPE

FileInteger = FILE OF integer;

FileReal = FILE OF real;

FileBoolean = FILE OF Boolean;

Nhan_su = RECORD

Ten : String[30];

Tuoi : Byte;

Luong : Real;

END;

VAR

F1,F2 : FileInteger;

F3 : FileReal;

FNS : FILE OF Nhan_su;

F5 : FILE OF Char;

3.Më tÖp míi ®Ó cÊt d÷ liÖu

a. Më tÖp ®Ó ghi

Pascal dïng 2 thñ tôc ®i liÒn nhau theo thø tù

ASSIGN (BiÕn_TÖp, Tªn_tÖp); G¸n tªn_tÖp cho biÕn_tÖp;

REWRITE (BiÕn_TÖp);

VD : ASSIGN(F1,'NGUYENTO.DAT');

REWRITE(F1);

1