var f: file of char; c: char; n: integer; begin assign (f, 'c:\file.txt'); reset (f); write ('Номер элемента: '); readln (n); seek (f, n); write ('Новый символ: '); readln (c); write (f, c); close (f); readln end.
В языке программирования Pascal для редактирования файлов предназначена процедура seek. В качестве аргументов она принимает файловую переменную и номер заменяемого элемента. В это место помещается текущий указатель файла. Далее с помощью write производится запись в файл.
Предварительно файл необходимо открыть для чтения (reset).
Последние комментарии
1 день 6 часов назад
2 дня 8 часов назад
2 дня 10 часов назад
2 дня 15 часов назад
3 дня 7 часов назад
3 дня 8 часов назад
5 дней 6 часов назад
6 дней 8 часов назад
1 неделя 3 дня назад
1 неделя 3 дня назад