Có ai thi học sinh giỏi không (2009)

[hang_vt]

hix , tui là girl đấy nhá . Khổ lắm nói mãi . Thế bạn tìm đc cái biến nào mà chứa nổi 10000! thì tui tính tích ra ngay cho . qword cũg chỉ chứa đc 18 chữ số thôi . Có thể lưu vô mảg , để tui nghiên cứu đã , sẽ post code sau . Phần phân tích của đoạn code trên nà

1000!=2.3.4.5...10000

Mà mỗi số tự nhiên có đặc điểm là có thể biểu diễn bằng tích của các số nguyên tố, nếu nó là số nguyên tố rùi thì nó đc biểu diễn bằng chính nó nhân với 1
VD:
	54=2*3*3*3
	7=7*1

Giờ bài toán đặt ra là tính giai thừa của 1 số lớn, mà nếu lớn thì ko có biến nào chứa nổi, vì thế nên biểu diễn= tích của các số nguyên tố.
VD:
	66=2*3*11
Trong đó 2, 3, 11 là các số nguyên tố
Tính theo dãy số nguyên tố thì đc sắp xếp như sau: 
	2 3 5 7 11
ta thấy số 2,3,11 mỗi số xuất hiện 1 lần trong tích
vì thế nên file out có dạng:
	1 1 0 0 1
0 là ko xuất hiện lần nào, vì 5 và 7 ko xuất hiện
còn 2 3 11 thì xuất hiện 1 lần nên in ra số lần xuất hiện


nên ch.trình của ta sẽ là
Cho 1 biến i chạy từ 2 đến n (1 k là số nguyên tố => chạy từ 2 ) , và mỗi giá trị của i thì gọi thủ tục Xuly(i:integer) 1 lần

Trong phần xử lí ta sẽ làm như sau:
cho biến t=2, t sẽ là các số nguyên tố mà số i sẽ chia hết, nếu ko chia hết thì cứ tăng t lên và thế mà chia cho đến khi i=1 thì thui
dùng mảng a để lưu số lần xuất hiện của t, sẽ đc tính là a[t], và dùng 1 mảng đánh dấu là dd để bỏ wa ko in ra cái t ko phải là số nguyên tố khi tăng t 1 đơn vị ngẫu nhiên wa mỗi vòng lặp nếu i ko chia hết cho t.

Phần in ra, ta cho i chạy từ 2 đến t, nếu dd[t]=true { xác định t là số nguyên tố} thì mới in ra a[t] { là số lần xuất hiện của t đc lưu trong mảng a}
Hết.

[huysun]

Cái ý tưởng của huysun đưa ra làm em thật bất ngờ, đơn giản vậy mà em ko nghĩ ra, sẵn đây em hỏi anh huysun, anh căn cứ vào đâu để kiếm được cái thuật giải đó ? Để em dựa vào kinh nghiệm đó mà học hỏi giải những bài toán khác.

sách toán nâng cao lớp 6.(ko nhớ sách gì, của ai)

[=========> Bổ sung bài viết <=========]

http://www.vphausa.org/vphavn/vdt/Ma%20Phuong.pdf tìm trên google ra cái này

[hang_vt]

hứa hôm nay sẽ post nhưg ct có vấn đề mới chạy đến 9800! thôi . Để ngâm cứu lại nhá . SR

[phuclun]

Dạ em học lớp 9, nhưng ở chỗ em bắt đầu học pascal hồi lớp 8 à, em mới học có 2 năm à đâu có như mấy anh học tin từ hồi cấp 1. Mấy anh có phương pháp học pascal hay kinh nghiệm thì chia sẻ cho em với, em phải làm sao để được như mấy anh, đại khái là như thế.

Cái ý tưởng của huysun đưa ra làm em thật bất ngờ, đơn giản vậy mà em ko nghĩ ra, sẵn đây em hỏi anh huysun, anh căn cứ vào đâu để kiếm được cái thuật giải đó ? Để em dựa vào kinh nghiệm đó mà học hỏi giải những bài toán khác.

[=========> Bổ sung bài viết <=========]

Sẵn đây cho em hỏi, làm thế nào để viết 1 cái giao diện đẹp cho chương trình bằng pascal. Giống như giao diện mấy chương trình trên dos đó.

Còn cái này nữa. Em nghe nói máy tính có thể tính khoảng mấy triệu phép tính mỗi giây, mà sao đằng này em thấy người ta tính giai thừa của 10000! thôi mà nó tính tới mấy giây lựng ???

Anh mới học đc 1 năm nè em.Học chung lớp với MMKC_IT đấy!!

[eyeshield17]

Tui mới học pascal từ cuối năm lớp 8 nè, giờ lớp 9 rùi hehehhe

[chutieukhocnhe]

hix , tui là girl đấy nhá . Khổ lắm nói mãi .

Sory chị nhen ! Em mới vô nên ko biết mà.

[=========> Bổ sung bài viết <=========]

Hình như em nhớ. Em có coi qua cái code nào tính được 10000! ra số đàng hoàng luôn. Nhưng đợi hơi mệt! Code đó em kiếm lâu quá rồi quên. Chẻng lẻ mình già rồi sao trời.

Mấy anh chị học lớp 9, sao học pascal dữ vậy chỉ em nhỏ đây với . Em là chutieukhocnhe nhé, mọi người nhớ nhé. Có bí quyết , kinh nghiệm học tốt pascal chỉ em với. Từ bi, hỷ xã nhé mọi người. "Lợi hòa đồng quân" !!!

[huysun]

Sory chị nhen ! Em mới vô nên ko biết mà.

[=========> Bổ sung bài viết <=========]

Hình như em nhớ. Em có coi qua cái code nào tính được 10000! ra số đàng hoàng luôn. Nhưng đợi hơi mệt! Code đó em kiếm lâu quá rồi quên. Chẻng lẻ mình già rồi sao trời.

Mấy anh chị học lớp 9, sao học pascal dữ vậy chỉ em nhỏ đây với . Em là chutieukhocnhe nhé, mọi người nhớ nhé. Có bí quyết , kinh nghiệm học tốt pascal chỉ em với. Từ bi, hỷ xã nhé mọi người. "Lợi hòa đồng quân" !!!

trước hết tập thạo cách tính 1000! bằng mảng 1 chiều.
sau đó cải tiến:
thay kiểu dữ liệu của các phần tử trong mảng thành longint hoặc word.
thay div 10, mod 10 thành div 1 triệu,mod 1 triệu (với longint) hay div 1000, mod 1000(với word).
tốc độ làm việc chắc chắn nhanh hơn nhiều.

[thanhloc92]

ai co de thi hoc sinh gioi quoc gia cac nam gan day thi
goi len giup minh cai>> minh dang can

[chutieukhocnhe]

trước hết tập thạo cách tính 1000! bằng mảng 1 chiều.
sau đó cải tiến:
thay kiểu dữ liệu của các phần tử trong mảng thành longint hoặc word.
thay div 10, mod 10 thành div 1 triệu,mod 1 triệu (với longint) hay div 1000, mod 1000(với word).
tốc độ làm việc chắc chắn nhanh hơn nhiều.

Ụa mà tính 1000! bằng mảng tính sao vậy anh ? Chẳng lẻ nhân rồi chia ???

[hang_vt]

Ụa mà tính 1000! bằng mảng tính sao vậy anh ? Chẳng lẻ nhân rồi chia ???

nếu tui k nhầm thì là thế này : do k có biến nào đủ lớn để lưu gtrị của 1000! nên ta sẽ dùng mảg để lưu . Lúc đầu gán tất cả phần tử a[1]...a[n-1]=0 , a[n]=1 . Lưu dần giá trị vào từng phần tử của mảng & in ra mảg ấy . Tui cũng có đoạn code theo cách này nhưg chỉ chạy đến 9800! thôi . Nếu cần tui post cho , ùi sửa chữa j` đó thì sửa