Cчётчики, Куда их? Опции

[Anastacia Adesso]

Ммм вот тут никак не въеду..
Надо какимто образом вставить в обе процедуры (метод Хоара и метод сливания) счётчик, чтоб узнать количество сравниваний.
Тока вот куда?
Плиииз  HOARSALI.PAS ( 2.16 килобайт ) Кол-во скачиваний: 311

[volvo]

По-моему, я уже где-то показывал, как это можно сделать. Попробую найти ссылку, а пока - просто принцип:
Операцию сравнения заменить на функцию:

function IsGreater(a, b: LongInt): boolean;
begin
  IsGreater := (a > b);
  {
    Ну, как ты понимаешь, ЗДЕСЬ производилось сравнение,
    поэтому именно тут увеличивай счетчик
  }
end;

Тогда, например, фрагмент:

while ar[j]>tempr do ...

Перепишется в виде:

while IsGreater(ar[j], tempr) do ...

, ну и не забывай обо ВСЕХ остальных сравнениях, тебе же надо считать все?

P.S.
Не понял... Я же вроде тебе же показывал, как это делается?

Счётчик, Куда его поставить?

[Anastacia Adesso]

Ага, спасибо! С Хоаром разобралась.
Но в другой процедуре всё ещё не найду куда