Нужна помощь в решении задачи

Fedoroff

Дата: Пятница, 01.02.2008, 06:19 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 4

Репутация: 0

Замечания: 0%

Статус: Offline

Даны символьные файлы f и g. Определить, совпадают ли компоненты файла f с компонентами файла g?Если не, тополучить номер первой компоненты, в которой f и g отличаются между собой?

Сам смог тока проверить одинаковы файлы или нет, а вот вывести номер компоненты не смог. Пожалуйста, помогите!

Seqular

Дата: Пятница, 01.02.2008, 07:26 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Fedoroff, Открываешь оба файла... Затем в цикле делаешь так:

Code

Var a, b: char;
index: Integer;
.....
index := 0;
While Not (EoF(f1)) do
Begin
Inc(index);
Read(f1, a);
Read(f2, b);
If (a <> b) then Write('Номер компоненты - ',index);
End;

типа такого... т.е. в цикле счетчик... Каждой итерацией сравниваешь 2 соответствующие компоненты. Если не равны, то вывел счетчик!

Поддерживаю также проект сообщество молодых сисадминов

		Четверг, 15.01.2026
	Pascal 4 All