Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными

@256_TeraBite · Регистрация: 14.10.2012

Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными.

Помогите пожалуйста.

@Roman1295 · 16.10.2012, 16:43

Pascal

var F1, F2: text;
x,y : string;
Begin
Assign(F1, 'D:\1.txt');
Assign(F2, 'D:\2.txt');
Reset(F1); Reset(F2);
Readln(F1,x);
Readln(F2,y);
If x=y then writeln('Равны') else writeln('Не равны');
close(f1); close(f2);
end.

Делал с файлами, где всего одна строка. Предполагаю, что если в файлах будет несколько строк, нужен цикл while not(EOF()) do. Или я ошибаюсь?

@256_TeraBite 11 / 11 / 0 Регистрация: 14.10.2012 Сообщений: 40
		1
	Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными 16.10.2012, 16:04. Показов 1554. Ответов 1 Метки нет (Все метки) Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными. Помогите пожалуйста. 1

Опции темы

Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными

Решение