Сортировки

[lialia]

Здраствуйте,помогите пожалуйста,если не сложно,нужно сделать 3 сортировки в одной прогр(выбором,двоич. включения,и пузырьком),и чтобы был выбор рандомом или пользователь сам вводит элементы массива,я пробовала ,но у меня не получается(

[s-andriano]

Извините, но мы Ваших проб здесь не видим.

[lialia]

uses dos,crt;
const size=10000;
d=10;
type mas=ARRAY[1..size] OF INTEGER;
VAR N,i,j:INTEGER;fir,second:byte;
a,m,b:mas;


procedure rand(n:integer; var  a:mas);
var i:integer;
begin

WRITELN('Random array');
FOR I:=1 TO N DO
 begin
 a[i]:=random(d);
 write(a[i],' ');
 end;
  writeln;
 end;

procedure  Sam(n:integer;  a:mas );
begin
WRITELN('User array');
FOR I:=1 TO N DO
 begin
 write('a[',i,'] = ');
 readln(a[i]);
 end;
 end;

procedure second_menu;
begin
writeln;
writeln('1:bubbles_sort');
writeln('2:select_sort');
writeln('3:binary');

end;

procedure Puzir(n:integer; var  a:mas);
VAR I,J,X:INTEGER;
    sr,per:longint;
    hour,minut,sec,sec100:word;
    t,t0,t1:real;
begin
b:=a;
sr:=0; per:=0;
gettime(hour,minut,sec,sec100);
    t0:=sec+sec100*0.01;
FOR I:=1 TO N DO
  FOR J:=1 TO N-i DO begin
 if a[j]>a[j+1]then
  BEGIN
  inc(sr);
  inc(per);
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x;
  END;
  for I:=1 to n do
  write(a[i],' ');
  writeln
END;
gettime(hour,minut,sec,sec100);
        t1:=sec+sec100*0.01;
        t:=t1-t0;
    WRITELN('Result:');
    writeln('Perest ',per);
    writeln('Srav  ',sr);
writeln('time  ',t:0:3);
a:=b;
end;

procedure Priamoi_vibor(n:integer; var  a:mas);
VAR I,J,R,X:INTEGER;
 hour,minut,sec,sec100:word;
    t,t0,t1:real;
sr,per:longint;
begin
b:=a;
sr:=0; per:=0;
gettime(hour,minut,sec,sec100);
    t0:=sec+sec100*0.01;
FOR I:=1 TO N-1 DO BEGIN
R:=I;
X:=A[I];
  FOR J:=I+1 TO N DO IF A[J]<X THEN BEGIN
  inc(sr);
  R:=J;
  X:=A[R]
  END;
  inc(per);
A[R]:=A[I];
A[I]:=X
END;
gettime(hour,minut,sec,sec100);
        t1:=sec+sec100*0.01;
        t:=t1-t0;
         WRITELN('Result:');
writeln('Compile ',sr,' Move ',per);
     writeln('time  ',t:0:3);
     a:=b;
end;


procedure Dvoich(n:integer; var  a:mas);
VAR I,J,M,L,R,X:INTEGER;
 hour,minut,sec,sec100:word;
    t,t0,t1:real;
sr,per:longint;
BEGIN
b:=a;
gettime(hour,minut,sec,sec100);
    t0:=sec+sec100*0.01;
sr:=0; per:=0;
 FOR I:=2 TO N DO BEGIN
  X:=A[I];L:=1;R:=I;
  WHILE L<R DO BEGIN

   M:=(L+R) DIV 2;
   begin
   inc(sr);
   per:=per+1;
IF A[M]<=X THEN
L:=M+1
 ELSE R:=M
 end;
END;
  FOR J:=I DOWNTO R+1 DO
  begin
  per:=per+1;
   A[J]:=A[J-1];
  A[R]:=X;

  end;
 END;
 WRITELN('Result:');
 gettime(hour,minut,sec,sec100);
        t1:=sec+sec100*0.01;
        t:=t1-t0;
  writeln('Perest ',per);
    writeln('Srav  ',sr);
    writeln('time  ',t:0:3);
    a:=b;
END;
{-----------------------------------------------------------------------------}
{Выбор необходимой сортировки}
procedure select( a:mas);
var second:byte;
 begin
         second_menu;
         write('Your choice ');
         readln(second);
         writeln;
         case second of
         1:Puzir(n,a);
         2:Priamoi_vibor(n,a);
         3:Dvoich(n,a);
         end;
         end;

{-----------------------------------------------------------------------------}
{Вывод}
procedure answer(n:integer; a:mas);
var
i,s:integer;
begin
writeln('Select writing answer');
writeln('1-Vozrastanie');
writeln('2-Ubivanie');
readln(s);
if s=1 then
         FOR I:=1 TO N DO
begin
WRITE(A[I],' ');
end;
if s=2 then
         FOR I:=n downTO 1 DO
begin
WRITE(A[I],' ');
end;
end;
{-----------------------}
 procedure all_sorts;
 begin
 writeln('Bubbles');
 Puzir(n,m);
 writeln('Select');
 Priamoi_vibor(n,m);
 writeln('Binary');
 Dvoich(n,m);
 end;

{------------------------------------------------------------------------------}

{Основная программа}
  BEGIN
  clrscr;
WRITELN('Enter size array(1..10000)');
READ(N);
writeln('1 - for random numbers');
writeln('2 - for user numbers');
writeln('Your_choice ');
readln(fir);
case fir of
1:rand(n,m);
2:Sam(n,m);
end;
writeln;
writeln('second_choice ');
readln(second);
if second=1 then
begin
select(m);
answer(n,m);
end;
if second=2 then
begin
all_sorts;
end;
readln;
END.

[Wadduh]

А как в процедуре puzir счетчик I, может использоваться в двух циклах одновременно? Может в этом проблема?

[lialia]

Так?

procedure Puzir(n:integer; var  a:mas);
VAR I,s,J,X:INTEGER;
    sr,per:longint;
    hour,minut,sec,sec100:word;
    t,t0,t1:real;
begin
b:=a;
sr:=0; per:=0;
gettime(hour,minut,sec,sec100);
    t0:=sec+sec100*0.01;
FOR I:=1 TO N DO
  FOR J:=1 TO N-i DO begin
 if a[j]>a[j+1]then
  BEGIN
  inc(sr);
  inc(per);
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x;
  END;
  for s:=1 to n do
  write(a[s],' ');
  writeln
END;
gettime(hour,minut,sec,sec100);
        t1:=sec+sec100*0.01;
        t:=t1-t0;
    WRITELN('Result:');
    writeln('Perest ',per);
    writeln('Srav  ',sr);
writeln('time  ',t:0:3);
a:=b;
end;

[BDA]

Честно говоря, ненавижу разбираться в чужом коде.
Такое общее замечание - при передаче массива через var параметр, он передается по адресу, то есть после первой сортировки он УЖЕ будет отсортирован, и остальные сортировки не будут ничего сортировать.

Снимаю свое замечание - не заметил присваивания массивов (хотя легче передать массив по значению, и программа за нас сделает копию массива).

Возвращаю замечание Вы делаете присваивание массиву а массива б, тем самым сортируя исходный массив (следующие сортировки получат отсортированный массив).

Пишу замечания по ходу прочтения кода
Сортировка пузырьком:

 if a[j]>a[j+1]then
  BEGIN
  inc(sr);

Неверно - сравнение происходит в любом случае, а увеличение счетчика сравнений только в случае успешного сравнения (inc(sr) должно быть вне if). Также эта ошибка присутствует в прямом выборе.

[Wadduh]

А зачем нужен вывод на экран сортируемого массива на каждой этерации цикла сортировки?

for j:= 1 to n do begin 
    //ваш код...
    for s:=1 to n do
         write(a[s],' ');
         writeln;
end;

Или так задумано?
Дело в том, что эта программа не выводит в конце отсортированный массив ни по одному алгоритму, а конкретно эту процедуру она будет выполнять ооочень(бесконечно) долго..
Почему так? Это уже вам виднее, ведь вы писали код..
Мой совет..внимательно пересмотрите алгоритм работы всей программы. т е что зачем и почему делается на каждом этапе ее выполнения.
Если вам нужен готовый код, то попробуйте дать объявление в разделе фриланс))