Лабораторная работа n 1 работа в интегрированной среде borland pascal на примере программ линейной структуры
жүктеу/скачать 364.5 Kb.
|
| 2.1. Текстовые файлы
Текстовые файлы - файлы на диске, состоящие из символов ASCII. Для разделения строк используются символы <конец строки>. Текстовые файлы являются файлами с последовательным доступом. В любой момент времени доступна только одна запись файла. Другие записи становятся доступными лишь в результате последовательного продвижения по файлу. Текстовые файлы внутренне разделены на строки, длины которых различны. Для разделения строк используется специальный маркер конца строки. Объявляются текстовые файлы переменной типа text. Обрабатывать их можно только последовательно и с помощью процедур и функций: Readln(f , st) - чтение строки st из файла f и переход на начало следующей ; Writeln(f, st) - запись строки st в файл f и маркера конца строки ; Append(f) - процедура, открывающая файл f для добавления строк в конец файла; Eoln(st) - логическая функция, результат выполнения которой равен True, если достигнут маркер конца строки st. Пример 1. Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения. Program File_text; var f1 : text; st : string; n: byte; begin assign (f1, 'file1.txt'); {связать с файлом file1.txt файловую переменную f1 } rewrite (f1); { создать новый файл с именем file1.txt } writeln ( f1, 'Очень полезно изучать'); { записать предложения в файл} writeln ( f1, ' всем студентам '); writeln (f1, ' язык Pascal '); close (f1); { закрыть файл для записи } reset (f1); { открыть файл для чтения } while not eof (f1) do { пока не конец файла f1} begin readln (f1, st); {читаем строку из файла f1 } writeln(st); { выводим на экран } n:= length (st); {определяем длину строки } writeln (' длина =',n); end; close (f1); { закрыть файл для чтения} end. жүктеу/скачать 364.5 Kb. Достарыңызбен бөлісу:
|