giúp em bài tập về kiểu xâu (lớp 11)

[hoshino_terumi]

Viết chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện củ mỗi chữ cái tiếng Anh trong S (không phân biệt chữ hoa hay chữ thường).
Mấy bác giúp em với! Nói thực cái môn này em dốt lém! hix

[m2mpro]

Dạo này bà con cứ đem bài tập lên diễn đàn hỏi suốt ấy nhỉ ! ^^
Bài này bạn chỉ cần xét từng kí tự thôi. Dùng hàm "in" đấy

[jiSh@n]

Dạo này bà con cứ đem bài tập lên diễn đàn hỏi suốt ấy nhỉ ! ^^
Bài này bạn chỉ cần xét từng kí tự thôi. Dùng hàm "in" đấy

Trong pascal ko co hàm nào tên "in" hết. "In" là 1 toán tử trên kiểu tập hợp.

[mr_invincible]

Hic các bạn cứ post toàn bài đơn giản lên hỏi mà chẳng chịu đọc trước gì cả. Mấy bài kiểu đó có đầy trong diễn đàn rồi. Kiểu này thì chẳng mấy chốc chỗ này loạn mất. Đề nghị các mod xóa hết các bài có nội dung trùng lặp.

[m2mpro]

Những bài này chỉ cần chút động não là ra . chứ không chó lắm đâu... ^^

[mr_invincible]

Những bài này chỉ cần chút động não là ra . chứ không chó lắm đâu... ^^

Phải đó, mấy bạn này chẳng chịu suy nghĩ gì mà đã đem ra hỏi rồi, không biết sau này mà phải học khó hơn thì như thế nào.
Mà hình như ở trên bạn viết nhầm rồi thì phải, không hiểu bạn định viết "chó" thật hay là khó

[thuonghcm]

chà chà...nhầm kiểu này dễ "mít lòng" quá ha...
VIỆT KIỀu ăngola nói :"chào chú" thành --->> "chào chó"

[m2mpro]

Ầy dà da.. thiệt tình xin lỗi, gõ nhầm "không khó" chứ "không chó" thì nguy ...

[yandan]

nhap tu ban phim mot xau. thay the tat ca cac cum ky tu 'anh' bang cum ky tu 'em' ai chi jum minh minh thanh kiu` ve ri mut'^^

[mr_invincible]

Cách làm:
While pos('anh',s)>0 do {Vẫn còn cụm kí tự anh trong xâu} do
begin
tg:=copy(s,1,pos('anh',s)-1); {Tạo biến trung gian để sửa lại xâu}
tg:=tg+'em';
tg:=tg+copy(s,pos('anh',s)+4,length(s)-pos('anh',s)-3); {Copy phần còn lại của xâu s vào biến tg}
s:=tg;
end;
Bài trên chưa được kiểm tra nên có gì sai sót mong bạn thông cảm.
Cách giải như trên theo tôi là đơn giản nhất. Có bạn nào có cách giải hay hơn mong các bạn đóng góp ý kiến.