VPF::[pascal] счетчик nop для сортировки стека

darksiders150

Дата 28.3.2018, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.3.2018

Репутация: нет
Всего: нет

есть код программы,нужно организовать счетчик nop... Попробовал сам, но ничего не вышло, так как количество при сортировки 100 элементов выдает 41 миллион. Пример организации счетчика у одногрупника,но у него код на много проще.

Код


uses
  SysUtils;
type
  tItem = ^pItem;
  pItem = record
    n : Integer;
    x : tItem;
  end;

type
  tStack = record
    Items : tItem;
    Empty : boolean;
  end;
 var
 t,t1,t2: TDateTime;
ch:int64;
function NewStack : tStack;
var
  Stack : tStack;
begin
  Stack.Items := nil;
  Stack.Empty := True;
  NewStack := Stack;
  ch:=ch+5;
end;

procedure Push(n : Integer; var Stack : tStack);
var
  tmp : tItem;
begin
  New(tmp);
  tmp^.n := n;
  tmp^.x := Stack.Items;
  Stack.Items := tmp;
  Stack.Empty := False;
  ch:=ch+10;
end;

function Pop(var Stack : tStack) : Integer;
var
  res : Integer;
  tmp : tItem;
begin
  if Not Stack.Empty then
    begin
      tmp := Stack.Items;
      Stack.Items := Stack.Items^.x;
      Stack.Empty := Stack.Items = nil;
      res := tmp^.n;
      Dispose(tmp);
      ch:=ch+12;
    end;
  Pop := res;
  ch:=ch+2;
end;

function CreateStack(n : Integer) : tStack;
var
  Stack : tStack;
begin
  Stack := NewStack;
  while n > 0 do
    begin
      Push(Random(200)-50, Stack);
      Dec(n);
      ch:=ch+3;
    end;
  CreateStack := Stack;
  ch:=ch+3;
end;

procedure PrintStack(Stack : tStack);
var
  tmp : tItem;
begin
  tmp := Stack.Items;
  if Stack.Empty then
    Write('Стек пуст!')
  else
    while tmp <> nil do
      begin
        Write(#32, tmp^.n); tmp := tmp^.x;
        ch:=ch+2;
      end;
      ch:=ch+3;
  WriteLn;
end;

procedure ClearStack(var Stack : tStack);
begin
  while Not Stack.Empty do Pop(Stack);
  ch:=ch+2;
end;

procedure SortStack(var Stack : tStack);
var
  swap : Boolean;
  tmpStack : tStack;
  n1, n2 : Integer;
begin
  if Stack.Empty then Exit;
  tmpStack := NewStack;
  repeat
    swap := False;
    n1 := Pop(Stack);
    while Not Stack.Empty do
      begin
        n2 := Pop(Stack);
        if n1 > n2 then
          begin
            Push(n2, tmpStack); swap := True;
          end
        else
          begin
            Push(n1, tmpStack); n1 := n2;
          end;
          ch:=ch+2;
      end;
    Push(n1, Stack);
    while Not tmpStack.Empty do
      Push(Pop(tmpStack), Stack);
      ch:=ch+3;
  until Not swap;
  ch:=ch+3;
end;

var
  Stack : tStack;
begin
  Stack := CreateStack(1000);
  writeln('Не отсортированный стек');
  PrintStack(Stack);
  t1:=now;
  writeln('отсортированный стек');
  SortStack(Stack);
  PrintStack(Stack);
  ClearStack(Stack);
  t2:=now; t:=t2-t1;
  writeln('Время сортировки: ',FormatDateTime('hh:mm:ss.zzz',t));
  write('количество операций со стеком: ',ch);
  readln;
end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »