Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

GotoXY в Pascal.

Процедура GotoXY используется в Pascal для перевода курсора в нужную позицию на экране. Для этой процедуры указываются координаты. После указания процедуры GotoXY в коде программы сообщение будет выводиться на экран в тех координатах, которые мы ...

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

Вложенный арифметический цикл.

Под вложенным арифметическим циклом понимают такую алгоритмическую структуру, при которой в тело одного цикла с параметром включен другой цикл со своим параметром.

Массив символов.

Одномерный массив символов по своим свойствам существенно отличается от всех остальных массивов языка Паскаль. Свойства одномерного массива символов приближены к свойствам коротких строк (String).

Из прошых уроков мы научились открывать файл для чтения с помощью процедуры 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).


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

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

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

Комментарии  

 
-12 # Михаил 10.11.2012 08:13
Так писать нельзя.
Программа не читаема
 
 
+6 # Антон 22.03.2013 23:31
Это просто небольшой пример. К тому же все разложено по полочкам
 
 
+7 # Георгий 16.12.2012 18:20
Рабочая программа)
 
 
0 # Morin 03.11.2017 11:02
Михаил Вы правы программа не читаема!
 
 
-2 # 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.
 
   ГлавнаяПаскальФайлы в ПаскальСчитывание информации из файла в переменную символьного типа.