viết thuật toán sắp xếp 3 số thứ tự k tăng

0 bình luận về “viết thuật toán sắp xếp 3 số thứ tự k tăng”

1. uses crt;

   var a,b,c,tg:Integer;

   Begin

   clrscr;

   write(‘vao 3 so a,b,c:’); Readln(a,b,c);

   if b<a then begin tg:=a; a:=b; b:=tg; end;

   if c<b then begin tg:=b; b:=c; c:=tg;end;

   if b<a then begin tg:=a; a:=b; b:=tg; end;

   write(c:9; b:9; a:9);

   Readln

   End.

   Ctr chưa test, bạn test thử nhaa.

   Bình luận

2. Bước 1 : i <- 1 to 3

   Bước 3: nhập a[i]

   bươc 4

    j<- 3 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 3

   bước 5

   in ra kết quả và kết thúc thuật toán

   Bình luận