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

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

Процедуры STR и VAL.

В строковую переменную можно записывать не только буквы, но и цифры. Однако это будут не числа, как таковые, а их символьное представление. Для преобразования символьных представлений числа в само число, и наоборот, используются процедуры STR и VAl.

...

Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

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

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Структура программы в Паскаль.

В данной статье описывается структура программы в Pascal, описывается каждый раздел, который может присутствовать в программе.

Дописывание в текстовый файл.

Язык программирования Паскаль Категория: Уроки Паскаль. Файлы.

В прошлых уроках мы научились открывать текстовый файл для чтения с помощью процедуры 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
А как в начало дописать файла?
 
 
+5 # 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.
 
 
+2 # Владислав 15.04.2012 17:50
спасииибооо
 
 
+3 # Владислав 15.04.2012 18:06
супер сайт
 
   ГлавнаяПаскальФайлы в ПаскальДописывание в текстовый файл.
Rambler's Top100