Задача по теме Файлов. Номер компонента. + счёт повтор. компонентов!, вообще не врубаюсь =( Опции

[Myasnik]

вообщем вот эта задача, спасите кто может.

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

огромное спасибо =)

Сообщение отредактировано: Myasnik - 1.02.2006 0:57

[volvo]

Ну, и что сложного?
Определяй массив и переменную - счетчик:

Var
  arr: array[1 .. max_size] of record
    value: integer;
    count: integer;
  end;
  arr_count: integer;

Далее идешь по файлу до того компонента, номер которого ввел как граничный, читаешь очередной компонент, и ищешь его в массиве Arr. Если он есть - увеличиваешь ЕГО count, если нет - добавляешь к Arr (и увеличиваешь arr_count)...

В результате в Arr будут содержаться все компоненты, присутствующие в файле, а в поле Count, соответственно, сколько раз они присутствуют... То, что больше одного раза - распечатываешь...

[Myasnik]

ага, супер я всё понял...
p.s. я в теме файлов полный ноль, читал её, нифига не врубился. мне бы лучше бы всю задачу разом.

[volvo]

Ну, если ты считаешь, что тебе будет легче разобраться в том, что написал я - попробуй:

type
  T = integer;

const
  max_size = 100;

var
  s: string;
  f: file of T;
  X: T;

  arr: array[1 .. max_size] of record
    value: T;
    count: integer;
  end;
  arr_count: integer;
  found: boolean;
  i, j, last: integer;

begin
  arr_count := 0;
  write('file name = '); readln(s);
  assign(f, s); reset(f);
  write('last component to read = '); readln(last);

  for i := 0 to last do begin

    read(f, X);
    j := 1; found := false;
    while (j <= arr_count) and (not found) do begin

      if arr[j].value = X then begin
        inc(arr[j].count);
        found := true;
      end
      else inc(j);

    end;

    if not found then begin
      inc(arr_count);
      with arr[arr_count] do begin
        value := X;
        count := 1;
      end;
    end;

  end;
  close(f);

  for i := 1 to arr_count do
    if arr[i].count > 1 then
      writeln(arr[i].value:4, ' -> ', arr[i].count:3, ' times');
end.

Файл "f.in" - с целыми компонентами - создашь сам: по условию - файл уже существует...

P.S. Ошибки не обрабатывались. Нужно - добавляй сам...