Как найти максимальный компонент файла

program Project1;
{$mode objfpc}{$H+}
uses Classes, SysUtils
{ you can add units after this };
//Massiw - тип данных - массив из 1000 элементов.
type
	massiw=array [ 1.. 1000 ] of real;
var
f : file of real;
//a - указатель на массив;
a :^ massiw;
n, i : word;
begin
//Связываем файловую переменную с реальным файлом на диске.
assign file ( f, ’ /home/ evgeniy/pascal /6/ pr1 / abc. dat ’ );
//Открываем файл для чтения.
reset ( f );
//Записываем в переменную n количество элементов в файле f.
n:= file size ( f );
writeln ( ’в файле  ’, n, ’  чисел ’ );
//Выделяем память для динамического массива a
//из n вещественных чисел.
getmem( a, n * sizeof ( real ) );
for i :=1 to n do
begin
//Считываем очередной элемент из файла в массив.
read ( f, a ^[ i ] );
//Вывод элемента на экран.
write ( a ^[ i ] : 1 : 3, ’   ’ )
end;
//Освобождаем память, выделенную для динамического массива.
freemem ( a, n * sizeof ( real ) );
//Закрываем файл.
close file ( f );
readln;
end.

if filepos ( f )= file size ( f ) then
writeln ( ’достигнут конца файла ’ );

program Project1;
{$mode objfpc}{$H+}
uses Classes, SysUtils
{ you can add units after this };
var f : file of real;
i, nmax, nmin : integer;
a : array [ 0.. 200 ] of real;
max, min : real;
begin
assignfile ( f, ’ /home/ evgeniy/pascal /6/ pr1 / abc. dat ’ );
reset ( f );
//Cчитываем компоненты файла в массив а.
for i :=0 to file size ( f ) -1 do
begin
read ( f, a [ i ] );
write ( a [ i ] : 1 : 2, ’   ’ );
end;
//Начальное присваивание максимального и
//минимального элементов массива и их индексов.
max:=a [ 0 ]; nmax : = 0;
min:=a [ 0 ]; nmin : = 0;
//Основной цикл для поиска максимального b
//минимального элементов массива и их индексов.
for i :=1 to file size ( f ) -1 do
begin
if a [ i ]>max then
begin
max:=a [ i ];
nmax:= i
end;
if a [ i ]<min then
begin
min:=a [ i ];
nmin:= i
end;
end;
//Перезапись максимального и минимального значений в файл.
//Передвигаем указатель файла к максимальному элементу.
seek ( f, nmax );
//Записываем на место максимального элемента минимальный.
write ( f, min );
//Передвигаем указатель файла к минимального элементу.
seek ( f, nmin );
//Записываем на место максимального элемента минимальный.
write ( f, max );
//Обязательно закрываем файл.
closefile ( f ); readln;
end.

procedure TForm1. FormCreate ( Sender : TObject );
begin
	Form1. Caption :=
’Обмен максимального и минимального элемента в файле ’;
	label1.Caption := ’Исходный файл ’;
	label1.Visible := False;
	label2.Caption := ’Файл после преоброзования ’;
	label2.Visible := False;
	Edit1.Text := ’ ’;
	Edit1.Visible := false;
	Edit2.Text := ’ ’;
	Edit2.Visible := false;
	OpenDialog1. Filter :=
’Файлы вещественных_чисел | *. datВсе |  файлы | *. * ’;
OpenDialog1. InitialDir := ’ /home/ evgeniy/pascal /6/ pr1 ’;
	Button1. Caption := ’Преобразовать файл ’;
	Button2. Caption := ’Выход ’;
	Button2. Visible := False;
end;

procedure TForm1. Button1Click ( Sender : TObject );
var
f : file of real;
i, nmax, nmin : integer;
a, max, min : real;
s1, s : string;
begin
//Открываем диалоговое окно для выбора файла.
if OpenDialog1. Execute then
begin
//В переменную s записываем полное имя файла.
	s := OpenDialog1. FileName;
//Связываем файловую переменную с файлом на диске.
	assignfile ( f, s );
//Открываем файл в режиме чтения.
	reset ( f );
//Делаем видимыми первую метку и поле ввода.
	label1 Visible := true;
	Edit1.Visible := true;
//В строке s1 будем формировать содержимое файла.
	S1:= ’ ’;
//Цикл для последовательного чтения всех элементов из файла
//вещественных чисел.
	for i :=0 to file size ( f ) -1 do
	begin
//Считывание очередного элемента массива в переменную a.
		read ( f, a );
		if i =0 then
//Начальное присваивание максимального и минимального значений
//и их индексов.
		begin
			max:=a; nmax:= i;
			min:=a; nmin:= i;
		end
		else
		begin
//Сравнение текущего значения с максимальным (минимальным).
			if max<a then
			begin
				max:=a;
				nmax:= i
			end;
			if min>a then
			begin
				min:=a;
				nmin:= i
			end
		end;
//Добавление очередного значения к выходной строке s1.
		s1 := s1+FloatToStr ( a)+ ’   ’;
	end;
//Вывод содержимого файла в первое текстовое поле
//редактирования.
	Edit1. Text := s1;
//Запрет изменения текстового поля.
	Edit1. ReadOnly:= true;
//Перезапись максимального и минимального значений в файл.
//Передвигаем указатель файла к максимальному элементу.
	seek ( f, nmax );
//Записываем на место максимального элемента минимальный.
	write ( f, min );
//Передвигаем указатель файла к максимальному элементу.
	seek ( f, nmin );
//Записываем на место минимального элемента максимальный.
	write ( f, max );
//Обязательно закрываем файл.
	closefile ( f );
	reset ( f );
//Делаем видимыми вторую метку и поле ввода.
	label2.Visible := true;
	Edit2.Visible := true;
//Считываем данные из преобразованного файла
	s1 := ’ ’;
	for i :=0 to file size ( f ) -1 do
	begin
		read ( f, a );
//Добавление очередного значения из преобразованного файла
//к выходной строке s1.
	s1 := s1+FloatToStr ( a)+ ’   ’;
end;
//Вывод содержимого преобразованного файла во второе текстовое
//поле редактирования.
	Edit2. Text := s1;
//Запрет изменения текстового поля.
	Edit2. ReadOnly:= true;
//Делаем видимой вторую кнопку.
	Button2. Visible :=True;
	CloseFile ( f );
	end;
end;

procedure TForm_File. Button2Click ( Sender : TObject );
begin
	Close;
end;

program Project1;
{$mode objfpc}{$H+}
uses Classes, SysUtils
{ you can add units after this };
var
f : file of real;
max, min : real;
j, i, nmax, nmin : integer;
a : array [ 1.. 300 ] of real;
begin
assignfile ( f, ’ /home/ evgeniy/pascal /6/ pr1 / abc. dat ’ );
reset ( f );
//Запоминаем в переменной j количество компонентов в файле.
j := filesize ( f );
//Считываем компоненты файла в массив а.
for i :=1 to j do read ( f, a [ i ] );
for i :=1 to j do write ( a [ i ] : 1 : 2, ’   ’ );
writeln;
closefile ( f );
//Открываем файл для записи.
rewrite ( f );
//Начальное присваивание максимального и
//минимального элементов массива и их индексов.
max:=a [ 1 ]; min:=a [ 1 ];
nmax : = 1; nmin : = 1;
//Основной цикл для поиска максимального и
//минимального элементов массива и их индексов.
for i :=2 to j do
begin
	if a [ i ]>max then
	begin
		max:=a [ i ];
		nmax:= i
	end;
	if a [ i ]<min then
	begin
		min:=a [ i ];
		nmin:= i;
	end;
end;
//Перезапись элементов массива в файл, за исключением
//элементов с номерами nmax и nmin.
writeln ( ’Преобразованный_файл ’ );
for i :=1 to j do
	if ( i <>nmax) and ( i <>nmin ) then
	begin
		write ( f, a [ i ] );
//Вывод записанного в файл элемента на экран.
		write ( a [ i ] : 1 : 2, ’   ’ );
	end;
closefile ( f );
readln;
end.

program Project1;
{$mode objfpc}{$H+}
uses Classes, SysUtils
{ you can add units after this };
var
f : file of real;
a : real;
max, min : real;
i, nmax, nmin : integer;
begin
assignfile ( f, ’ /home/ evgeniy/pascal /6/ pr1 / abc. dat ’ );
reset ( f );
//Поиск максимального и минимального элементов в файле и их
//индексов.
writeln ( ’Исходный файл ’ );
for i :=0 to filesize ( f ) -1 do
begin
	read ( f, a );
	write ( a : 1 : 2, ’   ’ );
	if i =0 then
	begin
		max:=a;
		nmax:= i;
		min:=a;
		nmin:= i
	end
	else
	begin
		if a>max then
		begin
			max:=a;
			nmax:= i;
		end;
		if a<min then
		begin
			min:=a;
			nmin:= i;
		end
	end
end;
writeln;
//Сравниваем nmin и nmax.
if nmax<nmin then
begin
	i :=nmax;
	nmax:=nmin;
	nmin:= i
end;
//Сдвигаем элементы, лежащие между компонентами
//с номерами nmin и nmax, на один влево.
for i :=nmin to nmax-2 do
begin
	seek ( f, i +1);
	read ( f, a );
	seek ( f, i );
	write ( f, a );
end;
//Сдвигаем элементы, лежащие после компонента
//с номером nmax, на два влево.
for i :=nmax to filesize ( f ) -3 do
begin
	seek ( f, i +1);
	read ( f, a );
	write ( a : 1 : 2 );
	seek ( f, i - 1);
	write ( f, a );
	write ( a : 1 : 2 );
end;
//Отрезаем последние два компонента.
truncate ( f );
closefile ( f );
reset ( f );
//Вывод преобразованного файла.
writeln ( ’Преобразованный_файл ’ );
for i :=1 to file s i z e ( f ) do
begin
	read ( f, a );
//Вывод записанного в файл элемента на экран.
	write ( a : 1 : 2, ’ _ ’ );
	end;
closefile ( f );
readln;
end.

Содержание:

• Типизированные файлы в Паскаль
  • Описание:
  • Открытие файла
  • Чтение из текстового файла
  • Запись в текстовый файл
  • Процедуры работы с файлом
• Символьные и строковые файлы (типизированные)
  • Последовательный доступ
• Числовые файлы (типизированные)
  • Последовательный доступ
  • Прямой доступ

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

var
    f: file of char;
    c: char;
    i, n: byte;
begin
    assign (f, 'c:file.txt');
    rewrite (f);
 
    write ('Количество символов: ');
    readln (n);
 
    for i:=1 to n do begin
        write ('Введите символ: ');
        readln (c);
        write (f, c);
    end;
close (f);
end.

Пример: (последовательный доступ) Дан символьный файл, содержащий, по крайней мере, один символ пробела. Удалить все его элементы, расположенные после первого символа пробела, включая и этот пробел.

* Предварительно следует программно записать в исходный файл символы

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

var
 F_in,F_out: File of Char;
 a,C:Char;
 i:integer;
begin
  Assign(F_in,'c:text.txt');
  ReWrite(F_in);
  write('Какие символы записываем в исходный файл?');
  for i:=1 to 5 do
  begin
       read(a);
       write(F_in,a);
  end;
 
  Reset(F_in);
  Assign(F_out,'c:text1.txt');
  ReWrite(F_out);
 
  Read(F_in,C);
  while (not eof(F_in)) and (C<>' ') do
   begin
    Write(F_out,C);
    Read(F_in,C);
   end;
   Close(F_out);
   Close(F_in);
   Erase(F_in);
   Rename(F_out,'c:text.txt');
end.

pascal file string1. Дан символьный файл, содержащий, по крайней мере, один символ пробела. Удалить все его элементы, расположенные после последнего символа пробела, включая и этот пробел.

Пример: Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наименьшей длины (в том же порядке).

Пример:

Введите строки исходного файла:
первая строка
вторая строка длинная
третья строка
строка
пятая строка

результирующий файл:
строка

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

var
 S: String;
 F_in,F_out: file of string;
 MinLen: integer;
  i:integer;
begin
  Assign(F_in,'c:text.txt');
  Rewrite(F_in);
   write('Введите строки исходного файла:');
  for i:=1 to 5 do
  begin
       read(s);
       write(F_in,s);
  end;
  Reset(F_in);
  Assign(F_out,'c:text1.txt');
  Rewrite(F_out);
 
 MinLen:=-1;
 
 
 while (not eof(F_in)) do
  begin
   Read(F_in,S);
   if (Length(S)<MinLen) or (MinLen=-1) then
   MinLen:=Length(S);
  end;
 
 Close(F_in);
 Reset(F_in);
 
 
 while (not eof(F_in)) do
  begin
   Read(F_in,S);
   if Length(S)=MinLen then
   Write(F_out,S);
  end;
 
 Close(F_in);
 Close(F_out);
end.

pascal file string2. Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины (в обратном порядке).

Пример: Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке.
Внимание: числа в исходном файле должны быть записаны программно! Иначе считывание будет происходить неверно.

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

var
 S,s1:String;
 F_in,F_out: File of Integer;
 k,i:integer;
 a:array[1..100] of integer;
begin
  S:='c:text.txt';
  Assign(F_in,S);
  rewrite(F_in);
  for i:=1 to 10 do
      write(F_in,i); {записываем в исходный файл числа}
  close(F_in);
  Reset(F_in);
  S1:= 'c:text1.txt';
  Assign(F_out,S1);
  ReWrite(F_out);
 
  k:=1;
  writeln('считанные из файла числа:');
   while (not eof(F_in)) do
   begin
    Read(F_in,a[k]);
    writeln(a[k]);
    k:=k+1;
   end;
  Close(F_in);
writeln('записываемые числа в файл');
 for i:=k-1 downto 1 do
   begin
    Write(a[i]:3);
    Write(F_out,a[i]);
   end;
 
 Close(F_out);
end.

pascal file 2. Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1,3,…), а второй — с четными (2,4,…).
Внимание: числа в исходном файле должны быть записаны программно! Иначе считывание будет происходить неверно.

pascal file 3. Дан файл вещественных чисел. Найти сумму его элементов с четными номерами.
Внимание: числа в исходном файле должны быть записаны программно! Иначе считывание будет происходить неверно.

Пример: Дан файл вещественных чисел. Найти его первый локальный минимум (локальным минимумом называется элемент, который меньше своих соседей).

* Для решения не использовать массивы.

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

var
 S:String;
 F_in: File of Real;
 El2,El1,El:Real;
 i:integer;
 a:real;
 
begin
  Assign(F_in,'c:text.txt');
  rewrite(F_in);
  writeln ('Введите вещественные числа');
  for i:=1 to 5 do begin
      read(a);
      write(F_in,a); {заполняем исходный файл числами}
  end;
  close(F_in);
  Reset(F_in); 
  Read(F_in,El);
  Read(F_in,El1);
  Read(F_in,El2);
  writeln('Результат =');
  if (El1<El)and(El1<El2) then Writeln('s',El1:4:2)
  else
   begin
    while (not eof(F_in)) and not((El>El1) and (El1<El2)) do
     begin
      El:=El1;
      El1:=El2;
      Read(F_in,El2);
     end;
    if (El>El1) and (El1<El2) then
       Writeln(El1:4:2)
    else if eof(F_in) and (El1>El) then
       Writeln(El:4:2);
   end;
  Close(F_in);
end.

pascal file 4. Дан файл вещественных чисел. Найти его последний локальный максимум (локальным максимумом называется элемент, который больше своих соседей).

Пример:
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

* Перед выполнением программы необходимо узнать в какой папке сохраняются файлы, созданные программой ABC.

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var
 S:String;
 F_in,F_temp: File of Real;
 temp:Real;
begin
    Assign(F_in,'text.txt');
  Reset(F_in);
  Assign(F_temp,'text1.txt');
  ReWrite(F_temp);
  while (not eof(F_in)) do
   begin
    Read(F_in,temp);
    temp:=sqr(temp);
    Write(F_temp,temp);
   end;
 
  Close(F_in);
  Close(F_temp);
  Erase(F_in); {удаление файла}
  Rename(F_temp,'text.txt'); {Переименование файла}
end.

pascal file 5. Дан файл вещественных чисел. Поменять в нем местами минимальный и максимальный элементы.
Алгоритм:

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var
    f: file of char;
    c: char;
    n: integer;
begin
    assign (f, 'c:text.txt');
    reset (f);
    write('Введите позицию: ');
    readln(n);
    seek(f,n);
    write('Введите новый символ: ');
    readln(c);
    write(f,c);
    close(f);
 end.

Вданной главе будут рассмотрены возможности языка FreePascal для работы с файлами. По ходу изложения материала читатель также познакомится с компонентами Lazarus, предназначенными для выбора файла.

Начнем со знакомства с типами файлов.

7.1 Типы файлов

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

C точки зрения программиста, все файлы можно разделить на три класса:

•типизированные;

•бестиповые;

•текстовые.

Файлы, состоящие из компонентов одного типа (целые, вещественные, массивы и т.д.), число которых заранее не определено и может быть любым, называются типизированными. Они заканчиваются специальным символом «конец файла», хранятся в двоичном виде, содержимое подобных файлов нельзя просмотреть обычным текстовым редактором, для просмотра подобных файлов нужно писать специальную программу.

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

Текстовые файлы состоят из любых символов. При записи информации в текстовый файл все данные преобразуются к символьному типу, в котором и хранятся. Просмотреть данные в подобном файле можно с помощью любого текстового редактора. Информация в текстовом файле хранится построчно. В конце каждой строки хранится специальный символ «конец строки». Конец самого файла обозначается символом «конец файла».

цедура AssignFile(f,s), где f – имя файловой переменной, а s –

полное имя файла на диске (файл должен находиться в текущем каталоге при условии, что к нему специально не указывается путь).

Рассмотрим примеры использования AssignFile для различ-

ных операционных систем. var

f:file of real; begin

//Пример процедуры assign для ОС Windows. AssignFile (f, ‘d:tptmpabc.dat’); //Пример процедуры assign для ОС Linux. AssignFile(f,’/home/pascal/6/pr1/abc.dat’);

7.2.2 Процедуры reset, rewrite

После установления связи между файловой переменной и именем файла на диске нужно открыть файл, воспользовавшись процедурами reset или rewrite.

Процедура reset(f) (где f – имя файловой переменной) открывает файл, связанный с файловой переменной f, после чего ста-

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

Процедура rewrite(f) создает пустой файл (месторасположение файла на диске определяется процедурой AssignFile) для по-

следующей записи в него данных.

Внимание!!! Если файл, связанный с файловой переменной f, существовал на диске, то вся информация в нем уничтожается.

7.2.3 Процедура СloseFile

Процедура CloseFile(f), где f – имя файловой переменной, закрывает файл, который ранее был открыт процедурами rewrite, reset.

Процедуру CloseFile(f) следует обязательно использовать

при закрытии файла, в который происходила запись данных.

Дело в том, что процедуры записи в файл не обращаются непосредственно к диску, они пишут информацию в специальный участок памяти, называемый буфером файла. После того как буфер заполнится, вся информация из него переносится в файл. При выполнении

процедуры closefile сначала происходит запись буфера файла на

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

Внимание!!! После записи информации в файл его обязательно закрывать с помощью процедуры CloseFile. Однако при чтении дан-

ных из файла нет необходимости в обязательном его закрытии.

7.2.4 Процедура rename

Переименование файла, связанного с файловой переменной f,

осуществляется в то время, когда он закрыт, при помощи процедуры rename(f,s), где f – файловая переменная, s – новое имя файла

(строковая переменная).

7.2.5 Процедура erase

Удаление файла, связанного с переменной f, выполняется посредством процедуры erase(f), в которой f также является именем

файловой переменной. Для корректного выполнения этой операции файл должен быть закрыт.

7.2.6 Функция eof

Функция eof(f) (end of file), где f – имя файловой переменной, принимает значение «истина» (true), если достигнут конец файла, иначе – «ложь» (false). С помощью этой функции можно проверять,

достигнут ли конец файла и можно ли считывать очередную порцию данных.

7.2.7 Чтение и запись данных в файл

Для записи данных в файл можно использовать процедуру write: write(f, x1, x2,…, xn);

write(f, x);

здесь

f — имя файловой переменной,

x, x1, x2, …, xn — имена переменных, значения из которых записываются в файл.

Тип компонентов файла обязательно должен совпадать с типом переменных. При выполнении процедуры write значения x1, x2, …,

xn последовательно записываются в файл (начиная с текущей позиции), связанный с файловой переменной f.

Для чтения информации из файла, связанного с файловой переменной f, можно воспользоваться процедурой read:

read(f, x1, x2, x3,…, xn); read(f, x);

здесь

f — имя файловой переменной,

x, x1, x2, …, xn — имена переменных, в которые считываются

значения из файла.

Процедура read последовательно считывает компоненты из файла, связанного с файловой переменной f, в переменные x1, x2, …, xn. При считывании очередного значения доступным становится следующее. Следует помнить, что процедура read не проверяет, достигнут ли конец файла. За этим нужно следить с помощью функции eof.

Для того чтобы записать данные в файл, необходимо выполнить следующее:

1.Описать файловую переменную.

2.Связать ее с физическим файлом (процедура AssignFile).

3.Открыть файл для записи (процедура rewrite).

4.Записать данные в файл (процедура write).

5.Обязательно закрыть файл (процедура CloseFile). Рассмотрим создание компонентного файла на примере решения

следующей несложной задачи.

ЗАДАЧА 7.1. Создать типизированный файл и записать туда n вещественных чисел.

Алгоритм решения задачи состоит из следующих этапов:

1.Открыть файл для записи с помощью оператора rewrite.

2.Ввести значение n.

3.В цикле (при i меняющемся от 1 до n) вводим очередное ве-

щественное число a, которое сразу же записываем в файл с помощью процедуры write.

4. Закрываем файл с помощью процедуры closefile.

Текст консольного приложения, предназначенного для решения

Алексеев Е.Р., Чеснокова О.В., Кучер Т.В. Самоучитель по программированию на Free Pascal и Lazarus 352

данной задачи приведен ниже. program pr1;

{$mode objfpc}{$H+} uses

Classes, SysUtils

{ you can add units after this }; var f:file of real;

i,n:integer;

a:real; begin

//Связываем файловую переменную с файлом //на диске. AssignFile(f,’/home/pascal/6/pr1/abc.dat’); //Открываем пустой файл для записи.

rewrite(f);

//Определяем количество элементов в файле. write(‘n=’);

readln(n);

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

for i:=1 to n do begin

write(‘a=’);

readln(a);

write(f,a);

end; //Закрываем файл.

//При записи данных в файл это делать //обязательно.

CloseFile(f)

end.

Рассмотрим следующую задачу

ЗАДАЧА 7.2. В папке /home/evgeniy/pascal/6/pr2/ находятся файлы вещественных чисел с расширением dat. В выбранном пользователем файле удалить все числа, меньшие среднего арифметического, расположенные между максимальным и минимальным элементами.

В задаче предполагается выбор пользователем файла для обра-

Первый фильтр в списке является фильтром по умолчанию. В примере на рис. 7.2 фильтр по умолчанию — «Программы на C». InitialDialog — имя каталога по умолчанию для выбора файлов.

DefaultExt — расширение, добавляемое к имени файла по

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

Основным методом для компонента OpenDialog — является логическая функция Execute, которая приводит к открытию диалого-

вого окна в соответствии со свойствами компонента. Функция Execute возвращает true, если пользователь выбрал файл каким-

либо методом. Если пользователь нажал в диалоговом окне Отмена (Cancel), то метод Execute возвращает false. Имя выбранного файла возвращается в свойстве FileName.

Таким образом, вызов диалогового окна можно записать так.

Var s:String; begin

if OpenDialog1.Execute then s:=OPenDialog1.FileName;

{Имя файла, выбранного пользователем, хранится в переменной s}.

end;

Разобравшись с компонентом для выбора файла, вернемся к задаче 7.2. Можно выделить следующие этапы ее решения.

1.Выбор файла.

2.Чтение данных из файла в массив вещественных чисел.

3.В массиве вещественных чисел удалить все числа, меньшие среднего арифметического, расположенные между максимальным и минимальным элементами.

4.Запись преобразованного массива в файл.

Разработку программы начнем с создания графического приложения (Проект — Создать Проект — Приложение).

На форме расположим следующие компоненты:

1.Две метки Label1 и Label2 для подписи.

2.Memo1 — компонент, в котором будем хранить содержимое исходного файла.

3.Memo2 — компонент, в котором хранится преобразованный

файл.

4. OpenDialog1 — компонент для выбора имени обрабатываемого файла.

5.Buttom1 — кнопка для запуска программы.

6.Buttom2 — кнопка для завершения программы.

Установим следующие свойства формы и компонентов (см. табл. 7.1 — 7.8).

Таблица 7.1: Свойства формы

Расположим компоненты на форме подобно показанному на рис. 7.3. При запуске программы на выполнение все компоненты, кроме кнопки «Преобразовать файл», будут невидимыми, свойство

Visible установлено в False. Окно приложения при запуске пока-

При создании формы установим свойство Filter компонента

OpenDialog1. Поэтому подпрограмма FormCreate будет такой. procedure TForm_File.FormCreate(Sender: TObject);

begin OpenDialog1.Filter:=

‘Файлы вещественных чисел|*.dat|Все файлы|*.*’; end;

При щелчке по кнопке «Преобразовать файл» должно происходить следующее:

1.Выбор файла из диалогового окна.

2.Считывание данных из файла в массив вещественных чисел.

3.Установка свойства Visible в True у компонентов

label1 и Memo1.

4.Вывод содержимого массива в Memo1.

5.Преобразование массива.

6.Запись преобразованного массива в файл.

7.Установка свойства Visible в True у компонентов

label2 и Memo2.

8.Вывод преобразованного массива в Memo2.

9.Установка свойства Visible в True у компонента

Button_Close.

Ниже приведен текст обработки события Button_FileClick с

подробными комментариями.

procedure Tform_File.Button_FileClick(

Sender: TObject);

var

f:file of real; s:string; a:array[1..100] of real; nmax,nmin,i,j,n:integer; sum,max,min:real;

begin

//Открываем диалоговое окно для выбора файла. if opendialog1.execute then

begin

//Имя выбранного файла считываем в s. s:=OpenDialog1.FileName;

//переходим к следующему. i:=i+1;

end;

//Делаем видимыми вторую метку //и компонент Memo2.

label2.Visible:=true;

Memo2.Visible:=true; rewrite(f);//Открываем файл для записи.

//Преобразованный массив записываем //в файл и выводим в компонент Memo2.

for i:=1 to n do begin

write(f,a[i]);

Memo2.Lines.Add(FloatToStr(a[i]));

end;

//Закрываем файл, делаем видимой вторую кнопку. CloseFile(f);

Button_Close.Visible:=True;

end;

end;

При щелчке по кнопке «Закрыть» программа должна завершать свою работу. Поэтому текст обработчика щелчка по кнопке будет

очень простым.

procedure Tform_File.Button_CloseClick( Sender: TObject);

begin Close;

end;

Проверим функционирование созданного приложения. После запуска программы появляется окно, подобное представленному на рис. 7.4. Щелкаем по кнопке Преобразовать файл, появляется

окно, подобное представленному на рис. 7.5. После щелчка по кнопке OK окно программы становится похожим на представленное на рис. 7.6. Щелчок по кнопке Закрыть завершает работу приложения. Зада-

ча 7.2 решена.

Рисунок 7.6: Окно с результатами работы программы

Использование динамического массива не решит эту проблему, потому что неизвестно количество элементов в массиве. Для решения этой программы в языке FreePascal реализован прямой доступ к файлу с помощью рассмотренных далее подпрограмм работы с файлами.

Одной из проблем при копировании данных из типизированного файла в массив является невозможность корректного выделения памяти под массив. При выделении памяти заранее неизвестно, сколько элементов находится в файле. Для решения этой задачи существует функция filesize(f)(f– файловая переменная), которая возвра-

щает значение типа longint — число реальных компонентов в открытом файле, связанном с файловой переменной f. Для пустого файла функция возвращает число 0.

Применим функцию filesize для переписывания вещественных чисел из файла в массив.

ЗАДАЧА 7.3. Переписать содержимое файла вещественных чисел в массив.

program Project1; {$mode objfpc}{$H+} uses Classes, SysUtils

{ you can add units after this }; //Massiw — тип данных — массив

//из 1000 элементов. type

massiw=array[1..1000] of real;

var

f:file of real;

//a -указатель на массив; a:^massiw;

n,i:word; begin

//Связываем файловую переменную //реальным файлом на диске.

assignfile(f,’/home/pascal/6/pr1/abc.dat’); //Открываем файл для чтения

reset(f);

//Записываем в переменную n — количество

//элементов в файле f. n:=filesize(f);

writeln(‘в файле ‘,n, ‘ чисел’);

//Выделяем память для динамического массива a //из n вещественных чисел. getmem(a,n*sizeof(real));

for i:=1 to n do begin

//Считываем очередной элемент из файла //в массив.

read(f,a^[i]);

//Вывод элемента на экран. write(a^[i]:1:3, ‘ ‘) end;

//Освобождаем память, выделенную //для динамического массива. freemem(a,n*sizeof(real)); //Закрываем файл.

closefile(f);

readln;

end.

Функция filepos(f) возвращает значение типа longint –

текущую позицию в открытом файле, связанном с файловой переменной f. Сразу после открытия файла значение filepos(f) равно 0.

После прочтения последнего компонента из файла значение filepos(f) совпадает со значением filesize(f). Достижение

конца файла можно проверить с помощью условия: if filepos(f)=filesize(f) then

writeln(‘достигнут конца файла’);

Процедура seek(f,n) устанавливает указатель в открытом файле, связанном с файловой переменной f, на компонент с номером n (нумерация компонентов идет от 0). Затем значение компонента мо-

жет быть считано.

Процедура truncate(f), где f – имя файловой переменной, от-

секает часть открытого файла, начиная с текущего компонента, и подтягивает на его место конец файла.

Использование процедур seek и truncate рассмотрим на при-

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

ЗАДАЧА 7.4. В файле вещественных чисел /home/pascal/6/pr1/abc.dat поменять максимальный и минимальный элементы.

Рассмотрим два варианта решения этой задачи.

В первом консольном варианте программы — после считывания компонентов файла в массив происходит поиск минимального и максимального элементов массива и их индексов. Затем максимальное и

минимальное значения перезаписываются в файл. program Project1;

{$mode objfpc}{$H+} uses Classes, SysUtils

{ you can add units after this }; var f:file of real;

i, nmax, nmin :integer; a:array[0..200] of real; max,min:real;

begin assignfile(f,’/home/pascal/6/pr1/abc.dat’); reset(f);

//Cчитываем компоненты файла в массив а. for i:=0 to filesize(f)-1 do

begin read(f,a[i]);

write(a[i]:1:2,’ ‘); end;

//Начальное присваивание максимального и //минимального элементов массива и их индексов. max:=a[0]; nmax:=0;

min:=a[0]; nmin:=0;

//Основной цикл для поиска максимального и //минимального элементов массива и их индексов. for i:=1 to filesize(f)-1 do

begin

if a[i]>max then begin

max:=a[i];

nmax:=i

ся файл после преобразования.

4. OpenDialog1 — компонент для выбора имени обрабатываемого файла.

5.Button1 — кнопка для запуска программы.

6.Button2 — кнопка для завершения программы. Расположим компоненты на форме примерно так, как показано на

рис. 7.7.

Рисунок 7.7: Окно проекта с компонентами

Основные свойства компонентов будем устанавливать программно при создании формы. Поэтому подпрограмма FormCreate будет

такой.

procedure TForm1.FormCreate(Sender: TObject); begin

Form1.Caption:=

‘Обмен максимального и минимального элементов в файле’;

label1.Caption:=’Исходный файл’; label1.Visible:=False; label2.Caption:=’Файл после

преобразования’;

label2.Visible:=False;

Edit1.Text:=»;

Edit1.Visible:=false;

Edit2.Text:=»;

Edit2.Visible:=false;

OpenDialog1.Filter:=

‘Файлы вещественных чисел|*.dat|Все файлы|*.*’; OpenDialog1.InitialDir:=’/home/pascal/6/pr1′; Button1.Caption:=’Преобразовать файл’;

Button2.Caption:=’Выход’;

Button2.Visible:=False;

end;

Авторы надеются, что читателям, дочитавшим книгу до этого момента, текст процедуры TForm1.FormCreate понятен без поясне-

ний.

При запуске программы окно формы будет иметь вид, представленный на рис. 7.8.

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

procedure TForm1.Button1Click(Sender: TObject); var

f:file of real; i,nmax,nmin:integer; a,max,min:real; s1,s:string;

begin

//Открываем диалоговое окно для выбора файла. if OpenDialog1.Execute then

begin

//В переменную s записываем полное имя файла. s:=OpenDialog1.FileName;

//Связываем файловую переменную //с файлом на диске.

assignfile(f,s);

Алексеев Е.Р., Чеснокова О.В., Кучер Т.В. Самоучитель по программированию на Free Pascal и Lazarus 370

seek(f,nmin); //Записываем на место

//минимального элемента максимальный. write(f,max);

//Обязательно закрываем файл. closefile(f);

reset(f);

//Делаем видимыми вторую метку и поле ввода. label2.Visible:=true; Edit2.Visible:=true;

//Считываем данные из преобразованного файла s1:=»;

for i:=0 to filesize(f)-1 do begin

read(f,a);

//Добавление очередного значения

//из преобразованного файла к строке s1. s1:=s1+FloatToStr(a)+’ ‘;

end;

//Вывод содержимого преобразованного //файла во 2-е текстовое поле.

Edit2.Text:=s1;

//Запрет изменения текстового поля. Edit2.ReadOnly:=true;

//Делаем видимой вторую кнопку. Button2.Visible:=True; CloseFile(f);

end;

end;

При щелчке по кнопке Выход программа должна завершать свою работу. Поэтому текст обработчика щелчка по кнопке будет очень

простым.

procedure Tform_File.Button2Click(Sender: TObject);

begin Close;

end;

При щелчке по кнопке Преобразовать файл, появляется окно

выбора файла, подобное представленному на рис. 7.5. После выбора файла в файле происходит обмен максимального и минимального элементов и вывод содержимого файла до и после преобразования (см. рис. 7.9).При щелчке по кнопке Выход работа программы завершит-

ся.

Рисунок 7.9: Окно программы решения задачи 7.4 после преобразования файла

При решении задачи 7.4 была использована процедура seek, с

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

ЗАДАЧА 7.5. Задан файл вещественных чисел abc.dat. Удалить из него максимальный и минимальный элементы.

Рассмотрим две программы, решающие эту задачу. Алгоритм первой состоит в следующем: считываем компоненты файла в массив, в котором находим максимальный и минимальный элементы и их номера. Открываем файл для записи и вносим в него все элементы, за исключением максимального и минимального.

program Project1;

Алексеев Е.Р., Чеснокова О.В., Кучер Т.В. Самоучитель по программированию на Free Pascal и Lazarus 373

end;

end;

//Перезапись элементов массива в файл, //за исключением элементов с //номерами nmax и nmin. writeln(‘Преобразованный файл’);

for i:=1 to j do

if (i<>nmax)and (i<>nmin) then begin

write(f,a[i]);

//Вывод записанного в файл элемента на экран. write(a[i]:1:2,’ ‘);

end;

closefile(f);

readln;

end.

Вторая программа работает следующим образом. Находим максимальный и минимальный элементы и их номера среди компонентов файла. Если nmin>nmax, то меняем содержимое переменных nmin и

nmax. Далее элементы, лежащие между минимальным и максимальным (формально между элементами с номерами nmin и nmax), сдви-

гаем на один порядок влево. Тем самым мы убираем элемент с номером nmin. После этого все компоненты, лежащие после элемента с

номером nmax, сдвинем на два порядка влево. Этим мы сотрем мак-

симальный элемент. Затем два последних компонента в файле необхо-

димо удалить.

program Project1; {$mode objfpc}{$H+} uses Classes, SysUtils

{ you can add units after this }; var

f:file of real; a:real; max,min:real; i,nmax,nmin:integer; begin

assign(f,’/home/pascal/6/pr1/abc.dat’); reset (f);

Алексеев Е.Р., Чеснокова О.В., Кучер Т.В. Самоучитель по программированию на Free Pascal и Lazarus 375

//на один влево.

for i:=nmin to nmax-2 do begin

seek(f,i+1);

read(f,a);

seek(f,i);

write(f,a);

end;

//Сдвигаем элементы, лежащие после компонента //с номером nmax, на два влево.

for i:=nmax to filesize(f)-3do begin

seek(f,i+1);

read(f,a);

write(a:1:2); seek(f,i-1); write(f,a); write(a:1:2);

end;

//Отрезаем последние два компонента. truncate(f);

closefile(f);

reset(f);

//Вывод преобразованного файла. writeln(‘Преобразованный файл’); for i:=1 to filesize(f) do

begin

read(f,a);

//Вывод записанного в файл элемента на экран. write(a:1:2,’ ‘);

end;

closefile(f);

end.

В результате программы из файла вещественных чисел удалено наибольшее и наименьшее число.

Кроме типизированных файлов, широкое применение при обработке числовых данных получили бестиповые файлы.