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

[marwell]

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

 var f:text;
  n,i,x,a,b:integer;
  name:string;
  w:word;
begin
x:=0;
writeln ('укажите путь к файлу');
readln (name);
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
assign(f, name);
reset (f);
for i:=a to b do begin
while not eof(f) do begin
readln (f,n);
if n=i then x:=x+1;
end;
writeln (i,'->',x);
x:=0;
end;
close (f);
readln;
end. 

программа почему-то считает только первое число, остальные выводит по нулям буду рад помощи

[Client]

описываешь массив:

mas: array[a..b] of integer;

Проходишь по файлу, читаешь, например

read(f,x);

В Х у тебя будет число. Теперь надо увеличить значение элемента в массиве с индексом Х

inc(mas[x])

Осталось только вывести массив, где ненулевые значения. Вроде все

Сообщение отредактировано: Client - 2.04.2010 11:40