mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2025-01-04 00:31:30 +00:00
24 lines
340 B
ObjectPascal
24 lines
340 B
ObjectPascal
|
program ExampleFileBinary;
|
||
|
|
|
||
|
|
type
|
||
|
|
Number_File = file of real;
|
||
|
|
|
||
|
|
var
|
||
|
|
Data_Block: Number_File;
|
||
|
|
Counter: integer;
|
||
|
|
A: array[1..10] of real;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
for Counter := 1 to 10 do
|
||
|
|
A[Counter] := random;
|
||
|
|
|
||
|
|
Open(Data_Block, 'data');
|
||
|
|
Rewrite(Data_Block);
|
||
|
|
|
||
|
|
for Counter := 1 to 10 do
|
||
|
|
Write(Data_Block, A[Counter]);
|
||
|
|
|
||
|
|
Close(Data_Block);
|
||
|
|
|
||
|
|
end.
|