Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 BT xử lí tệp cơ bản

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: BT xử lí tệp cơ bản   16/1/2015, 06:33

Sử dụng ngôn ngữ lập trình pascal viết chương trình xử lý tệp văn bản với các yêu cầu sau:
* Đọc tệp văn bản và in ra màn hình.
* Sữa Tệp văn bản theo quy tắc
* Bỏ các dấu cách không cần thiết
* Trước các dấu . , : ; ! ? không có dấu cách
* Sau các dấu . , : ; ! ? phải có 1 dấu cách
* Đầu mổi câu (sau dấu . ! ) phải viết hoa
* Chương trình có dao diện đẹp và dể sử dụng.

type Set1 = set of char;

procedure ChuanHoa(var s:string);
begin
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
end;

procedure ChuanHoaLan2(var s:string);
var sSplit,sEnd:Set1;
i:integer;
begin
sSplit:=[',', '.', ':', ';', '!', '?'];
sEnd:=['.', '!', '?'];

s[1]:=upcase(s[1]);
for i:=2 to length(s)-1 do
begin
if s[i] in sSplit then
begin
if s[i-1]=' ' then
begin
delete(s,i-1,1);
dec(i);
end;
if s[i+1]<>' ' then
insert(' ',s,i+1);
end;
if s[i] in sEnd then
s[i+2]:=upcase(s[i+2]);
end;
end;


VAR str:string;
f,g:text;
BEGIN
assign(f,'C:\input.txt');{Doc file}
reset(f);
while not eof(f) do
read(f,str);
close(f);
ChuanHoa(str);
ChuanHoaLan2(str);
writeln(str);
assign(g,'C:\input.txt');{Sua lai file}
rewrite(g);
write(g,str);
close(g);
readln;
END.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
BT xử lí tệp cơ bản
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Tệp (File)-
Chuyển đến