Trang Chính
Latest images
Đăng ký
Đăng Nhập
[code] Thay từ 
Tường nhà
Bài viết
Kết bạn
Tài sản- Code:
Program Bai1;
Const f1='SOURCE.TXT';
f2='SAMPLE.TXT';
f3='RESULT.OUT';
Var x,y:String;i,j:Integer;s1,s:STring;
f,g,t:Text;
Procedure xuly;
VAr i,j:Integer;
Begin
While not eof(f) do
Begin
Readln(f,s1);
i:=pos(' ',s1);
x:=copy(s1,1,i-1);
y:=copy(s1,i+1,length(s1)-i);
While pos(x,s)<>0 do
Begin
i:=pos(x,s);
j:=length(x);
Delete(s,i,j);
Insert(y,s,i);
End;
End;
End;
Procedure ghitep;
Begin
Assign(f,f2);REset(f);
Assign(g,f1);Reset(g);
Assign(t,f3);REwrite(t);
Readln(g,s);
xuly;
WRite(t,s);
Close(t);
Close(g);
Close(f);
End;
Begin
ghitep;
End.
