Имеются два текстовых файла по четыре строки; выяснить совпадают ли эти строки

@Slim _ ShaDy · Регистрация: 16.05.2011

Author24 — интернет-сервис помощи студентам

Имеются два текстовых файла по четыре строки. Выяснить совпадают ли эти строки. Если нет, получить номер не совпадающих сток.

@Gelo · 09.06.2011, 21:14

Delphi

var f1, f2:TextFile;
s1, s2: array [1..4] of string;
i:integer;
message:string;
begin
  message:='';
  AssignFile(f1,'1.txt');
  Reset(f1);
  for i:=1 to 4 do begin
  ReadLn(f1, s1[i]);
  end;
  CloseFile(f1);
 
  AssignFile(f2,'2.txt');
  Reset(f2);
  for i:=1 to 4 do begin
  ReadLn(f2, s2[i]);
  end;
  CloseFile(f2);
 
  for i:=1 to 4 do
    if s1[i]<>s2[i] then message:=message+IntToStr(i)+' ';
if message <>'' then writeln('Неравны строки: '+message)
                 else writeln('Строки равны');
sleep(10000);
end.

@Slim _ ShaDy 4 / 4 / 4 Регистрация: 16.05.2011 Сообщений: 19
		1
	Имеются два текстовых файла по четыре строки; выяснить совпадают ли эти строки 09.06.2011, 16:47. Показов 2035. Ответов 1 Метки нет (Все метки) Имеются два текстовых файла по четыре строки. Выяснить совпадают ли эти строки. Если нет, получить номер не совпадающих сток. 0

	09.06.2011, 21:14

Имеются два текстовых файла по четыре строки; выяснить совпадают ли эти строки

Решение