Здравтуйте. Проблема следующая, прога работает правильно, но в файлы, где хранятся и используются данные, когда просматриваешь их, всякая хрень. мне же надо цифры.
| Код |
program Projectwork;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
afile='f0.bin';
type
item=record
key:integer;
end;
tfile=file of item;
var
z : item; {çàïèñè}
xx: longint; {èíäåêñ ìàññèâà}
num : integer;
sel : char; {âûáîð ïóíêòà ìåíþ}
procedure menu; forward;
procedure filegen;
{ãåíåðàòîð áèíàðíûõ ôàéëîâ}
var
f0:tfile;
z:item;
i:integer;
begin
writeln ('Generacia faila');
assign (f0,afile);
write ('Razamernost of tfile: ');
readln (num);
rewrite (f0);
randomize;
i:=0;
while i<=num do
begin
z.key:=random(32000);
write (f0,z);
inc(i);
end;
close (f0);
writeln ('Sgenerirovan sluchainyi file iz ',num,' elementov.');
read;
end;
|
|