Структура данных - массив. Часть 1 - 9 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

9
дается аналогично тому, как создается программный текст на языке PASCAL
Опишем процедуру
Input_D ввода массива a[1..n] с диска:
const n_max=20;
type vect=array[1..n_max] of integer;
procedure Input_D(var n:integer;
var a:vect);
var f:text;
begin
assign(f,’DAN.txt’);
reset(f);
n:=0;
while not eof(f) and (n<n_max) do
begin
n:=n+1;
read(f,a[n]);
end;
close(f)
end;
Замечания.
1)
f:text; описание файловой переменной;
2) assign(f,’DAN.txt’); оператор связывания файловой переменной с
файлом на диске;
3)
reset(f); файл DAN.txt открывается для чтения ( указатель чте-
ния устанавливается в начало файла);
4)
eof(f) − булевская функция, которая имеет значение true, если достигнут
конец данных в файле (
end of file − конец файла), значение false − в
противном случае;
5)
read(f,a[n]); оператор чтения очередной записи из файла и сдвиг указателя
чтения на следующую запись в файле;
6)
close(f) − оператор, по которому закрывается файл;
7) переменная n после выхода из цикла получает значение количества элементов
массива, не превышающее
n_max;
8) если количество элементов в файле больше
n_max, то файл прочитан не до
конца.

Страницы