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

[Myasnik]

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

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

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

Сообщение отредактировано: Myasnik - 31.01.2006 20: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, соответственно, сколько раз они присутствуют... То, что больше одного раза - распечатываешь...