Сортировка

[lialia]

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

 
const
  m = 10; 
 type
 mas=array[1..10] of integer;
var
   a:mas;
  i, j, k: integer; 
 
procedure Cut( var a:mas);
var
i,j,k:integer;
begin
for i := 1 to m - 1 do
    for j := 1 to m - i do
      if a[j] > a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
      end;
end;
 
begin
  writeln('Vvedite elementu massiva');
  for i := 1 to m do
 read(a[i]); 
   Cut(a);
 begin
  write('Otsortirovannui massiv: ');
  for i := 1 to m do
    write(a[i]:4);
   
  writeln;
readln
   end;
end.

[Chertenok_n_13]

эм. не поняла проблемы. у меня с клавиатуры все ввелись и отсортировались правильно. а что конкретнее не так??

[lialia]

нужно чтобы человек мог сам выбрать кол-во элементов,а не как у меня 10 и ни как по другому

[Poma][a]

const
  n = 100; 
 type
 mas=array[1..n] of integer;
var
   a:mas;
  i, j, k, m: integer; 
 
procedure Cut( var a:mas);
var
i,j,k:integer;
begin
for i := 1 to m - 1 do
    for j := 1 to m - i do
      if a[j] > a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
      end;
end;
 
begin
   ReadLn (m);
  writeln('Vvedite elementu massiva');
  for i := 1 to m do
 read(a[i]); 
   Cut(a);
 begin
  write('Otsortirovannui massiv: ');
  for i := 1 to m do
    write(a[i]:4);
   
  writeln;
readln
   end;
end.

[lialia]

спасибо большое!! У меня еще один вопрос,подскажите пожалуйста,а как ввести в эту программу подсчет числа обменов,числа сравненийи времени работы процудуры?

[hon]

     if a[j] > a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
        //тут увеличиваем число обменов
      end;

А время работы сделать тяжело. Юзайте GetDate и GetTime.

[lialia]

спасибо,это же только число обменов,да?

[hon]

Да. А время работы сделать тяжело. Юзайте GetDate и GetTime.

[s-andriano]

Лучше использовать GetTickCount.
Следует только иметь в виду, что дискретность изменения составляет 15-20 мс, а не 1 мс, как моэжно было бы подумать.

[Smitt&Wesson]

Сообщение от hon

Да. А время работы сделать тяжело. Юзайте GetDate и GetTime.

И что тут тяжёлого?

// Инициализация таймера замера времени выполнения алгоритма
LARGE_INTEGER freq;
QueryPerformanceFrequency(&freq);
LARGE_INTEGER time1;
QueryPerformanceCounter(&time1);

// замеряемый алгоритм

// Снятие показаний таймера
LARGE_INTEGER time2;
QueryPerformanceCounter(&time2);
time2.QuadPart -= time1.QuadPart;
double span = (double) time2.QuadPart / freq.QuadPart;

span = span * pow(10,9);// Время в микросекундах