русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Процедуры и функции для работы с файлами в Паскале

     Все действия с файлами осуществляются с помощью процедур и функций.   Для каждого вида файлов существует набор процедур и функций, которые используются для работы с файлами, часть процедур и функций применима к любым видам файлов.
Набор процедур и функций для с файлами приведен в табл. 1-3.

Процедуры и функции для работы с файлами любого вида
Таблица 1


п/ф

Запись

Назначение

Пример

П

ASSIGN(FP,IF);
ASSIGN- назначить;
FP- файл. пер.
IF- имя файла.

Осуществляет логическую связь имени дискового файла с именем файловой переменной

Assign
(f1,’D:\TP\BIN\inp.txt’);

П

RESET(FP);

Открытие файла для чтения (ввода). В типизированном файле указатель перемещается на компоненту с номером 0

 

П

REWRITE(FP);

Открытие файла для записи (вывода). Создается новый файл или уничтожается содержимое старого.

 

П

CLOSE(FP);

Закрывает файл, но связь с файловой переменной сохраняется.

 

П

RENAME(FP);

Переименование связанного, но не открытого файла.

Assign
(f1,’D:\TP\BIN\inp.txt’); Rename
(f1, ’D:\TP\BIN\d.txt’);

П

ERASE(FP);

Удаление связанного, но не открытого файла.

 

П

CHDID(<путь>);

Изменение текущего каталога.

 

П

MKDIR(каталог<>);

Создание нового каталога.

 

П

GETDIR(<каталог>);

Определяет имя  текущего каталога.

 

П

RMDIR(<каталог>);

Удаление каталога.

 

Ф

EOF(FP);

Определяет конец файла (true-если достигнут конец файла)

 

 

 

 

 

Процедуры и функции для работы с типизированными файлами
Таблица 2


п/ф

Запись

Назначение

Пример

П

READ(FP,S);

Считывает список значений из типизированного файла.

 

П

WRITE(FP,S);

Выводит список значений в типизированный файл.

 

П

SEEK(FP,N);

Устанавливает указатель на компоненту N.

 

П

TRUNCATE(FP);

Фай усекается по положению указателя.

 

Ф

FILESIZE(FP);

Возвращает размер файла.

 

Ф

FILEPOS(FP);

Возвращает положение указателя

 

Процедуры и функции для работы с текстовыми файлами
Таблица 3


П/Ф

Запись

Назначение

Пример

П

READ(FP,S);
S- список пер.

Считывает список значений из текстового файла.

 

П

READLN(FP,S);

Считывает список значений из текстового файла с переводом строки.

 

П

WRITE(FP,S);

Выводит список значений в текстовый файл.

 

П

WRITELN(FP,S);

Выводит список значений в текстовый файл с переводом строки..

 

П

APPEND(FP);

Открытие связанного файла для дозаписи. Если был открыт, то закрывает и снова открывает. Указатель переводит в конец файла.

 

Ф

EOFLN(FP);

Определяет конец строки (true-если достигнут конец строки)

 

Ф

SEEKEOLN(FP);

Устанавливает указатель на конец строки

 

Ф

SEEKEOF(FP);

Устанавливает указатель на конец файла

 

   
     Пример 15.1. В  текстовом файле d1.txt расположен массив состоящий из 10 вещественных чисел:     0.54   1.7    4.56   0.2
1.32   1.54 18       0.98
5.6     7.7
Необходимо считать данные из файла, вычислить  функцию
Результат вывести в текстовый файл d2.txt и на экран.

 

Текст программы

Program ftxtx; {Ввод с текстового файла и вывод в текстовый файл}
Uses CRT;
Const n=10;
Type
t=text;
mas=array[1..n] of real;
Var
f1,f2       :t;
x,y          :mas;
i             :byte;
Begin
ClrScr;
Assign(f1,'d1.txt');  Reset(f1); Assign(f2,'d2.txt'); Rewrite(f2);
For i:=1 to n do
begin
Read(f1,x[i]);
y[i]:=sqrt(abs(x[i]));
Writeln(f2,y[i]:10);
Writeln(y[i]:10);
end;
Readln;
Close(f2);   Close(f1)
End.

 

Результат работы программы:

7.3E-0001
1.3E+0000
2.1E+0000
4.5E-0001
1.1E+0000
1.2E+0000
4.2E+0000
9.9E-0001
2.4E+0000
2.8E+0000

 

Пример 15.2.   В  текстовом файле d1.txt расположен массив состоящий из 10 вещественных чисел

0.54   1.7    4.56   0.2
1.32   1.54 18       0.98
5.6     7.7
Необходимо считать данные из файла, вычислить  функцию
Результат вывести в типизированный  файл d2.tip и на экран.

 

Текст программы

Program ftxti; {Ввод с  текстового файла вывод в типизированный файл }
Uses CRT;
Const n=10;
Type
t=text;
mas=array[1..n] of real;
Var
f1          :t;
f2          :file of real;
x,y         :mas;
i           :byte;
Begin
ClrScr;
Assign(f1,'d1.txt'); Reset(f1);
Assign(f2,'d2.tip'); Rewrite(f2);
For i:=1 to n do
begin
Read(f1,x[i]);
y[i]:=sqrt(abs(x[i]));
Write(f2,y[i]);
Writeln(y[i]:10);
end;
Readln;
Close(f2);   Close(f1)
End.

 

Результат работы программы:

А$Нэ?<Бг->ф&Вwgжк..щdЃ¬ХђЃ.Г Ш?ѓыf¶ГЂч{Tm}‚еЦћs‚FBБ—1

Пример 15.3.    В  типизированном файле d2.tip расположен массив состоящий из 10 вещественных чисел
Необходимо считать данные из файла, вычислить  функцию
Результат вывести в текстовый   файл d3.txt и на экран.

 

Текст  программы

Program ftitx; { Ввод с типизированного файла вывод в текстовый файл }
Uses CRT;
Const n=10;
Type
t=text;
mas=array[1..n] of real;
Var
f1          :file of real;
f2          :t;
x,y         :mas;
i           :byte;
Begin
ClrScr;
Assign(f1,'d2.tip'); Reset(f1);
Assign(f2,'d3.txt'); Rewrite(f2);
For i:=1 to n do
begin
Read(f1,x[i]);
y[i]:=sqrt(abs(x[i]));
Writeln(f2,y[i]:10);
Writeln(y[i]:10);
end;
Readln;
Close(f2);   Close(f1)
End.

    Пример 15.4.   В  типизированном файле d2.tip расположен массив состоящий из 10 вещественных чисел
Необходимо считать данные из файла, вычислить  функцию
Результат вывести в теипизированный    файл d2.tip  и на экран.

Текст  программы
Program ftiti;
{ Ввод с типизированного файла и вывод в типизированный файл}
Uses CRT;
Const n=10;
Type
mas=array[1..n] of real;
Var
f1,f2       :file of real;
x,y         :mas;
i           :byte;
Begin
ClrScr;
Assign(f1,'d2.tip'); Reset(f1);
Assign(f2,'d3.tip'); Rewrite(f2);
For i:=1 to n do
begin
Read(f1,x[i]);
y[i]:=sqrt(abs(x[i]));
Write(f2,y[i]);
Writeln(y[i]:10);
end;
Readln;
Close(f2);   Close(f1)
End.

 

Просмотров: 13925

Вернуться в оглавление:Алгоритмические языки




Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Полезен материал? Поделись:

Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.