|
|
|
Ngoài một số quy định đã được nêu trong phần Quy định của Ghi Danh , mọi người tranh thủ bỏ ra 5 phút để đọc thêm một số Quy định sau để khỏi bị treo nick ở MathScope nhé ! * Quy định về việc viết bài trong diễn đàn MathScope * Nếu bạn muốn gia nhập đội ngũ BQT thì vui lòng tham gia tại đây |
| Ðiều Chỉnh | Xếp Bài |
26-03-2010, 08:42 PM | #1 |
+Thành Viên+ Tham gia ngày: Nov 2009 Bài gởi: 5 Thanks: 1 Thanked 0 Times in 0 Posts | Bài tập về xâu Pascal giúp em bai này với cho 1 xâu bất kì (bao gồm các chữ số,chữ cái và dấu...) hãy đưa ra màn hình số lần xuất hiện của mỗi chữ cái trong xâu đó mọi người giúp em với. Em cần rất gấp!!!! |
26-03-2010, 09:15 PM | #2 |
+Thành Viên+ Tham gia ngày: Oct 2009 Bài gởi: 120 Thanks: 68 Thanked 70 Times in 40 Posts | Tạo một mảng mà các chỉ số là 'A' đến 'Z' lưu số lần xuất hiện tương ứng của mỗi chữ cái. Ko phân biệt chữ hoa chữ thường nghen bạn, nếu có phân biệt thì làm tương tự. var s:string; i:byte; j:char; a:array['A'..'Z'] of byte; begin write('Nhap xau: '); readln(s); for i:=1 to length(s) do s[i]:=upcase(s[i]); for i:=1 to length(s) do a[s[i]]:=a[s[i]]+1; for j:='A' to 'Z' do write(j,': ',s[j],' '); readln end. Chú ý: Ý chính là thế, chưa test thử |
Bookmarks |
|
|