Nhập n và dãy n số nguyên a1 a2…aN hãy sắp xếp theo thứ tự tăng dần, giảm dần

0 bình luận về “Nhập n và dãy n số nguyên a1 a2…aN hãy sắp xếp theo thứ tự tăng dần, giảm dần”

1. *Tăng dần:

   program tang_dan;

   uses crt;

   var A:array[1..1000] of integer;

        n,i,j,tg:integer;

   begin

          clrscr;

          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

                                      tg:=A[i];

                                      A[i]:=A[j];

                                      A[j]:=tg;

                               end;

          for i:=1 to n do write(A[i],’ ‘);

          readln;

   end.

   *Giảm dần:

   program giam_dan;

   uses crt;

   var A:array[1..1000] of integer;

        n,i,j,tg:integer;

   begin

          clrscr;

          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

                                      tg:=A[i];

                                      A[i]:=A[j];

                                      A[j]:=tg;

                               end;

          for i:=1 to n do write(A[i],’ ‘);

          readln;

   end.

   Bình luận

2. Xác định bài toán:

   Input: Dãy n số

   Output: Sắp giảm dần của dãy số

   Chỉ ra tính dừng của thuật toán

   -Bước 1: Nhập n và nhập dãy số

   -Bước 2: i←1;

   -Bước 3: Nếu a[i]<a[i+1] thì đổi chỗ a[i] và a[i+1]

   -Bước 4: i←i+1;

   -Bước 5: Nếu i≤n thì quay lại bước 3

   -Bước 6: Xuất dãy

   -Bước 7: Kết thúc

   Bình luận