Программирование Free Pascal

Содержание

Слайд 2

Файлы в языке программирования используются для ввода информации для обработки в

Файлы в языке программирования используются для
ввода информации для обработки в программу;
хранения

в них полученных результатов.
Слайд 3

Имена файлов, как правило, имеют длину до 8 символов, а расширения

Имена файлов, как правило, имеют длину до 8 символов, а расширения

- до 3. Например

input.dat
output.dat
input.txt
output.txt
task.inp
task.out

Слайд 4

Для того, чтобы работать с файлом необходимо для него: Объявить в

Для того, чтобы работать с файлом необходимо для него:
Объявить в разделе

описаний Var;
В программе связать переменную с физическим файлом на диске;
Инициировать вид работы с файлом: чтение, запись или дополнение;
Выполнять чтение (в первом случае) или запись (во втором и третьем случае) в файл;
Закрыть файл.
Слайд 5

Объявление файла: Примеры: Var t:text; f:file of integer; m:file of real; ….

Объявление файла:
Примеры:
Var
t:text;
f:file of integer;
m:file of real;
….

Слайд 6

Связывание файловой переменной с физическим файлом на диске осуществляется командой assign(

Связывание файловой переменной с физическим файлом на диске осуществляется командой assign(<переменная>,<имя

файла>);
Пример:
var
t:text;
i:integer;
begin
assign(t,'c:\work1\a01.txt');
Слайд 7

Инициирование вида работы с файлом одной из команд: Reset(файловая переменная); для

Инициирование вида работы с файлом одной из команд:

Reset(файловая переменная);
для

чтения (открывается файл и указатель устанавливается на начало. Если файла не существует возникает ошибка);
Rewrite(файловая переменная);
для записи (открывается файл и указатель устанавливается на начало. Если файл существует он очищается);
Append(файловая переменная);
для дозаписи (открывается файл и указатель устанавливается на последнюю запись).
Слайд 8

Команды чтения из файла read(файловая переменная, список переменных); readln(файловая переменная, список

Команды чтения из файла read(файловая переменная, список переменных); readln(файловая переменная, список переменных); Каждый раз

указатель смещается на число прочитанных записей.

Команды записи в файл
write(файловая переменная, список переменных); writeln(файловая переменная, список переменных);
Каждый раз указатель смещается на последнюю запись.

Слайд 9

Команды закрытия файла close(файловая переменная); Если команда в программе отсутствует, то

Команды закрытия файла close(файловая переменная); Если команда в программе отсутствует, то файл закрывается

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

Логическая величина eof(файловая переменная) используется для проверки достижения конца файла и

Логическая величина eof(файловая переменная) используется для проверки достижения конца файла и

является сокращением от end of file
Слайд 11

Логическая величина eoln(файловая переменная) используется для проверки достижения конца строки файла

Логическая величина eoln(файловая переменная) используется для проверки достижения конца строки файла

и является сокращением от end of line
Слайд 12

Рассмотрим программу. Какую задачу она решает? program a01; var t:text; i:integer;

Рассмотрим программу. Какую задачу она решает?
program a01;
var
t:text;
i:integer;
begin
assign(t,'c:\work\a01.txt');
rewrite(t);

randomize;
for i:=1 to 100 do
writeln(t,random(100)-50);
close(t)
end.
Слайд 13

Рассмотрим программу. Какую задачу она решает? program a02; var t,t1:text; x:integer;

Рассмотрим программу. Какую задачу она решает?

program a02;
var
t,t1:text;
x:integer;
begin
assign(t,'c:\work\a01.txt');
assign(t1,'c:\work\a02.txt');

reset(t); rewrite(t1);
while not eof(t) do
begin
read(t,x);
write(x:5);
if x>0 then
x:=sqr(x)
else
x:=-x;
writeln(x:5);
writeln(t1,x);
end;
close(t);close(t1);
end.
Слайд 14

Заготовка для решения задач Program …; var … t:text; begin assign(t,’…in');

Заготовка для решения задач

Program …;
var

t:text;
begin
assign(t,’…in');
reset(t);
close(t);

assign(t,’…out');
rewrite(t);

end;
close(t);
end.