Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

Константы в Pascal.

Иногда, бывает так, что у нас в программе встречаются величины, которые не меняются в процессе выполнения программы (т.е. фактически они противоположность переменных). Такие величины называются константами. Константы указываются в специальном ...

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Циклы и массивы

Стандартные функции в Паскаль.

Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с помощью встроенных (иногда говорят — стандартных) функций и процедур.

Подпрограммы, определенные пользователем.

Технология программирования с использованием подпрограмм предусматривает разбиение программ на логически связанные, но функционально-замкнутые компоненты, имеющие свое имя, что дает следующие ...

Из прошых уроков мы научились открывать файл для чтения с помощью процедуры Reset. Однако текстовый файл можно открывать не только для чтения, но и для записи в него информации. Для записи информации в файл используется процедура Rewrite.

 Запись в текстовый файл.




Program file6;
Uses crt;
var fl:text;
str:string;
begin
clrscr;
assign (fl, 'programs\text.txt');
rewrite (fl);
read (str);
write (fl,str);
close(fl);
end.





В строке №8 записываем процедуру Rewrite. Данная процедура открывает файл, указанный в скобках после слова Rewrite, для записи в него информации. В нашем случае в скобках после слова Rewrite стоит переменная «fl», которая связана с текстовым файлом «text.txt» с помощью процедуры Assign (строка №7). Поэтому этот текстовый файл и будет открыт для записи.

Строка №9. Процедура Read обеспечивает ввод строковой информации (после слова Read в круглых скобках стоит строковая переменная str). Благодаря этой процедуре мы сможем вводить с клавиатуры различные слова. Эти слова будут записаны в строковую переменную «str»

Строка №10. Процедура Write обеспечивает запись информации в текстовый файл. Запись в строке №10 означает, что в текстовый файл («fl») будет записана информация из переменной «str» (т.е. та информация, которую мы введем с клавиатуры). 

zapisj v tekstovihyj fayjl

После запуска программы введите какое-нибудь слово (например, «programmirovanie») и нажмите Enter.

zapisj v tekstovihyj fayjl.

Теперь посмотрим наш текстовый файл «text.txt» (C:\FPC\2.2.2\bin\i386-win32\Programs). Если вы помните, то после прошлого урока там были записаны слова «pascal», «admin» и «turbo». Теперь в файле «text.txt» записано слово «programmirovanie»

zapisj v tekstovihyj fayjl..

Это означает, что процедура Rewrite позволяет записывать информация в файл, но при этом удаляет всю старую информацию (Rewrite с англ. «перезаписывать»).


Дополнение к материалу.

Попробуйте удалить файл «text.txt» из директории C:\FPC\2.2.2\bin\i386-win32\Programs. Теперь запустите программу из этого урока. Как видите, программа работает, хотя самого файла не существует. Теперь зайдите в директорию C:\FPC\2.2.2\bin\i386-win32\Programs. Наш файл «text.txt» находится в том месте, откуда мы его удалили. Дело в том, что если файла не существует, то при использовании процедуры Rewrite он будет создан автоматически (имя файла и его расположение указывается в процедуре Assign).


Предыдущая статья : Текстовые файлы в Паскаль.

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Запись в текстовый файл (продолжение).

Комментарии  

 
-19 # Михаил 10.11.2012 08:13
Так писать нельзя.
Программа не читаема
Ответить
 
 
+10 # Антон 22.03.2013 23:31
Это просто небольшой пример. К тому же все разложено по полочкам
Ответить
 
 
+12 # Георгий 16.12.2012 18:20
Рабочая программа)
Ответить
 
 
0 # Morin 03.11.2017 11:02
Михаил Вы правы программа не читаема!
Ответить
 
 
0 # Morin 03.11.2017 11:05
Uses Crt;

Var F1:text;
str:string;

Begin
ClrScr;
Assign (Fl, 'programs\text.txt');
ReWrite (Fl);
Read (str);
Write (Fl, str);
Close (Fl);
End.
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальФайлы в Паскаль