1.xây dựng thuât toán sắp xêp dãy số nguyên theo thứ tự tăng dần
2.xây dung thuât toán sắp xêp dãy số nguyên theo thứ tự giảm dần
1.xây dựng thuât toán sắp xêp dãy số nguyên theo thứ tự tăng dần
2.xây dung thuât toán sắp xêp dãy số nguyên theo thứ tự giảm dần
bài 1 : tăng dần
Bước 1: Nhập n là số phần tử trong dãy
Bước 2: i <- 1 to n
Bước 3: nhập a[i]
bươc 4
i ← 1 to n-1
j ← i+1 to n
Nếu A[i]>A[j] thì
tang:= A[i]
A[i]:=A[j]
A[j]:=tang
Bước 4:
i ←1 to n
bước 5
in ra kết quả và kết thúc thuật toán
bài 2 giảm dần
Bước 1: Nhập số phần tử trong dãy
Bước 2: i <- 1 to n
Bước 3: nhập a[i]
bươc 4
j<- N downto 2
i <- 1 to j-1
Nếu A[i]<A[i+1] thì
giam := A[i]
A[i]:=A[i+1]
A[i+1]:=giam
Bước 4:
i <- 1 to n
bước 5
in ra kết quả và kết thúc thuật toán
1)program thututangdan;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;N,i,j,Tam:Integer;
Begin
Write(‘Nhap N=’);
Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
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;
Writeln(‘Ket qua sau khi sap xep:’);
For i:=1 To N Do
Write(A[i]:5);
Readln;
End.