Как в pascal работать с файлами, в input начальные данные, output выведенные

Question

Как в pascal работать с файлами, в input начальные данные, output выведенные

Answer 1

Assign – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.
Reset  -  открывает существующий файл для чтения.
Rewrite – создает и открывает новый файл для записи на внеш­нем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).
Close  -  закрывает открытый файл.

Comments

Пример 1. Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения.

---

Program File_text;
var
f1 : text;
st : string;
n: byte;
begin
assign (f1, 'file1.txt'); {связать с файлом file1.txt файловую переменную f1 }
rewrite (f1); { создать новый файл с именем file1.txt }
writeln ( f1, 'Очень полезно изучать'); { записать предложения в файл}

---

writeln ( f1, ' всем студентам ');
writeln (f1, ' язык Pascal ');
close (f1); { закрыть файл для записи }
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла f1}
begin
readln (f1, st); {читаем строку из файла f1 }
writeln(st); { выводим на экран }
n:= length (st); {определяем длину строки }
writeln (' длина =',n);
end;
close (f1); { закрыть файл для чтения}
end .