1. | |
Append(F) // | Seek(F,FileSize(F)) // |
2. k () | |
var F:text; name,s:string; i,k,n: integer; begin write(' :'); readln(name); Assign(F, name); Reset(F); write( ?'); readln(k); n:=0; // n while not Eof(F) do begin readln(F, s); n:=n+1 end; Reset(F); if (n>k) then // , for i:=1 to n-k do // n-k readln(F, s); // while not Eof(F) do // begin readln(F, s); writeln(s) end; Close(F) end. | var F:file of integer; name:string; x,k,n: integer; begin write(' :'); readln(name); Assign(F, name); Reset(F); write(' ?'); readln(k); n:=FileSize(F); // if (n>k) then // , Seek (F,n-k); // // k- while not Eof(F) do // begin read(F,x); write(x, ) end; Close(F) end. |
3. () | |
Ft , tmp . F Ft, . k, . , , . var F,Ft:text; name,s,snew:string; i,k: integer; begin write( :); readln(name); Assign(F, name); Reset(F); write( ?); readln(k); // write( :); readln(snew); Assign(Ft, tmp+name); Rewrite(Ft); i:=0; // while not Eof(F) do begin readln(F,s); i:=i+1; if i=k tnen writeln(Ft,snew) else writeln(Ft,s) end; Close(F); Close(Ft); Erase(F); Rename(F,name) End. | var F:file of integer; name:string; k,xnew: integer; begin write( :); readln(name); Assign(F, name); Reset(F); write( ?); readln(k); // write( :); readln(xnew); Seek(F,k); Write(F,xnew); Close(F) End. |
, , . , '---' .
, .
. .
Program File_Rec;
type stud=record
FIO:string[15];
year:word
end;
Fstud= file of stud;
var F1,F2: Fstud; //
|
|
name1, name2: string[10];
Y: word; //
const tabs= #9#9; //
procedure Creat_F(var F:Fstud);
var s: stud;
begin
repeat
write(FIO ---:); readln(s.FIO);
if s.FIO = --- then break;
write(year:);
readln(s.year);
write(F, s)
until false;
end;
procedure Print_F(var F:Fstud);
var s: stud;
begin
while not Eof(F) do
begin
read(F, s);
writeln(s.FIO, tabs, s.year)
end
end;
procedure Min_Year(var F:Fstud);
var s, min: stud; // min
begin
min.FIO:=''; //
min.year:=Maxint; //
while not Eof(F) do
begin
read(F, s); //
if (s.year < min.year) // ,
then min:=s //
end;
writeln(min.FIO, tabs, min.year) //
end;
procedure F_F(var F1,F2:Fstud; Y:word);
var s: stud;
begin
while not Eof(F1) do
begin
read(F1, s); //
if (s.year=Y) //
then write(F2, s) // F2
end
end;
Begin
//______ ______
write(' 1:'); readln(name1);
Assign(F1, name1);
Rewrite(F1);
writeln(' :');
Creat_F(F1);
Reset(F1);
writeln(' :');
Print_F(F1);
writeln(' , ');
Reset(F1);
Min_Year(F1);
//______ ______
write(' 2:'); readln(name2);
Assign(F2, name2);
Rewrite(F2);
write(' :'); readln(Y);
Reset(F1);
F_F(F1,F2,Y);
writeln(' ', Y, ' :');
Reset(F2);
Print_F(F2);
Close(F1);
Close(F2);
end.