Ответы на вопрос:
Procedure del_n(var f: fail); var n,i: integer; c: char; x: stud; begin write('удалить запись № '); readln(n); reset(f); if (filesize(f)< n)or(n< 0) then begin writeln('в файле нет такой записи'); close(f); write('press '); readln; exit; end; if n=filesize(f)then begin seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln; exit; end; seek(f,n-1); for i: =n-1 to filesize(f)-2 do begin seek(f,i+1); read(f,x); seek(f,i); write(f,x); end; seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln end;
Популярно: Информатика
-
IDebil08.04.2021 03:58
-
ros2510.01.2020 08:56
-
ReyLiv16.12.2020 09:23
-
polinaserdiuk421.02.2020 11:02
-
Darhanfan13.03.2020 15:02
-
Cronus1Oleg03.12.2020 18:33
-
Змей1912.10.2022 13:35
-
maksgolovakha22805.08.2022 05:32
-
лис888909.07.2021 22:54
-
эми4627.04.2023 08:31