Доделать в Паскале задание на массив

[Novenkaja]

Добрый день всем программистам.

Мне очень нужна ваша помощь.
Мне немного нехватает пунктов по предмету, преподователь вечно к чему то придерается и ей что-то не нравится.Вот дан код моего задания,в нём у меня выполнены все пункты, но она говорит, что не указаны максимальные размеры массива(т.е. не выполнен 2-ой пункт задания)

Поэтому вот условие задания и мой код.Прошу помощи доделать его(т.е. дописатьв него ту часть,которая будет отвечать за 2-ой пункт насчёт этих максимальных размеров массива)

Создать программу, которая указывает (находит, определяет) время образования массива чисел, типа REAL :

1. Сравнение производит тремя методами : «разделяй и властвуй», сортировка Шелла, методом вставки (скорее всего подразумеваются методы сортировки обменом, выбором и вставкой);
2. Размеры массивов – максимально возможные;
3. Начальные значения создать (образовать), используя генератор случайных чисел, но для всех трех методов (или же ...во всех трех методах...) содержание массивов должно быть одинаковым (должно совпадать);
4. Упорядочение производить созданому, упорядоченному и упорядоченному «задом наперед» (наверное подразумевается – от большего к меньшему) массивам;
5. Полученные время (миллисекунды) сохранять в массиве;
6. Результаты перевести в секунды и сохранить в форме таблицы.

program uzd_7;
uses windows; 
const Max=1000;                      {otvet na 2-ij punkt}
type TArray=array[1..max] of real;  {glavnoe uslovie tip-real}
var a,b,c:TArray;
h,z:Integer;
T:array[1..3,1..3] of real;


procedure Write1(var item: TArray; count:integer);
var i:Integer;
begin
 for i:=1 to count do
 write(item[i],'  ');
end;

procedure Select(var item: TArray; count:integer);   {proceduri select/select2,change/change 2 i dr-ie eto 4-ij punkt }
var
  i, j, k: integer;
  x: real;
begin
  for i := 1 to count-1 do
    begin
      k := i;
      x := item[i];
      for j := i+1 to count do
      if item[j]<x then
        begin
          k := j;
          x := item[j];
        end;
      item[k] := item[i];
      item[i] := x;                 {x-vspomogatelnaja peremennaja}
         end;
end;
Procedure Change(Var  item: TArray; count:integer);
Var
  i,j:integer;
  x:real;
Begin
     for i:=1 to count-1 do
     for j:=i+1 to count do
     if item[i]>item[j] then
     begin
       x:=item[i];
       item[i]:=item[j];
       item[j]:=x;
      end;
End;

procedure Insert(Var  item: TArray; count:integer);
var i, j:integer;buf:real;
begin
for i:=2 to count do     {count-koli4estvo elementov v massive}
begin
buf:=item[i];
j:=i-1;
while (j>=1) and (item[j]>buf) do
begin
item[j+1]:=item[j];
j:=j-1;
end;
item[j+1]:=buf;               {buf-vspomogatelnaja peremennaja}
end;
end ;

procedure Select2(var item: TArray; count:integer);
var
  i, j, k: integer;
  x: real;
begin
  for i := 1 to count-1 do
    begin
      k := i;
      x := item[i];
      for j := i+1 to count do
      if item[j]>x then
        begin
          k := j;
          x := item[j];
        end;
      item[k] := item[i];
      item[i] := x;
         end;
end;


Procedure Change2(Var  item: TArray; count:integer);
Var
  i,j:integer;
  x:real;
Begin
     for i:=1 to count-1 do
     for j:=i+1 to count do
     if item[i]<item[j] then
     begin
       x:=item[i];
       item[i]:=item[j];
       item[j]:=x;
      end;
End;


procedure Insert2(Var  item: TArray; count:integer);
var i, j:integer;
 buf:real;
begin
for i:=2 to count do
begin
buf:=item[i];
j:=i-1;
while (j>=1) and (item[j]<buf) do
begin
item[j+1]:=item[j];
j:=j-1;
end;
item[j+1]:=buf;
end;
end;
begin
 Randomize;
 For h:=1 to Max do        {otvet na 3-ij punkt,ot for  to end}
 begin                  
  t[1,1]:=Random(1000);
  a[h]:=t[1,1];
  b[h]:=t[1,1];
 c[h]:=t[1,1];
 end;


 t[1,1]:=GetTickCount;  {GetTickCount-otve4ajet za milesekundi,perevod potom v sekundi}
 Select(a,max);          
 t[1,1]:=GetTickCount-t[1,1];  {otvet na 5-ij punkt,i vse posledujuwie GetTickCount}

 t[2,1]:=GetTickCount;
 Change(b,max);
 t[2,1]:=GetTickCount-t[2,1];

 t[3,1]:=GetTickCount;
 Insert(c,max);
 t[3,1]:=GetTickCount-t[3,1];

 t[1,2]:=GetTickCount;
 Select(a,max);
 t[1,2]:=GetTickCount-t[1,2];

 t[2,2]:=GetTickCount;
 Change(b,max);
 t[2,2]:=GetTickCount-t[2,2];

 t[3,2]:=GetTickCount;
  Insert(c,max);
 t[3,2]:=GetTickCount-t[3,2];

Select2(a,max);
Change2(b,max);
Insert2(c,max);


 t[1,3]:=GetTickCount;
 Select(a,max);
 t[1,3]:=GetTickCount-t[1,3];

 t[2,3]:=GetTickCount;
 Change(b,max);
 t[2,3]:=GetTickCount-t[2,3];
 t[3,3]:=GetTickCount;
  Insert(c,max);
 t[3,3]:=GetTickCount-t[3,3];

 write('      BbI6op              O6MeH        BCTABKu');           {otvet na 1-ij punkt}
 Writeln;
 for h:=1 to 3 do begin
 for z:=1 to 3 do
 write((T[h,z]/1000):15:3);    {otvet na 6-oj punkt}
 Writeln; end;
  readln;
end.

[Utkin]

2. Размеры массивов – максимально возможные;

У Вас же

const Max=1000;

Я точно не знаю сколько дает Паскаль, но попробуйте так:

const Max=MaxInt;

[Novenkaja]

хорошо попробую,это был первый вопрос,жаль только, что ответ от преподовательницы получу не раньше субботы-воскресенья.

[Novenkaja]

я попробовала,не идёт с MaxInt,выходит в ран и ничего не пишет-не сам,не если я нажимаю цифру на клавиатуре и даже если жму enter то не выходит из программы
а при 1000 идёт,всё показывает,но видите ли не указан максимальный массив

[Serge_Bliznykov]

1) под какую ОС пишете код? Компилятор Паскаля какой именно?

2) Вашему преподавателю ЯВНО не нравится

const Max = 1000; {otvet na 2-ij punkt}

а почему, например, не

const Max = 3000; {otvet na 2-ij punkt}

???
Но, боюсь, что она хочет получить от Вас ДИНАМИЧЕСКИЕ МАССИВЫ.
но это сильно зависит от ответа на мой вопрос №1 ...


ДОПОЛНИТЕЛЬНО
Вы неверно выводите результаты!!!!!

попробуйте заменить код вычислений на такой:

  t[1, 1] := GetTickCount; {GetTickCount-otve4ajet za milesekundi,perevod potom v sekundi}
  Select(a, max);
  t[1, 1] := GetTickCount - t[1, 1]; {otvet na 5-ij punkt,i vse posledujuwie GetTickCount}


  t[1, 2] := GetTickCount;
  Select(a, max);
  t[1, 2] := GetTickCount - t[1, 2];

  Select2(a, max);
  Change2(b, max);
  Insert2(c, max);

  t[1, 3] := GetTickCount;
  Select(a, max);
  t[1, 3] := GetTickCount - t[1, 3];

  write('      BbI6op              O6MeH        BCTABKu'); {otvet na 1-ij punkt}

и расскажите, откуда взялись результаты по методам Обмена и Вставки...

p.s. сам код сортировки не проверял... надеюсь, что Вы его самостоятельно проверили и от корректный!

[Novenkaja]

объясните пожалуйста конкретнее, что Вы имеете под первым вопросом???

да,ей именно не нравится второй пункт,т.к. когда я отсылала это задание,она мне поставила определённое кол-во пунктов за него из максимального кол-ва и написала,что не указаны максимальные размеры массива.
В смысле динамические массивы? мы проходили только одиночный и двумерные массивы.

а если вы пишете 3000,что 1000 мало? это ещё не максимально возможный размер массива да?

[Novenkaja]

Windows XP, Free Pascal

[Novenkaja]

результат на экран я думаю выводиться по коду,сама программа его как то высчитывает и потом выдаёт,не знаю

[Serge_Bliznykov]

результат на экран я думаю выводиться по коду,сама программа его как то высчитывает и потом выдаёт,не знаю

ВЫ (как программист)
Выводите НЕВЕРНЫЙ РЕЗУЛЬТАТ!

Вы думаете, что методы сортировки по столбикам.

А выводите результаты по строчкам - первую строчку - результаты сортировки выбором!
Строчка! А не столбец!

надо вывод переделать!

например, так:

  for h := 1 to 3 do begin
    for z := 1 to 3 do
      write((T[z, h] / 1000): 15: 3); {otvet na 6-oj punkt}

[Novenkaja]

for h:=1 to 3 do begin
for z:=1 to 3 do
write((T[h,z]/1000):15:3);

а в чём разница того,что у меня было напи сано в коде и того,что Вы написала примерно так-это же одно и тоже....

а как вывести правильный результат?

и не знаю,мне учительница ничего про непраивльный результат не написала,только про то,что не выполнен второй пункт