Четверг, 09.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Нужна помощь в решении задачи
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 соответствующие компоненты. Если не равны, то вывел счетчик!


Поддерживаю также проект сообщество молодых сисадминов
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;