Паскаль. Заполнить файл случайными целыми числами. Определить, сколько различных компонентов находится в файле.

[НужнаПомощь]

Заполнить файл целыми числами, полученными с помощью генератора случайных чисел. Определить, сколько различных компонентов находится в файле.

[Vanta11a]

Не вижу проблемы. Что сделано?

[НужнаПомощь]

Сообщение от Vanta11a

Не вижу проблемы. Что сделано?

Var
i,k,m,n:integer;
f:file of integer;
begin
randomize;
Assign(F,'MyFile1.dat');
writeln('Введите количество целых чисел');
readln(n);
For i:=1 to n do
write(f, random(10));
close(f); {всё. файл создан}

{выдадим содержимое файла на экран}
Reset(f); {открыть файл}
Write('содержимое файла: ');
for i:=1 to FileSize(f) do begin
Read(f, k);
Write(k:2,' ');
end;
Close(f); {закрыли файл}




не знаю, но может начало такое???

[ViktorR]

Для меня не очевидна версия Паскаля.
Если это типа ТР7.0 или FPC, то следует писАть в файл процедурой
Writeln(), а читать - процедурой Readln().
Если диапазон генерируемых целых чисел определен и не велик, как например в примере random(10), то можно читать числа из файла и использовать их как индекс в массиве.
В этом случае в элементе массива можно подсчитывать кол-во одинаковых чисел простым инкрементом. После просмотра массива можно получить информацию о количестве разных чисел.
Внимание, если в генерации есть нули, то массив, перед использованием, следует заполнить некоторым отрицательным/положительным значением, что позволит определить элементы массива в которых подсчет не велся (в массиве целых чисел такие значения отсутствуют).
В другом случае, когда число генерируемых чисел не велико, можно прочитать числа из файла в массив и отсортировать их. Затем выполнить подсчет отличающихся чисел.
В худшем случае придется делать сортировку через файлы.

Как-то так, ...

[НужнаПомощь]

Сообщение от ViktorR

Для меня не очевидна версия Паскаля.
Если это типа ТР7.0 или FPC, то следует писАть в файл процедурой
Writeln(), а читать - процедурой Readln().
Если диапазон генерируемых целых чисел определен и не велик, как например в примере random(10), то можно читать числа из файла и использовать их как индекс в массиве.
В этом случае в элементе массива можно подсчитывать кол-во одинаковых чисел простым инкрементом. После просмотра массива можно получить информацию о количестве разных чисел.
Внимание, если в генерации есть нули, то массив, перед использованием, следует заполнить некоторым отрицательным/положительным значением, что позволит определить элементы массива в которых подсчет не велся (в массиве целых чисел такие значения отсутствуют).
В другом случае, когда число генерируемых чисел не велико, можно прочитать числа из файла в массив и отсортировать их. Затем выполнить подсчет отличающихся чисел.
В худшем случае придется делать сортировку через файлы.

Как-то так, ...

Не могли бы вы схематически кинуть программу, скидает так сказать