Nguyễn Nhân
Tổng biên tập
Tổng số bài gửi : 379
Công trạng : 1101
Sinh nhật : 11/07/1993
Ngày tham gia : 24/10/2009
Tuổi : 30
Đến từ : HAPPY A1
Hiện đang là : Học sinh
Giới tính : 
 | Tiêu đề: Pascal: bài tập về xâu  11.03.10 15:24 | |
| Mình có 2 đề, mời các bạn tham khảo và cho ý kiến về giải thuật:
1. Viết chương trình nhập vào xâu S1, S2. Sau đó, đếm xem có bao nhiêu lần xâu S2 xuất hiện trong S1?
Ví dụ: S1 là 'Khong mua khong phai khong tien khong mua', S2 là 'khong' thì kết quả sẽ là 4.
2. Viết chương trình nhập vào xâu S1, S2. Xoá các kí tự xuất hiện trong xâu S2 có trong S1.
Ví dụ: S1 là 'A va B lam bai kiem tra lam bai chung', S2 là 'lam bai' thì kết quả sẽ là 'A va B kiem tra chung'.
Tuy hai bài này mình đã biết cách giải nhưng cũng post lên hỏi ý kiến mọi người xem sao. Còn đây là bài giải câu 2 của mình:
Program xoa_xau;
Uses crt;
Var s1,s2:string;
Begin
Clrscr;
Write('Nhap xau S1: ');readln(s1);
Write('Nhap xau S2: ')readln(s2);
While pos(s2,s1) <> 0 do
delete(s1,pos(s2,s1),length(s2));
write('Xau sau khi nhap la: ',s1);
readln;
end.
P/s: Có cách giải nào tối ưu hơn thì cứ post lên nha. Cảm ơn các bạn!
| |
|
Calendar
