Файлы

@bod1ka · Регистрация: 08.11.2009

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

Составьте программу для сравнения двух текстовых файлов.если файлы не совпадают, то на экран вывести первые неравные строки и номер первого неравного символа в строке

@CepbIu · 26.06.2010, 09:59

Сообщение от bod1ka

Составьте программу для сравнения двух текстовых файлов.если файлы не совпадают, то на экран вывести первые неравные строки и номер первого неравного символа в строке

Pascal

var f1,f2:text;
str1,str2:string;
b:boolean;
i,max:byte;
begin
assign(f1,'1');
assign(f2,'2');
while b do begin
readln(f1,str1);
readln(f2,str2);
if str1<>str2 then begin
b:=false;
writeln('string from fisrt file -->',str1);
writeln('string from second file -->', str2);
if length(str1)>length(str2) then
max:=length(str1) else
max:=length(str2);
for i:=1 to max do begin
if str1[i]<>str2[i] then
writeln('number of character -->',i);
end;
end;
end;

ну как то так

@Puporev · 26.06.2010, 10:06

не мешало бы еще типа
reset
close

@CepbIu · 26.06.2010, 10:11

Сообщение от Puporev

не мешало бы еще типа
reset
close

Эти моменты я хотел оставить для исправления человеком который попросил сделать, но уже прошло и не могу по вашей просьбе добавить

@bod1ka 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 29
		1
	Файлы 26.06.2010, 09:34. Показов 449. Ответов 3 Метки нет (Все метки) Составьте программу для сравнения двух текстовых файлов.если файлы не совпадают, то на экран вывести первые неравные строки и номер первого неравного символа в строке 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2010, 10:06	3
	не мешало бы еще типа reset close 0

@CepbIu 12 / 12 / 1 Регистрация: 26.06.2010 Сообщений: 38
	26.06.2010, 10:11	4
	Сообщение от Puporev не мешало бы еще типа reset close Эти моменты я хотел оставить для исправления человеком который попросил сделать, но уже прошло и не могу по вашей просьбе добавить 0

Опции темы