Đệ quy gấp lắm giúp dùm mình

[duktiluhk]

[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.

Đề là sắp xếp dãy số, chỉ được dùng chương trình con và đệ quy. Ai giúp mình nha, phần này bữa đi trễ nên không hiểu lắm :-SS

 

[p_trk]

Starlove

chào bạn !!
nếu dùng đệ qui bạn có thể tham khảo và đọc thuật toán sắp xếp quick sort . @};-

 

[11thanhkhoeo]

Qsort , heap sort

Đây là code

var a:array[1..100] of integer;
i,j,t,n: integer;
procedure Qshort(l,h: word);
var m: word;
  begin
     m:=A[(l+h) div 2];
     i:=l; j:=h;
  repeat
   while a[i] < m do inc(i);
   while a[j] >m do dec(j);
  if a[i]<a[j] then
   begin
       t:=a[i]; a[i]:=a[j];
       a[j]:=t;
       inc(i); dec(j);
   end;
    until i>j ;
    if l< i then Qshort(l,j);
    if i< h then Qshort(i,h);
   end;

  begin
  write(' nhap n='); readln(n);
  for i:=1 to n do
   begin
      write('gia tri thu ',i,':'); readln(a[i]);
   end;
  Qshort(a[1],a[n]);
  for i:=1 to n do
  writeln(a[i]);
  readln;
  end.

 

[duktiluhk]

Qsort , heap sort

Đây là code

var a:array[1..100] of integer;
i,j,t,n: integer;
procedure Qshort(l,h: word);
var m: word;
  begin
     m:=A[(l+h) div 2];
     i:=l; j:=h;
  repeat
   while a[i] < m do inc(i);
   while a[j] >m do dec(j);
  if a[i]<a[j] then
   begin
       t:=a[i]; a[i]:=a[j];
       a[j]:=t;
       inc(i); dec(j);
   end;
    until i>j ;
    if l< i then Qshort(l,j);
    if i< h then Qshort(i,h);
   end;

  begin
  write(' nhap n='); readln(n);
  for i:=1 to n do
   begin
      write('gia tri thu ',i,':'); readln(a[i]);
   end;
  Qshort(a[1],a[n]);
  for i:=1 to n do
  writeln(a[i]);
  readln;
  end.

Chỗ nào sử dụng đệ quy đâu bạn? mình thấy bình thường mà

 

[11thanhkhoeo]

procedure[COLOR=Red] Qshort([/COLOR]l,h: word); 
var m: word;
   begin
      m:=A[(l+h) div 2];
      i:=l; j:=h;
      repeat    
           while a[i] < m do inc(i);
           while a[j] >m do dec(j);
                     if a[i]<a[j] then
                          begin   
                                      t:=a[i];
                                      a[i]:=a[j];    
                                      a[j]:=t;    
                                      inc(i);
                                      dec(j);
                           end;   
        until i>j ;    
             if l< i then [COLOR=Red]Qshort(l,j[/COLOR]);    
                if i< h then[COLOR=Red] Qshort(i,h[/COLOR]);   
 end;

'

ok men