Ý tưởng:
Cho biến i chạy từ 1 đến N-1, đồng thời cho biến j chạy từ i+1 đến N: Nếu A[i]>A[j] thì đổi chổ A[i], A[j].
Dưới đây là thuật toán sắp xếp mảng 1 chiều:
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

cho em hoi chữ "tam" có nghia la j"
19:20 14 tháng 11, 2012
"tạm" là giá trị của a[i] : để khi a[i] > a[i+1] thì a[i] sẽ = a[i+1], còn a[i+1] sẽ = a[i], nhưng lúc này a[i] đã nhận giá trị mới là a[i+1] nên ta phải đặt "tạm" = a[i] để thay giá trị "tạm" vào a[i+1]
14:03 19 tháng 12, 2012
hoi kho hieu 1 ty
15:54 9 tháng 1, 2013
Hoàng Bảo love Phương Thảo Nhiều lắm
09:18 23 tháng 1, 2013
cái này là straight selection sort phải không ạ?
20:56 4 tháng 2, 2013
Hello, i read your blog from time to time and i own
a similar one and i was just wondering if you get
a lot of spam comments? If so how do you protect against it, any plugin or anything you
can recommend? I get so much lately it's driving me mad so any support is very much appreciated.
Here is my homepage ... their web site
12:57 23 tháng 2, 2013
Pascap đúng là khó
08:33 17 tháng 6, 2014
nó sẽ dễ hơn nếu bạn nói đúng tên nó (pascal)
10:28 1 tháng 7, 2014
Cheap jordans, wholesale jordan shoes, nike free, cheap nike shoes, cheap jordan, cheap jordans, wholesale jordan shoes for sale, ugg, ugg australia, air jordan shoes, Bags Louis Vuitton, Cheap LV Handbags, Discount LV Handbags, cheap jordan shoes, Cheap Nike jordan shoes, cheap nike jordan shoes, uggs outlet, cheap nike free, discount nike jordans, jordan shoes for cheap, wholesale jordan shoes, ugg soldes, cheap nike free run, cheap jordans, Cheap Louis Vuitton Handbags, ugg pas cher, ugg boots, cheap nike air max, Discount Louis Vuitton, uggs on sale
15:25 21 tháng 11, 2014
-______- .......
18:06 18 tháng 12, 2014
hay
19:00 7 tháng 4, 2015
hay
19:00 7 tháng 4, 2015
hay cai lz....danh sai the mak cug dang 2`
10:45 7 tháng 12, 2015
Câu lệnh for to do ở cuối lm j nhỉ chưa hiểu
22:01 14 tháng 1, 2016
Câu lệnh for to do ở cuối lm j nhỉ chưa hiểu
22:02 14 tháng 1, 2016
Ban phai cho chay tu phan tu dau den phan tu coi moi in ra duoc toan mang nha ban neu khong se khong in ra duoc vi n la bien dem
Vd:n 1 2 3 4 5 6 7
A[i]3 4 5 6 7 10 11
19:03 18 tháng 1, 2016
đây là dãy k giảm chứ k phải tăng mà ???
18:19 8 tháng 11, 2016
què
21:45 17 tháng 11, 2016
ga
17:27 21 tháng 11, 2016
Có ai biết sắp xếp bằng phương pháp đánh dấu ko
18:04 11 tháng 12, 2016
ai giải tích hộ mình mảng a[j] là như nào đi
10:53 13 tháng 1, 2017
ai giải tích hộ mình mảng a[j] là như nào đi
10:55 13 tháng 1, 2017
ngọc mập nói
08:26 16 tháng 2, 2017
Ê cho mình hỏi tại sao lại có (:5) ở chỗ write(A[i]:5) tại cái hàng thứ 3 từ cuối lên trên
19:19 6 tháng 4, 2017
nếu chuyển ko làm bằng vòng lặp for do mà làm = while do thì làm thế nào
10:06 2 tháng 5, 2017
Nhap vao 2 so set xem 2 so do co phai cap so ban be khong
19:05 16 tháng 10, 2017
@Hoyeuthoden Pkươg Tkảo lov3 Hoàg Bảo nkìu lémk. <3 <3 <3
08:02 10 tháng 11, 2017
Cảm ơn tác giả đã chia sẻ, tuy nhiên bài này chưa mang tính chất sắp xếp tự động mà còn quá thủ c6ng vì mình phải gán từng A[i]. Mong sắp tới tác giả có bài viết sắp xếp tự động có dãy số tự in ra luôn.
13:01 18 tháng 11, 2017
đơn giản là có hai ca nước đầy , muốn tráo nước của 2 ca thì cần phải có cái ca "tạm"... đw nói đw hiểu
21:39 25 tháng 11, 2017
k giảm là >= (0, 1, 2, 2, 3,3....)
tăng là > (1, 3, 4,...)
21:42 25 tháng 11, 2017
Tạm hay còn gọi là biến trung gian để đổi chỗ
14:55 29 tháng 11, 2017
Cho hỏi ":5" là sao thế?
20:23 4 tháng 12, 2017
đây là phương pháp buble sort
17:34 7 tháng 12, 2017
xin hỏi đang sắp xếp từ lớn đến bé hay từ bé đến lớn
21:55 28 tháng 12, 2017
Cho em hỏi vì sao là for i:= 1 to N - 1 mà không phải là N ạ?
Và vì sao gần cuối là for i:= 1 to N do write(A[i]:5)? Tác dụng của dòng này là gì ạ?
22:30 11 tháng 2, 2018
sai rồi kìa write cuối chỉ có write(A[i]) thôi thứ ko có số 5
22:49 19 tháng 3, 2018
ko sai nhé . có dấu ":5" là đúng
18:17 8 tháng 4, 2018
:5 lak đề các phần tử trong mảng có khoảng cách (1 2. 4. 7) thay vì (1247)
06:04 14 tháng 4, 2018
:5 lak đề các phần tử trong mảng có khoảng cách (1 2. 4. 7) thay vì (1247)
06:05 14 tháng 4, 2018
:5 lak đề các phần tử trong mảng có khoảng cách (1 2. 4. 7) thay vì (1247)
06:06 14 tháng 4, 2018
Mình chưa hiểu đoạn này
For i:=1 To N-1 Do
For j:=i+1 To N Do
10:40 15 tháng 4, 2018
Đăng nhận xét