Философия начинается с удивления. Когда ты понимаешь внутри, что эта неизвестность не пугает, а вызывает интерес. Ты рассуждаешь, и то, что в твоей голове происходит хоть малейшее прояснение, дает мотивацию. Ты знаешь, что можешь зайти в тупик размышлений, и вся логическая цепь порвется, как бумажная. Но всё ещё хочешь идти в этот неизвестный мир тайн, каждый уголок которого наполнен безграничной радостью или грустью, чтобы найти ту самую истину. Наверное мы делаем это зря, ведь нам нужно жить стереотипами и протоптанными дорожками. Сейчас натоящая редкость - новатор. Человек, бунтующий с реальностью. Пока все ходят по лугам, он идёт в тернистый и колючий лес. Почему? Он знает, что этот мир неоднозначен. Откуда вы знаете, что человек рядом с вами - человек, а не плод вашей же фантазии? Уверен, не сможете привести доказательств. Ведь даже я сейчас могу быть обычным уличным дымком, приобревший такой вот образ. Верно? Ну, что-то я чересчур отошел от темы. Правда ли, что философия начинается с удивления? Конечно правда! Ведь не будь удивления, мы бы ни о чём не думали. Ведь даже самая огромная неизвестность, будь то страх или интерес, родилась из этого маленького чувства, когда-то возникшего в каждом из нас.
Текстовые файлы состоят из символов. Каждый текстовый файл разделяется на строки неопределенной длины, которые заканчиваются символом конец строки. Весь файл заканчивается символом конец файла.
К текстовым файлам возможен только последовательный доступ. С текстовыми файлами работают различные редакторы текстов. Текстовые файлы имеют стандартный тип TEXT.
VAR <имя файла>: TEXT;
Посимвольные операции ввода-вывода выполняются для текстовых файлов процедурами readиwrite.Строки обрабатываются специальными процедурами для текстовых файлов readlnиwriteln.Кроме того, для текстовых файлов применяются процедуры ASSIGN, RESET, REWRITE, CLOSE, EOF, eoln.Процедураappendоткрывает существующий текстовый файл для добавления записей. Для текстовых файлов нельзя использовать процедуры и функции SEEK, FILEPOS, FILESIZE,т.к. элементы имеют разную длину.
inputи outputстандартные текстовые файлы для ввода с клавиатуры и вывода на экран.
Рассмотрим программу, реализующую следующую задачу. Дан текстовый файл F1.Необходимо заменить во всех записях этого файла код группы ДС-101 на ДС-201. Скорректированные записи поместить в файл F2.
var f1,f2: text;
pole:string;
name:string[12];
pz: integer;
begin write(‘ввод имени входного файла:’);
Readln(name);
Assign(f1,name);
write(‘ввод имени выходного файла:’);
Readln(name);
Assign(f2,name);
Reset(f1); rewrite(f2);
While not eof(f1) do
Begin
Readln(f1,pole);
while pos(‘дс-101’, pole) <> 0 do
Begin
pz:= pos(‘дс-101’, pole);
delete(pole,pz+3,1);
insert(‘2’,pole,pz+3);
End;
Writeln(f2,pole)
End;
Close(f1);
Close(f2);
End.
Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.
Файлы без типа.
Любой файл может быть представлен в виде последовательности символов кода ASCII. Турбо Паскаль позволяет рассматривать файл с любой организацией как бы состоящим из блоков по 128 байт.
Файлы без типа используются обычно при копировании файлов, когда не важна внутренняя структура записи файла. Если длина сегмента на диске 1024 байта, то количество блоков в группе равно 8 при длине блока 128 символов.
Текстовые файлы состоят из символов. Каждый текстовый файл разделяется на строки неопределенной длины, которые заканчиваются символом конец строки. Весь файл заканчивается символом конец файла.
К текстовым файлам возможен только последовательный доступ. С текстовыми файлами работают различные редакторы текстов. Текстовые файлы имеют стандартный тип TEXT.
VAR <имя файла>: TEXT;
Посимвольные операции ввода-вывода выполняются для текстовых файлов процедурами readиwrite.Строки обрабатываются специальными процедурами для текстовых файлов readlnиwriteln.Кроме того, для текстовых файлов применяются процедуры ASSIGN, RESET, REWRITE, CLOSE, EOF, eoln.Процедураappendоткрывает существующий текстовый файл для добавления записей. Для текстовых файлов нельзя использовать процедуры и функции SEEK, FILEPOS, FILESIZE,т.к. элементы имеют разную длину.
inputи outputстандартные текстовые файлы для ввода с клавиатуры и вывода на экран.
Рассмотрим программу, реализующую следующую задачу. Дан текстовый файл F1.Необходимо заменить во всех записях этого файла код группы ДС-101 на ДС-201. Скорректированные записи поместить в файл F2.
var f1,f2: text;
pole:string;
name:string[12];
pz: integer;
begin write(‘ввод имени входного файла:’);
Readln(name);
Assign(f1,name);
write(‘ввод имени выходного файла:’);
Readln(name);
Assign(f2,name);
Reset(f1); rewrite(f2);
While not eof(f1) do
Begin
Readln(f1,pole);
while pos(‘дс-101’, pole) <> 0 do
Begin
pz:= pos(‘дс-101’, pole);
delete(pole,pz+3,1);
insert(‘2’,pole,pz+3);
End;
Writeln(f2,pole)
End;
Close(f1);
Close(f2);
End.
Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.
Файлы без типа.
Любой файл может быть представлен в виде последовательности символов кода ASCII. Турбо Паскаль позволяет рассматривать файл с любой организацией как бы состоящим из блоков по 128 байт.
Файлы без типа используются обычно при копировании файлов, когда не важна внутренняя структура записи файла. Если длина сегмента на диске 1024 байта, то количество блоков в группе равно 8 при длине блока 128 символов.