Нашел старичка BP7.0  и вот что у меня получилось
| Код |
program mas;
uses crt;
type
Tfilearray = record
f : file of integer;
name : String;
initialized : boolean
end;
var
mas1 : Tfilearray; {переменная масива}
int : longint;
i : longint;
procedure Initfilearray(var mas : Tfilearray; filename : String);
begin
mas.name := filename;
assign(mas.f, filename);
Rewrite(mas.f); {создаем файл}
mas.initialized := true;
end;
procedure Closefilearray(var mas : Tfilearray);
begin
Close(mas.f); {закрываем файл}
erase(mas.f); {удаляем файл}
mas.initialized := false;
end;
function getInteger(var mas : Tfilearray; index : longint) : Integer;
var
t : integer;
begin
seek(mas.f, index); {смещаемся к нужному элементу}
read(mas.f, t); {читаем его из файла}
getInteger := t;
end;
procedure setInteger(var mas : Tfilearray; index : longint; value : Integer);
begin
seek(mas.f, index);
write(mas.f, value); {записываем его в файл}
end;
Begin
clrscr;
int := 0;
Initfilearray(mas1, 'mas.tmp');
for i := 1000000 to 1200000
do
setInteger(mas1, i, i mod 32000); {заполняем массив некоторыми числами}
for i := 1199900 to 1200000
do
begin
int := GetInteger(mas1, i); {считываем сотню чисел из массива}
writeln('value is ',int); {выводим их на экран}
end;
Closefilearray(mas1); {удаляем файл и уничтожаем массив}
readkey; {ждем нажатия любой клавиши}
end.
|
|
