Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 5 лаб. Файлы текстовые / Program4
.pas uses crt;
Var t1,t2,t3: Text;
s1,s2: String;
begin
Assign(t1,'41.txt');
Reset(t1);
assign(t3, '43.txt');
rewrite(t3);
while not Eof(t1) do
begin
readln(t1,s1);
Assign(t2,'42.txt');
reset(t2);
while not Eof(t2) do
begin
readln(t2,s2);
if s1=s2 then
writeln(t3,s1);
end;
end;
Close(t1);
Close(t2);
Close(t3);
readln;
end.
Var t1,t2,t3: Text;
s1,s2: String;
begin
Assign(t1,'41.txt');
Reset(t1);
assign(t3, '43.txt');
rewrite(t3);
while not Eof(t1) do
begin
readln(t1,s1);
Assign(t2,'42.txt');
reset(t2);
while not Eof(t2) do
begin
readln(t2,s2);
if s1=s2 then
writeln(t3,s1);
end;
end;
Close(t1);
Close(t2);
Close(t3);
readln;
end.
Соседние файлы в папке 5 лаб. Файлы текстовые