Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106

даны 2 текстовых файла с целыми числами.

13.03.2012, 22:44. Показов 1130. Ответов 14
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
даны 2 текстовых файла с целыми числами. Определить совпадают ли эти файлы?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.03.2012, 22:44
Ответы с готовыми решениями:

Даны два текстовых файла f и f1. Определить совпадают ли компоненты файла f с компонентами файла f1
Добрый день. Помогите пожалуйста написать программу следующий задач. Даны два текстовых файла f и f1. Определить совпадают ли...

Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку второго файла
Нужна помощь с самим модулем,с загрузкой и сохранением файлов все в принципе понятно.

Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы
Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы?

14
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
13.03.2012, 22:45
побайтово сравни, или через MD5, если файлы окажутся равными то естественно и внутренности у них равные
0
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
13.03.2012, 22:58  [ТС]
решите пожалуйста.
по байтово.
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
13.03.2012, 23:16
Цитата Сообщение от Proskurina Посмотреть сообщение
решите пожалуйста.
по байтово.
мне лень сегодня после 5 бутылки пива
бери кусочек из одного файла сравнивай с тем же взятым кусом из другого и так в цикле пока не закончим файл, только если файл большой, процедура может затянуться
0
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
13.03.2012, 23:28  [ТС]
а завтра сможете решить?
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
13.03.2012, 23:30
посмотрим, как будет завтра , если что помогу
1
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
13.03.2012, 23:31  [ТС]
спасибо. а вы в асе не помогаете?
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
13.03.2012, 23:37
Цитата Сообщение от Proskurina Посмотреть сообщение
спасибо. а вы в асе не помогаете?
я сейчас что на форуме, что в асе, все одно... я выше писал как я себя сейчас чувствую....

модеры, прошу прощения за флуд, хотя это не флуд наверно...
1
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
13.03.2012, 23:40  [ТС]
просто иногда на уроке не получается решить задачу. ябы зашла в асю посоветовалась с вами.
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
14.03.2012, 00:06
а вообще нафига изобретать велосипед, если нужно просто сравнить 2 текстовых файла
вот пример, пусть будут в обоих файлах равное кол-во строк, то решение будет вот, результатом является указывание различия этих значений и номера строки
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var F, G: TextFile;
    S, S1: String;
    s2: String;
    n: Integer;
begin
  AssignFile(F, '1.txt');
  AssignFile(G, '2.txt');
  Reset(F);
  Reset(G);
  n := 1;
  Memo1.Clear;
  while not Eof(F) do
    begin
      Readln(F, S);
      Readln(G, S1);
      if S <> S1 then
        Memo1.Lines.Add('Различие между '+S+' и '+S1+' в строке '+ IntToStr(n));
    n := n + 1;
    end;
  CloseFile(F);
  CloseFile(G);
end;
вот содержимое 1 файла
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
210
10
0
1
0
54
21
5
45
4
84
5
4
87
8
48
4
и содержимое второго
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
210
10
45
1
0
54
21
5
445
4
84
5
4
87
8
48
4
Добавлено через 8 минут
Цитата Сообщение от Proskurina Посмотреть сообщение
ябы зашла в асю посоветовалась с вами.
ася в личном деле присутствует
1
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
14.03.2012, 00:09  [ТС]
очень жаль
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
14.03.2012, 00:10
Цитата Сообщение от Proskurina Посмотреть сообщение
очень жаль
о чем?
0
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
14.03.2012, 15:47  [ТС]
что вы не сидите в асе.
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
15.03.2012, 12:44
Цитата Сообщение от Proskurina Посмотреть сообщение
что вы не сидите в асе.

Не по теме:

в асе я конечно не сижу, не помещаюсь просто, а вот на стуле около компьютера на котором установлена ася - сижу
О_о, если я на форуме - то ася доступна в 100% случае(я не знаю даже как она выключается :D, поэтому и всегда Online :jokingly:)

0
9 / 2 / 0
Регистрация: 16.12.2011
Сообщений: 106
15.03.2012, 21:55  [ТС]
а уин можно?)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.03.2012, 21:55
Помогаю со студенческими работами здесь

Даны два массива, заполненные каждый десятью случайными целыми числами, каждое из которых от 1 до 9 включительно
Уважаемые товарищи программисты и пользователи ПК! Нужна ваша помощь, при чем очень срочная! Вот уже близится завершающая неделя моего...

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла
Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.

Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.
Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru