- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Tìm các số tổng các các ước của số này bằng số kia và ngược lại



Hai số m,n gọi là bạn của nhau nếu tổng các ước của m bằng n và ngược lại.Tìm tất cả các số là bạn của nahu và nhỏ hơn 10001.


Ý tưởng: Thay vì chạy 2 vòng lặp để xét m và n, ta có thể chỉ cần chạy 1 vòng lặp kiểm tra xem m và uoc(m) có là bạn của nhau không.

PROGRAM timban;
FUNCTION uoc(k:INTEGER):longint;
VAR i,tong:INTEGER;
BEGIN
tong:=0;
FOR i:=1 TO k DIV 2 DO
IF k MOD i =0 THEN tong:=tong+i;
uoc:=tong;
END;
VAR m:longint;
BEGIN
for m:= 1 to 10001 do
   if uoc(uoc(m)) = m then writeln(m, ' va ', uoc(m),' la ban cua nhau');
readln
END.


Bach Nguyen Xuan nói...

nêu chay theo chuong trinh nay thi moi cap so se bi lap lai 2 lan.
nen sua thanh:
If (uoc(uoc(m)) = m) and (m < uoc(m)) then
writeln(m, ' va ', uoc(m),' la ban cua nhau');


21:53 Ngày 24 tháng 10 năm 2012
Nặc danh nói...

viet chuong trinh nhap vao day a gom N so nguyen (e<100).tinh cac tong trong day a
hic giup mih vr mih con ga lam k biet j het ak.huhuhu...


20:10 Ngày 06 tháng 11 năm 2012
Nặc danh nói...

ai cung bit,gioi ak,bi quyet hoc cua moi ng la j vay ???haiz.....


20:12 Ngày 06 tháng 11 năm 2012
Nặc danh nói...

It's actually a cool and useful piece of information. I'm satisfied that you shared this helpful information with
us. Please stay us up to date like this. Thanks for sharing.


my blog post: bankruptcy Florida


23:37 Ngày 15 tháng 03 năm 2013
Nặc danh nói...

the con then thi sao, about what nua chi, va scorller, haha


21:02 Ngày 12 tháng 04 năm 2013
Nặc danh nói...

ahahah, thang nai 2` that


21:05 Ngày 12 tháng 04 năm 2013
Nặc danh nói...

Ai biết thì giúp mình nhé!
Bài 1: Nhập từ bàn phím số nguyên A ( 10 ≤ A ≤ 106)
+ Dòng 1: In ra P là số lớn nhất có số chữ số bằng số chữ số của A
+ Dòng 2: In ra Q là số nhỏ nhất có số chữ số bằng số chữ số của A
INPUT OUTPUT
A=132 P= 321
Q= 123


17:08 Ngày 19 tháng 03 năm 2014
Nặc danh nói...

de that day


12:37 Ngày 12 tháng 04 năm 2014
Lâm thành phố nói...

Chỉnh tiêu đề lại nhé.
"Tìm các số có tổng các ước bằng nhau"


09:18 Ngày 27 tháng 07 năm 2014
Nặc danh nói...

Giai thích giùm minh bài trên đi mình hông hiểu lắm!:)))))


16:59 Ngày 06 tháng 09 năm 2014
Hang lai thi nói...

gửi cho em bài chương trình kiểm tra số hoàn hảo trong mảng 1 chiều...
và kiểm tra số nguyên tố trong mảng 1 chiều
các bài tập này không dùng chương trình con có chạy không các anh?


17:11 Ngày 10 tháng 02 năm 2015
Huy Nguyễn Văn nói...

Tại sao lại : "kiểm tra xem m và uoc(m) có là bạn của nhau không." ạ?


15:50 Ngày 13 tháng 02 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.