bài 1: Cho tệp’du lieu.txt’ có chứa xâu S thực hiện chuẩn hoá xâu . In xâu sau khi đã chuẩn hoá ra tệp’ket qua.txt’
B2: Cho tệp ‘ du lieu.txt’ có chứa xâu S1 , thực hiện thay thế cụm từ anh bằng em . In kết quả vào tệp’ ket qua.txt’
bài 1: Cho tệp’du lieu.txt’ có chứa xâu S thực hiện chuẩn hoá xâu . In xâu sau khi đã chuẩn hoá ra tệp’ket qua.txt’
B2: Cho tệp ‘ du lieu.txt’ có chứa xâu S1 , thực hiện thay thế cụm từ anh bằng em . In kết quả vào tệp’ ket qua.txt’
Const Fi=’DULIEU.TXT’;
Fo=’KETQUA.OUT’;
Var f,g: text;
St: String;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,St);
While St[1]=#32 do Delete(St,1,1);
While St[length(St)]=#32 do Delete(St,length(St),1);
While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
Write(g,St);
Close(f);
Close(g);
End.