View Single Post
Old 06-05-2008, 09:49   #5
thienthan
Rìu Sắt Đôi
 
thienthan's Avatar
 
Tham gia: Nov 2007
Bài: 280
VZD: 4.071
Điểm: 74/60 bài viết
Send a message via Yahoo to thienthan
Default

Bài này có trong sách bài tập tin 11 thì phải. Có ngó qua một tí nhưng dạng này chán lắm.
Chiều mình còn thì học kì toán hơn 10 h rồi. Mình làm nhanh vậy.
Code:
{Có hai mẩng a[m], b[n]}
i:= 1;
j:= 1;
l:= 1;
do
	if a [i] < b[j] then
		begin
			c[l]:= a [i];
			inc(l);
			while i < m do inc (i) {tang bien i mot don vi}
		end
	else
		begin
			c[l]:= b [j];
			inc(l);
			while j < n do inc (j) {tang bien j mot don vi}
		end;
until l=m+n;{co the thay dieu kien thanh i=n and j=m}
thienthan vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn