Читайте также:
|
Program text1;
uses crt;
Var
f:text;
str:string;
Begin
assign(f,'newtext.txt');
rewrite(f);
write(f,'My new text file');
close(f);
End.
Убедиться, что файл создан, можно с помощью любого текстового редактора, открыв в нем данный файл.
Примечание. Файлы, созданные программами MS-DOS, а именно такими программами являются все программы, написанные в Turbo Pascal, содержат символы в кодировке 866, следовательно, для их просмотра в Windows следует указывать тип файлов «Текст MS-DOS».
Задача 2. Чтение текстового файла.
Program text2;
uses crt;
Var
f:text;
str:string;
Begin
clrscr;
assign(f,'newtext.txt');
reset(f);
while not eof(f) do
Begin
readln(f,str);
writeln(str);
End;
close(f);
readln;
End.
---------------- Справка. Сохранение файла как кодированного текста ------------------------
1. В меню Файл выберите команду Сохранить как. Чтобы сохранить файл в другой папке, найдите и откройте нужную папку.
2. В поле Имя файла введите новое имя файла.
3. В поле Тип файла выберите Обычный текст.
4. Нажмите кнопку Сохранить.
5. В группе Кодировка текста выберите необходимый параметр.
· Чтобы использовать стандарт кодировки, установленный по умолчанию, выберите параметр Windows (по умолчанию).
· Чтобы использовать стандарт кодировки MS-DOS, выберите параметр MS-DOS.
· Чтобы указать определенный стандарт кодировки, выберите параметр Другая, а затем выберите нужный стандарт кодировки из списка. В поле Просмотр можно просмотреть текст в выбранной кодировке.
Задача 3. Создайте текстовый файл в Word и сохраните его в кодировке MS-DOS в текущем каталоге. Выполнить чтение информации из файла и вывод его содержимого на экран.
Дата добавления: 2015-08-17; просмотров: 66 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Процедуры и функции для работы с файлами | | | Задача 5. Составить программу, которая создает файл, состоящий из n значений типа integer. Прочитать файл и вывести на экран только четные элементы. |