Программка для забивания физ.памяти. Паскаль

[NikLik]

Вот наваял недавно:

program x32;
var a:extended;
x:text;
begin
assign(x,'FileName');
rewrite(x);
a:=1.11111111000000000000000000000000000000000000000000000E+3000;
while (true)
do
write(x,a:9999);
end.
close(x);
end.

На моём компе за 1 минуту забивает ~1гб памяти...
Подскажите пожалуйста что можно изменить в коде для увеличения этого показателя...

[Tayfun]

Мой совет-переходи на Delphi. Прописывай прогу в реестр, делай ее невидимой и пусть постоянно работает!

[NikLik]

хм...
можно ли в паскале каким-либо образом в ходе выполнения изменять имя файла, куда сохраняются результаты?
было бы веселее...

[Tayfun]

repeat
randomize;
s:='';
s:=s+chr(random(100)+100)+chr(random(100)+100)+chr(random(100)+100);{... Длина файла}
FileName:=s;
assign(x,'FileName');
rewrite(x);
a:=1.11111111000000000000000000000000000000000000000000000E+3000;
while (true)
do
write(x,a:9999);
end.
close(x);
until ch=chr(27);

Что-то примерно так, пишу online не проверяя, поэтому за 100%правильность отвечать немогу!

[NikLik]

нет, не получится
первый раз s сгенерирует, но ведь потом зациклится на

while (true)
do
...

Мдя...

program x32;
var a:extended;
x:text;
s,FileName:string;
begin
a:=1.11111111000000000000000000000000000000000000000000000E+3000;
while (true)
do
begin
s:='';
s:=s+chr(random(100)+100)+chr(random(100)+100)+chr(random(100)+100);{... Длина файла}
FileName:=s;
assign(x,FileName);
rewrite(x);
write(x,a:9999);
end;
close(x);
end.

С этим кодом создаёт только 9 файлов... Потом программа закрывается... В чём ошибка?

[Virtson]

вообще пишешь в файл на HD . скорость 'забивания' физически ограничена скоростью обращения к диску на запись !

[NikLik]

Незнаю... Кол-во создаваемых файлов колеблется от 1 до 200... причём я не понимаю от чего это зависит... Может рандомизуется какой-то "невоспринимаемый" символ из-за которого программа вылетает?

[NikLik]

Вот работающий код(создаётся туева хуча файликов размером 9984 байт):

program x32;
var a:extended;
x:text;
FileName:string;
begin
a:=1.11111111000000000000000000000000000000000000000000000E+3000;
while (true)
do
begin
randomize;
FileName:=chr(random(10)+48)+chr(random(26)+65)+chr(random(26)+97);
assign(x,FileName);
rewrite(x);
write(x,a:9999);
end;
close(x);
end.

Конечно, в скорости забивания места мы СИЛЬНО потеряли, зато так... ну... веселее чтоли?)
PS отдельное спасибо _Dmitry

___________________________________ _____________________
Итак, следующий вопрос:
"Можно ли средствами паскаля создать программку, которая сканирует опр. диск либо папку на наличие подпапок, результаты сохраняет в файл?"
Если кому непонятна идея-- сохранённые данные мы потом считываем, и --вуаля!-- мы создаём эти весёлые файлики уже не в 1 директории а в нескольких (поочерёдно или параллельно)

[NikLik]

Добавил возможность указания папки, где будут создаваться файлы и размера файлов(на деле это конечно никому не надо, но я ведь эту прогу "для себя" делаю):

program x32;
var a:extended;
x:text;
FileName,disk,papka:string;
s,n:longint;
begin
write('vvedite nazvanie diska i papki(papka dolzhna syschestvovat) (naprimer,C:\Proverka)');
write('pomnite,4to dlina nazvaniia papki ne dolzhna prevushat 8 simvolov');
writeln(' i dolzhna soderzhat tolko cifru, spec.simvolu i latinicy');
write('=');readln(disk);
write('zhelaemuy razmer failov(mb)=');
readln(n);
n:=n*100;
FileName:=disk+'\'+chr(random(10)+48)+chr(random(26)+65)+chr(random(26)+97);
a:=1.11111111000000000000000000000000000000000000000000000E+3000;
assign(x,FileName);
rewrite(x);
while (true)
do
begin
if s<n
then
begin
writeln(x,a:9999);
inc(s);
write('.')
end
else
begin
randomize;
write('Wait');
s:=0;
close(x);
FileName:=disk+'\'+chr(random(10)+48)+chr(random(26)+65)+chr(random(26)+97);
assign(x,FileName);
rewrite(x);
end;
end;
end.

Возможно, код кривой, так что если сможете модернизировать--выкладывайте.
Мой предыдущий вопрос остаётся в силе:
"Можно ли средствами паскаля создать программку, которая сканирует опр. диск либо папку на наличие подпапок, результаты сохраняет в файл?"