Программа запрашивает имя файла и номер компонента и определяет, сколько повторяющихся компонентов встретилось на участке от начала файла до указанного компонента. Программа печатает сколько раз и какие повторяющиеся компоненты встретилось на заданном участке.
огромное спасибо =)
volvo
1.02.2006 1:14
Ну, и что сложного? Определяй массив и переменную - счетчик:
Var arr: array[1 .. max_size] of record value: integer; count: integer; end; arr_count: integer;
Далее идешь по файлу до того компонента, номер которого ввел как граничный, читаешь очередной компонент, и ищешь его в массиве Arr. Если он есть - увеличиваешь ЕГО count, если нет - добавляешь к Arr (и увеличиваешь arr_count)...
В результате в Arr будут содержаться все компоненты, присутствующие в файле, а в поле Count, соответственно, сколько раз они присутствуют... То, что больше одного раза - распечатываешь...
Myasnik
1.02.2006 2:22
ага, супер я всё понял... p.s. я в теме файлов полный ноль, читал её, нифига не врубился. мне бы лучше бы всю задачу разом.
volvo
1.02.2006 2:40
Ну, если ты считаешь, что тебе будет легче разобраться в том, что написал я - попробуй:
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. Ошибки не обрабатывались. Нужно - добавляй сам...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.