программа реализации алгоритма "Сравнение и подсчет" сортировки для АТД «Очередь» (с одной головой)

[bender_prog]

Добрый день.

задание: необходимо используя разработанный АТД и указанный набор операций, необходимо реализовать заданный алгоритм сортировки последовательности динамических элементов

прошу помочь написать программу
есть пример реализации алгоритма пузырьковой сортировки для АТД «Очередь» (очередь с одной головой).

необходимо из него переделать под "сравнение и подсчет"

если кто возьмется просьба сказать цену
оплата вмр, или на телефон (как удобнее)
нужно к вечеру 7.01.10

icq: 577-508-483

type ochered=^Rec;
     Rec=record
     info:    integer;
     next:    ochered;
     end;
var
head, head1:  ochered;
n, i, j, z, k,  y, x, x1: integer;
nop:real;
procedure push(var head:ochered; x:integer);  
var a:        ochered;
begin
    new(a);                                
    a^.info:=x;                            
    a^.next:=head;                         
    head:=a;                               
end;                                       
procedure pop(var head:ochered; var x:integer);  
var a, p:     ochered;
begin
   a:=head;  p:=head;                   
       while a^.next<>nil do begin       
         p:=a; a:=a^.next;               
       end;
   x:=a^.info; p^.next:=nil;             
   dispose(a);                           
end;                                     
function empty(head:ochered): boolean;    
begin
   empty:=head=nil;                      
end;
procedure iniz(var head:ochered; var n:integer);  
var x, i:      integer;
begin
   for i:= 1 to n do begin
      x:=Random(501)+300;             
      push(head,x);                   
   end;
end;                                 
BEGIN
  
n:=10;
head:=nil;
iniz(head,n);
head1:=nil;

 For i:= 1 to n-1 do                
   For j:= n downto i+1 do begin    
    if not empty(head1) then begin  
    head:=head1;                    
    head1:=nil;                     
   end;
    
 For z:=1 to j-2 do begin       
       pop(head,y); push(head1,y);
      end;
   pop(head,x); pop(head,x1); 
          If x>x1 then begin       
             push(head1,x); push(head1,x1);end 
          else begin
             push(head1,x1); push(head1,x);end; 
           If j<n then begin                    

             For k:= 1 to n-j do begin      

              pop(head,y); push(head1,y);       
             end;
            end;
 end;
For i:= 1 to n do begin
pop(head1,x);
writeln(x);
end;
readln;
END.

[bender_prog]

кто-нибудь, помогите!
к завтрашнему дню надо....

[Stilet]

>под "сравнение и подсчет"
А что это за алгоритм такой?

[rubius2008]

могу помочь если еще актуально

[bender_prog]

В методе подсчета сравнений используется вспомогательный массив,
который обнуляется. Организуется цикл, в котором происходит
подсчет для каждого элемента исходного массива количество элементов,
которые меньше данного и это число записывается в спомогательный массив
(если сортировка по возрастанию). Затем берутся элементы из
вспомогательного массива, они увеличиваются на 1 (это число k) и
уже упорядоченый массив образуется путем постановки на k место
упорядоченного массива элементов исходного массива.


уже делают, спасибо

[Allock]

Ай-яй-яй Дима, а если мы все Филатову расскажем..?

[bender_prog]

он этого не переживет, ну и я тоже)
есть че по сабжу то?))

[bender_prog]

тему можно закрывать