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

информатики МБОУ «Лицей» г. Арзамаса

(на жестком диске, флэшке, дискете, компакт-диске и т.п.) под заданным

именем.

обработки в программу;

вывода в них и последующего хранения полученных результатов

(выходные данные – результаты алгоритма).

расширения - до 3. Например:
input.dat
output.dat
input.txt
output.txt
train.inp
train.out

файловую переменную в разделе описания переменных VAR

2. В теле программы

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

3. Инициировать вид работы с файлом: чтение, запись или дополнение

чтение данных из файла

5. Выполнить запись (дополнение) в файл

6. Закрыть

файл

типом text);

Типизированный файл (объявляется предложением file of тип);

Нетипизированный

файл (объявляется типом file).

of integer;
m:file of real;

f1:file of zapic;
f2:file;
…

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

для чтения (открывается файл, и указатель устанавливается на

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

текстовых файлов; каждый раз указатель смещается на число прочитанных записей

для всех файлов

writeln(файловая переменная, список переменных);
только для

текстовых файлов

вместе с завершением программы.

сокращением от end of file

и является сокращением от end of line (только для текстовых файлов)

for i:=1 to 100 do
writeln(t,random(100)-50);
close(t)
end.

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.

t:text;
i:integer;
begin
assign(t,’primer1.txt');
rewrite(t);
for i:=-3 to 5 do

writeln(t,i);
close(t)
end.

-3
-2
-1
1
2
3
4
5

Файл primer1.txt

for i:=-3 to 5 do
write(t,i);
close(t)
end.
-3-2-1012345

Файл primer2.txt
Последующее чтение

из файла primer2.txt в целочисленные переменные невозможно

i:=-3 to 5 do begin
if p>0 then

write(t,’ ‘);
write(t,i);
inc(p);
end;
close(t)
end.

-3 -2 -1 0 1 2 3 4 5

Файл primer3.txt

Последующее чтение из файла primer3.txt в целочисленные переменные обеспечено

s:string;
begin
assign(t,’primer4.txt');
reset(t);
read(t,a,b,c,s);
close(t)
end.
1 2
3 four

Файл primer4.txt
Результат такой же

как после выполнения операторов
a:=1;
b:=2;
c:=3;
s:=‘four’;

уч. года)
«Цапли – 100 баллов».
Требуется написать программу, которая по

заданным числам a и b выведет минимальное количество цапель, которое могло быть в вольере.
Ваша программа должна:
прочитать из исходного файла task1.in два целых числа a и b, которые разделены в нем ровно одним пробелом (1 ≤ a ≤ 109, 1 ≤ b ≤ 109);
подсчитать и вывести в файл task1.out одно число – минимальное количество цапель, которое могло быть в вольере.
Например: