Типизированные файлы

[Lev.F]

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

uses wincrt;
type
ch=file of integer;
st=string[15];
var
f1:ch;
i,j,n,z:integer;
procedure sozd_f1;          {процедура создания файла f1}
var
v:integer;
begin
 assign(f1,'F1.ler');
 rewrite(f1);
   begin
    write('введите количество элементов в файле - ');
    readln(z);              {вводится с клавиатуры кол-во чисел }
    randomize;              {подбираются случайные числа от 0 до 10 }
    for i:=1 to z do begin
    v:=random(10);
    write(f1,v);            {и вставляются в файл f1}
end;
   end;
   close(f1);
end;

procedure vivod(q:st);      {процедура вывода на экран файлов}
begin
assign(f1,q);
reset(f1);
while not eof(f1) do        {производится перебор файла до самого конца}
begin
read(f1,n);                 {и начиная с первого числа }
write(' ',n);               {выводить на экран все числа через пробел}
end;
close(f1);
end;
begin
while j<6 do begin
writeln(#13,'1-создание файла f1',#13,'2-просмотр файла f1');
readln(j);
case j of
1:sozd_f1;
2:begin
writeln(' ***  файл f1 ***');
vivod('F1.ler');end;
end;
end;
end.

[dimafe6]

у меня уже есть исходник(на курсовой была такая прога). готов поделится, но не за бесплатно.
dimafe2000@mail.ru - пиши, договоримся, недорого.

[Snejnaya]

как-то так:

поскольку не сказано, что нельзя все сложить в массив, сложим в массив

var mas:array 1..1000 of integer;
    kol_vo,x:integer;
    mnoj:set of integer;

assign(f1,q);
reset(f1);
kol_vo:=0;
while not eof(f1) do        {производится перебор файла до самого конца}
begin
read(f1,n);                 {и начиная с первого числа }
kol_vo:=kol_vo+1;
mas[kol_vo]:=n;
end;

//теперь перебираем весь массивчик

mnoj=[];
for i:=1 to kol_vo do
x:=0;
begin
if (not(mas[i] IN mnoj)) then //если число еще не проверялось
begin
for j:=i to kol_vo do
begin
if(mas[j]=mas[i]) then x:=x+1;
end;
mnoj:=mnoj+mas[i];
writeln(mas[i]);
write("-");
write(x);
end;
end;

[Grag]

Увидел, чуть со стула не упал!!!

var mas:array 1..1000 of integer;
    kol_vo,x:integer;
    mnoj:set of integer;

базовым типом элементов множества может выступать любой порядковый тип, кроме WORD, INTEGER, LONGINT...

[Snejnaya]

Grag
во блин... и не говори((((

ну по идее

mnoj: set of a..b)))

разве нельзя писать set of 1..10?

[Grag]

Так можна!!!

Type
  dig=set of 1..10;

Begin
  MySet:=[1..10];

End.