FILES -
ДАТОТЕКИ
Датотеките - FILES
се места на дискот во кои се сместуваат
податоци од ист тип.
Се пријавуваат - декларираат на следниот начин:
var
f: file of Tip_na_promenliva;
f
- е
логичко име на датотеката
Врзување на логичкото име на датотеката
f
со нејзиното физичко име
MojaDat.txt се прави на следниот
начин:
Assign(f,'MojaDat.txt');
Отворање на нова или
пребришување на стара датотека со логичко име
f
се прави со наредбата:
Rewrite(f);
Запис на податок-променлива
со име Student во датотека со логичко име
f
се прави со наредбата:
Write(f,Student);
Декларирање на пристап до датотека со логичко име
f
се прави со наредбата:
Reset(f);
Читање на податок-променлива
од
датотека со логичко име f
и сместување на истиот во променлива
со име Student
се прави со наредбата:
Read(f,Student);
Затворање на датотека
со логичко име f
се прави со следната наредба:
Close (f );
Примери за датотеки (запис и читање)
program prv;
var dat:file of integer;
x:integer;
begin
assign(dat,'podat.dat');
rewrite(dat);
repeat
begin
readln(x);
write(dat,x);
end;
until (x=0)
end.
program vtor;
var dat : file of integer;
x:integer;
begin
assign(dat,'podat.dat');
reset(dat);
while not eof(dat) do
begin
read(dat,x);
write(dat,x);
end;
end.
|