Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Применение логических операций с оператором IF.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

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

Использование оператора WITH ... DO.

Из предыдущего примера легко заметить, что при каждом обращении к полю записи следует указывать имя этой записи. Если вы работаете с полями одной и той же записи, то этой проблемы можно избежать ...

Тип данных Boolean.

Тип BOOLEAN (булевский, логический). Логический тип в языке Паскаль задается как перечисляемый тип, содержащий всего два значения, которые имеют идентификаторы FALSE (ложь) и TRUE (истина).

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

 Использование процедуры Append для дописывания информации в конец файла.





Program file8;
Uses crt;
var fl:text;
str:string;
begin
clrscr;
assign (fl, 'programs\text.txt');
append (fl);
readln (str);
writeln (fl,str);
close(fl);
end.




В строке №8 записываем процедуру Append. Данная процедура открывает файл, указанный в круглых скобках после слова Append, для записи в него информации. Причем если в файле уже содержится какая-то информация, то она не стирается, а новая информация дописывается в конец файла. В прошлом уроке мы записали в файл «text.txt» слова «Avatar», « Terminator», «Mission Impossible». После запуска программы напишем какое-нибудь слово, например, Pascal.

dopisihvanie v tekstovihyj fayjl

dopisihvanie v tekstovihyj fayjl.

После этого посмотрим наш текстовый файл «text.txt».

dopisihvanie v tekstovihyj fayjl..Как видите, старая информация осталась на своем месте, а в конец файла была дописана новая информация.


Предыдущая статья : Запись в текстовый файл (продолжение).
Оглавление : Уроки Паскаль. Файлы.
Следующая статья : Работа с двумя текстовыми файлами.


Комментарии  

 
+2 # Владислав 03.04.2012 16:25
А как в начало дописать файла?
Ответить
 
 
+7 # Administrator 04.04.2012 10:32
Процедура Append может дописывать информацию только в конец файла. Каких-то специальных инструментов для дописывания информации в другое место текстового файла в Паскале нет. Если же необходимо дописать информацию в начало файла приходится пользоваться некоторыми уловками. Например, в нашем случае можно создать еще один текстовый файл и переписать в него всю информацию из первого файла.
Program file5;
Uses crt;
var fl,f2:text;
str,str1:string;
begin
clrscr;
assign (fl, 'programs\text. txt'); // этот файл у нас уже есть
assign (f2, 'programs\text. txt2'); //этот файл будет создан автоматически
reset (fl); //открываем 1-ый файл для чтения
rewrite (f2); //открываем 2-ой файл для записи
readln (str); // вводим какое-нибудь слово (например, «Pascal»)
writeln (f2,str); //записываем это слово во 2-ой файл
while not eof (fl) do
begin
readln (fl,str1); //в переменную «str1» считываем информацию из 1-ого файла
append (f2); //открываем 2-ой файл для дописывания. Т.к. ранее он был открыт для записи, он автоматически закроется и снова откроется уже для дописывания информации
writeln (f2,str1); //дописываем во 2-ой файл информацию из 1-го файла.
end;
close(fl); //закрываем 1-ый файл
erase (fl); /удаляем его
close (f2); //закрываем 2-ой файл
rename (f2,'programs\text. txt'); /2-му файлу присваиваем имя первого файла
end.
Ответить
 
 
+3 # Владислав 15.04.2012 17:50
спасииибооо
Ответить
 
 
+4 # Владислав 15.04.2012 18:06
супер сайт
Ответить
 

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

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

   ГлавнаяПаскальФайлы в ПаскальТипизированные файлы в Паскаль.