Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 2 / var 14 / Lab4dat
.pas program lab4dat;
var
f:file of integer;
i,j:integer;
begin
assign(f,'lab.dat');
{$I-}
rewrite(f);
{I+}
if ioresult<>0 then begin
writeln('Out of free space');
halt;
end;
randomize;
for i:=1 to 20 do begin
j:=random(100);
write(f,j);
end;
close(f);
end.
var
f:file of integer;
i,j:integer;
begin
assign(f,'lab.dat');
{$I-}
rewrite(f);
{I+}
if ioresult<>0 then begin
writeln('Out of free space');
halt;
end;
randomize;
for i:=1 to 20 do begin
j:=random(100);
write(f,j);
end;
close(f);
end.