Tin học Minh họa thuật toán trao đổi

[nguyenlam4872015@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp em bài đó đi ạ. Em xin cảm ơn cac anh chị. Em đang cần gấp, mai em phải nộp rồi

 

[Kem Min]

- ném cái code cho thầy là thầy hiểu ngay đấy mà ,đoạn code như sau
Var A:Array[1..10] of integer;
k,i,n,j :integer;
Begin
readln(N);
For i:=1 to n do readln(A);
For i:=1 to n-1 do
For j:=i+1 to n do
begin
If A <= A[j] then
Begin
k:= A;
A:= A[j];
Ạ[j]:= k;
end;
End;
For i:=1 to n do write(A,' ');
Readln
End.

 

[Trâm Nguyễn Thị Ngọc]

Bài này là sắp xếp mảng giảm dần rồi nhỉ

Var
   A:array[1..100] of integer;
   Tg,i,j,n:integer;
Begin
    Readln(n);
    For i:=1 to n do readln(a[i]);
    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;
     Write('mang sau khi sap xep la:');
     For i:=1 to n do write(a[i],'   ');
     Readln
End.

Về xây dựng sơ đồ khối thì anh/chị có thể tham khảo như sau:

Spoiler: ...

 

[vinhpham123.np@gmail.com]

- ném cái code cho thầy là thầy hiểu ngay đấy mà ,đoạn code như sau
Var A:Array[1..10] of integer;
k,i,n,j :integer;
Begin
readln(N);
For i:=1 to n do readln(A);
For i:=1 to n-1 do
For j:=i+1 to n do
begin
If A <= A[j] then
Begin
k:= A;
A:= A[j];
Ạ[j]:= k;
end;
End;
For i:=1 to n do write(A,' ');
Readln
End.

cái này đã học code đâu, ném code cho thầy là thầy biết hỏi trên mạng.