Файлы

имя;
содержит компоненты одного типа;
длина файла не оговаривается при

Связано ли расширение файла с его содержимым?

- НЕТ

Расширение файла позволяет операционной системе определить необходимое для его запуска приложение. Без расширения ОС не сможет узнать, что и как именно ему нужно открыть.

(типизированный)
= TEXT; (текстовый)
= FILE. (нетипизированный)
type
product = record

);
здесь – файловая переменная (правильный идентификатор объявленный в

const
name=’e:\work\try.txt’;
var
f: Text;
begin
assign(f,name);
...

работы с файлом состоит из следующих этапов:
инициация файла –

Чтение файла:
RESET(<ф.п.>);

Перезапись файла:
REWRITE(<ф.п.>);

Добавление в файл:
APPEND(<ф.п.>);

Закрытие файла:
CLOSE (<ф.п.>);

, если файловый указатель стоит в конце файла.
EOLN(): boolean –

Чтение из текстового файла:
READ (<ф.п.>, <сп. ввода> )
READLN (<ф.п.>, <сп. ввода> )

Запись в текстовый файл:
WRITE (<ф.п.>, <сп. вывода> )
WRITELN (<ф.п.>, <сп. вывода> )

begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Вывод на экран

of real;
i: integer;
begin
assign(f,'prog.dat');
rewrite(f);
for i := 1 to N do

Запись значений массива в файл

5.34014130259871
0.0751469703741125
9.14481708274447
2.01952238661215
6.81229438949949

На экране

в виде бинарного файла
Почему файл занимает 82 байта?
В файле 82

prog.dat (в виде текста)
Содержимое файла prog.dat в виде бинарного файла
Почему

Появились символы с 13 и 10
13 - CR (перевод каретки). Курсор перемещается к левому краю поля, не переходя на другую строку.
10 - LF (перевод строки). Курсор перемещается на следующую строку.

then writeln(f,s);
until length(s)=0;
close(f);
end.
Запись текста в текстовый файл

с текстовыми файлами, а именно:

уже существующий файл может быть

Формат обращения:
SEEK(, )
Здесь – выражение типа LONGINT,

name: string;

record
name: string;

байт -128..127)

const N = 5;
var
f1 : file;
arr :

hex 00 – bin 0000 0000 dec 0
hex 7F – bin 0111 1111 dec 127
hex 80 – bin 1000 0000 dec 128
hex FF – bin 1111 1111 dec 255
hex 01 – bin 0000 0001 dec 1

1 = ?
127 : 0111 1111
1: 0000 0001
+: 1000 0000
обр: 1111 1111
прям: 1000 0000
ответ:

-32768..32767)
const N = 4;
var
f1 : file;
arr : array

0000 0000 dec 0
hex 7F FF –

Младший байт
Старший байт

arr[1] := 0;
arr[2] := 32767;
arr[3] := -1;
arr[4] := 16;

file;
vr1 : single ;
vr2 : integer;
vr3 :

чтения;
отступить на 128 байт с конца файла;
прочитать заголовок;

:string[30];
sYear : string[4];sComment :string[28];
fsize : int64; i :integer;
begin

of byte;
sTitle, sArtist,sAlbum : array [1..30] of byte;
sYear

read(f_music,sTitle); read(f_music,sArtist);
read(f_music,sAlbum); read(f_music,sYear);
read(f_music,sComment);

файле
Структура файла
0 4 Смещение, с которого начинается само изображение
4 3*N Палитра, хранится три

record
x,y,c : byte;
end;

var
f: file;
offset: longword;
Color :

mod 3+1); // кол-во цветов
for i := 0 to Length(Color)-1

begin
j :=

кодировке ASCII.
Выдумка сценаристов?

у этих файлов?
- маркеры

или нет.
А является ли он текстовым в кодировке ASCII?
Особенности текстового

: file;
val : array [1..1] of byte;
begin
assign(f,'file.dat');
reset(f);