Viết chương trình Pascal nhập 3 số và in ra màn hình theo thứ tự tăng dần( có khả năng làm luôn thứ tự Giảm Dần(

0 bình luận về “Viết chương trình Pascal nhập 3 số và in ra màn hình theo thứ tự tăng dần( có khả năng làm luôn thứ tự Giảm Dần(”

1. Tăng dần:

   Program NN;
   Uses crt;
   Var A: array[1..3] of longint;
       i,j,tg: longint;
   Begin
           Clrscr;
           For i:=1 to 3 do Read(A[i]);
           For i:=1 to 2 do
                   For j:=i+1 to 3 do
                           If A[i]>A[j] then
                           Begin
                                   tg:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=tg;
                           End;
           For i:=1 to 3 do Write(A[i],’ ‘);
           Readln
   End.

   Giảm dần:

   Program NN;
   Uses crt;
   Var A: array[1..3] of longint;
       i,j,tg: longint;
   Begin
           Clrscr;
           For i:=1 to 3 do Read(A[i]);
           For i:=1 to 2 do
                   For j:=i+1 to 3 do
                           If A[i]<A[j] then
                           Begin
                                   tg:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=tg;
                           End;
           For i:=1 to 3 do Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2. đây là thuật toán chính nha bạn

   for i:=1 to n -1 do begin

   for j:=i-1 to n do begin

   if a[i] > a[j]  then begin

   x:=a[i];

   a[i]:=a[j];

   a[j]:=x;

   end;

   end;

   end;

   For i:=1 to n do write(a[i]);

   Bình luận