Курсовая работа: Составление программ для решения задач на языке программирования Turbo Pascal

Procedure UpdateRec; {изменение записи файла}

Var

NumRec: longint; { локальная переменная принимает значение номера изменяемой записи}

begin

Name_File;

Assign (BookFile, Name);

{$I-}

Reset (BookFile);

{$I+}

If IOresult=0 then

begin

Write ('Ukazat nomer izmenayemoi zapisi: ');

Readln (NumRec);

Seek (BookFile, NumRec-1); {установка файловой позиции по указанному номеру записи}

Writeln ('staroe znachenie zapisi: ‘ NumRec);

OutputRec;

Seek (BookFile, NumRec-1); {возврат на прежнюю позицию}

Writeln ('Zadaem novoe znachenie ', NumRec,' zapisi');

AddRec;

Close (BookFile);

end

Else Writeln ('Faila s imenem ', Name,' na diske net');

end;

Procedure AddRecToEnd; { процедура дополнения записи в конец файла}

begin

Name_File;

Assign (BookFile, Name);

{$I-}

Reset (BookFile);