Pascal Help me..Thanks all (^"^) - Trang 2 - VN-Zoom forum

LamHoa · 16-04-2008, 11:36

Trích:

so_0_lanh_lung

em chưa hiểu cái
for i:=(N div 2) downto 1 do
của anh vietanh279 vì nó là lấy phần dư mà

mod mới là lấy phần dư em ạ, div là thương, ví dụ
(10 div 3) = 3
(10 mod 3) = 1

vietanh279 cho biến i chạy trong khoảng từ 1 đến (n div 2) vì các số lớn hơn (n div 2) thì ko thể là ước của n được, giới hạn như thế máy sẽ chương trình sẽ nhanh hơn, trong chương trình chị viết em cũng có thể thay dòng

Code:

For i:=1 to n-1 do

thành

Code:

For i:=1 to (n div 2) do

hoặc

Code:

For i:= (n div 2) downto 1 do

thì kết quả cũng ko thay đổi gì.

Trong bài làm của vietanh279, bạn ấy cho i chạy ngược nên sẽ tính được tổng các ước của n từ ước lớn nhất trở xuống, rồi khi tổng đó vượt quá n là thôi (mà ko nhất thiết phải cộng thêm các ước nhỏ nữa) và chuyển sang kiểm tra giá trị n khác, như thế sẽ tiết kiệm nhiều thời gian cho quá trình chương trình chạy.

Em cho chương trình vào trong thẻ [code] [/code] thì các dáu trắng đầu dòng sẽ được giữ nguyên, ko bị trở về thẳng hàng.

vietanh279 · 16-04-2008, 12:30

Trích:

giangmeo

bay gio gia su du lie cho len toi bien extended thi sao
cach nay khong on

Bác nói thế này nghĩa là thế nào ? Không hiểu, lần sau bác cho cái dấu vào cái nha

vietanh279 · 16-04-2008, 12:39

Trích:

giangmeo

bay gio gia su du lie cho len toi bien extended thi sao
cach nay khong on

Bác nói thế này nghĩa là thế nào ? Không hiểu

Lần sau bác cho cái dấu vào cái nha

vietanh279 · 16-04-2008, 20:18

Trích:

so_0_lanh_lung

anh LamHoa và anh Vietanh ơi có thể cho em mail được không.. em xin để mong được học hỏi chút ít..những bài em ko hiểu em có thể mail cho các anh không .. em cám ơn

Bạn có bài nào chưa làm được hoặc có điều gì khó khăn thì cứ post lên để mọi người cùng giải quyết, chứ hỏi riêng thì không được kết quả tốt lắm đâu.

vietanh279 · 16-04-2008, 20:21

Trích:

giangmeo

bai nay dung qui hoach dong tot nhat

Bạn có thể nói cách đó ra không

Nếu O(n^2) trở lên thì đừng post nhá

thanhise2007 · 16-04-2008, 20:54

co bai don gian vay ko ma phai chua toi chua lui

vietanh279 · 16-04-2008, 21:20

Trích:

thanhise2007

co bai don gian vay ko ma phai chua toi chua lui

Đây là đang tìm ra thuật toán triệt để nhất, bạn có cách nào hay, như thuật toán O(N) chẳng hạn, đưa lên để cùng thảo luận nào

so_0_lanh_lung · 18-04-2008, 05:05

giúp em hộ bài này :

Code:

Viết chương trình in ra các số nguyên từ 1 đến N2 
theo hình xoắn ốc với N được nhập vào từ bàn phím. 
Ví dụ, với N=5 ta có: 
 1   2  3  4 5
 16 17 18 19 6
 15 24 25 20 7
 14 23 22 21 8
 13 12 11 10 9

giangmeo · 18-04-2008, 14:17

ban tao hia mang hang nhu sau:
g:array [1..4] of shortint=(-1,0,1,0);
h:array [1..4] of shortint=(0,-1,0,1);
sau do dung thuat toan do thi xet theo 4 huong dong, tay, nam, bac khoa no lai bang mang danh dau ay la duoc thoi.

giangmeo · 18-04-2008, 14:20

bai kia neu dung qui hoach dong ban chi can tao mot mang t trong do t[i] la tong cac uoc cua i (luu y tru i ra) roi chay thoi. dun cai nay co le se nhanh hon.

so_0_lanh_lung · 18-04-2008, 20:34

Trích:

giangmeo

bai kia neu dung qui hoach dong ban chi can tao mot mang t trong do t[i] la tong cac uoc cua i (luu y tru i ra) roi chay thoi. dun cai nay co le se nhanh hon.

mong bạn viết có dấu nếu không sẽ bị Del bài

so_0_lanh_lung · 18-04-2008, 20:36

Giải giúp em bài này :
Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi nào gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn và trung bình cọng các số lẻ.
Dùng Repeat

so_0_lanh_lung · 18-04-2008, 20:36

nếu giải bằng thủ tục hay hàm thì càng tốt

vietanh279 · 19-04-2008, 05:43

Trích:

giangmeo

bai kia neu dung qui hoach dong ban chi can tao mot mang t trong do t[i] la tong cac uoc cua i (luu y tru i ra) roi chay thoi. dun cai nay co le se nhanh hon.

bạn cho cái công thức QHĐ được chứ ?

giangmeo · 19-04-2008, 13:54

bạn gọi t[i] là tổng các ước của i (trừ đi i nhé) rồi phần còn lại thì khá là dơn giản.
này nhé:
for i:=1 to n do
begin
for j:=2 to i-1 do
if i mod j =0 then
begin
t[i]:=t[i-j]+j;
break;
end;
t[i]:=1;
if t[i]=i then
write(i,'la so hoan hao');
end;

đại khái là thế bạn có thế tối ưu thêm

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

16-04-2008, 20:54	#21
thanhise2007 Gà Con Tham gia: Mar 2008 Bài: 2 VZD: 245 Điểm: 0/0 bài viết	co bai don gian vay ko ma phai chua toi chua lui

18-04-2008, 14:17	#24
giangmeo Búa Đá Tham gia: Mar 2008 Bài: 45 VZD: 666 Điểm: 0/0 bài viết	ban tao hia mang hang nhu sau: g:array [1..4] of shortint=(-1,0,1,0); h:array [1..4] of shortint=(0,-1,0,1); sau do dung thuat toan do thi xet theo 4 huong dong, tay, nam, bac khoa no lai bang mang danh dau ay la duoc thoi.

18-04-2008, 14:20	#25
giangmeo Búa Đá Tham gia: Mar 2008 Bài: 45 VZD: 666 Điểm: 0/0 bài viết	bai kia neu dung qui hoach dong ban chi can tao mot mang t trong do t[i] la tong cac uoc cua i (luu y tru i ra) roi chay thoi. dun cai nay co le se nhanh hon.

18-04-2008, 20:36	#27
so_0_lanh_lung Búa Đá Đôi Tham gia: Mar 2008 Đến từ: Huế Bài: 77 VZD: 1.284 Điểm: 2/2 bài viết	Giải giúp em bài này : Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi nào gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn và trung bình cọng các số lẻ. Dùng Repeat

19-04-2008, 13:54	#30
giangmeo Búa Đá Tham gia: Mar 2008 Bài: 45 VZD: 666 Điểm: 0/0 bài viết	bạn gọi t[i] là tổng các ước của i (trừ đi i nhé) rồi phần còn lại thì khá là dơn giản. này nhé: for i:=1 to n do begin for j:=2 to i-1 do if i mod j =0 then begin t[i]:=t[i-j]+j; break; end; t[i]:=1; if t[i]=i then write(i,'la so hoan hao'); end; đại khái là thế bạn có thế tối ưu thêm