Рандомное заполнение файла

[Maray]

Добрый день!

Помогите, пожалуйста. Есть набор знаков: (j, e, m, o, ž, n, é, s, a, č, k, r, d, i, t, l, b, u, ú, c, ď, p, ľ, z, ý, š, á, ô, ť, h, ä, í, y, g, x, ó, ň, f, w, ŕ). Нужно заполнить текстовый файл этими символами рандомно. Число знаков в файле должно быть 10000-11000.

Язык программы Pascal, C++, C#. Любой из этих языков

[Serge_Bliznykov]

что такое &#233 ú, c, ď, p, ľ, z, &#253 и т.п. ?

заполните текстовый файл в формате Unicode нужными символами и прикрепите его к сообщению.

[NetSpace]

используй запись в файл, цикл по всем K= 1 до 11.000 и функцию Chr(Random(255))

var F:File;
Randomize;
AssignFile(F,'1.txt');
Reset(F,1);
for i:=1 to 11000 do
begin
   Seek(F,i-1)
   BlockWrite(F,Chr(Random(255),1);
end;
CloseFile(F);

ошибки есть, исправишь сам

[evg_m]

const 
  n=100; //или сколько там знаков в наборе
  rmas: array[0..n-1] of char =('j', 'e', &#250, &#253, ....); // ну и сами символы

const
    nn =11000; //сколько будем получать

var // на мой взгляд удобнее сначала все получить, а потом одним махом все записать в файл
   rt: string[nn];// сначала сложим сюда
   а: File; //а потом выгрузим сюда

begin

//получаем
Randomize;
for j:=1 to nn do rt[j]:=rmas[Random(n)];

// и выгружаем
AssignFile(f, 'randomfile.txt');
ReWrite(f);
BlockWrite(f, rt, nn);
closefile(f);

end;

описания использованных функций здесь

mas:=array of string =('a', 'ty', 'rty', ...); //если наши символы и маленькие (один байт) И большие (два и более байтов) например Unicode;

"прямая" запись в файл

...
Rewrite(f);
for j:=1 to nn do begin
  s:=Random(n);
  BlockRead(f, s, length(s)); 
end;
CloseFile(f);