файлы, Пусть дан файл целых чисел с диапазоном значений от 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. 

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

[volvo]

программа почему-то считает только первое число

Потому что при первой же итерации цикла For (при i = a) ты дошел до конца файла, и при последующих итерациях у тебя из файла вообще ничего не читается, и ни с чем не сравнивается.

Если уж ты хочешь делать так, как начал - то надо Reset(f) перенести внутрь цикла For...

[marwell]

Потому что при первой же итерации цикла For (при i = a) ты дошел до конца файла, и при последующих итерациях у тебя из файла вообще ничего не читается, и ни с чем не сравнивается.

Если уж ты хочешь делать так, как начал - то надо Reset(f) перенести внутрь цикла For...

спасибо, получилось

Добавлено через 2 мин.

Если уж ты хочешь делать так, как начал - то надо Reset(f) перенести внутрь цикла For...

а есть способ попроще?

Сообщение отредактировано: marwell - 31.03.2010 17:19