Diễn Đàn MathScopeDiễn Đàn MathScope
  Diễn Đàn MathScope
Ghi Danh Hỏi/Ðáp Thành Viên Social Groups Lịch Ðánh Dấu Ðã Ðọc

Go Back   Diễn Đàn MathScope > Tin Học > Hỏi Đáp Tin Học

News & Announcements

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é !

* Nội quy MathScope.Org

* Một số quy định chung !

* 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

* Những câu hỏi thường gặp

* Về việc viết bài trong Box Đại học và Sau đại học


Trả lời Gởi Ðề Tài Mới
 
Ðiều Chỉnh Xếp Bài
Old 26-03-2010, 08:42 PM   #1
congbeo
+Thành Viên+
 
Tham gia ngày: Nov 2009
Bài gởi: 5
Thanks: 1
Thanked 0 Times in 0 Posts
Icon8 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!!!!
[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT]
 
congbeo is offline   Trả Lời Với Trích Dẫn
Old 26-03-2010, 09:15 PM   #2
Thanh vien
+Thành Viên+
 
Thanh vien's Avatar
 
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ử
[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT]
 
Thanh vien is offline   Trả Lời Với Trích Dẫn
Trả lời Gởi Ðề Tài Mới

Bookmarks

Ðiều Chỉnh
Xếp Bài

Quuyền Hạn Của Bạn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 03:25 PM.


Powered by: vBulletin Copyright ©2000-2024, Jelsoft Enterprises Ltd.
Inactive Reminders By mathscope.org
[page compression: 39.86 k/43.50 k (8.37%)]