Cчётчики, Куда их? |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Cчётчики, Куда их? |
Anastacia Adesso |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 92 Пол: Мужской Реальное имя: Stanislav Репутация: 0 |
Ммм вот тут никак не въеду..
Надо какимто образом вставить в обе процедуры (метод Хоара и метод сливания) счётчик, чтоб узнать количество сравниваний. Тока вот куда? Плиииз HOARSALI.PAS ( 2.16 килобайт ) Кол-во скачиваний: 496 -------------------- Ben sensiz yaşayamam
|
volvo |
Сообщение
#2
|
Гость |
По-моему, я уже где-то показывал, как это можно сделать. Попробую найти ссылку, а пока - просто принцип:
Операцию сравнения заменить на функцию: function IsGreater(a, b: LongInt): boolean; Тогда, например, фрагмент: while ar[j]>tempr do ...Перепишется в виде: while IsGreater(ar[j], tempr) do ..., ну и не забывай обо ВСЕХ остальных сравнениях, тебе же надо считать все? P.S. Не понял... Я же вроде тебе же показывал, как это делается? Счётчик, Куда его поставить? |
Anastacia Adesso |
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 92 Пол: Мужской Реальное имя: Stanislav Репутация: 0 |
Ага, спасибо! С Хоаром разобралась.
Но в другой процедуре всё ещё не найду куда -------------------- Ben sensiz yaşayamam
|
volvo |
Сообщение
#4
|
Гость |
Цитата(Anastacia Adesso @ 4.10.2006 14:54) Но в другой процедуре всё ещё не найду куда Чем она кардинально отличается от Хоара? По-моему, ничем... procedure merge(var ar:masiv; n:integer); |
Текстовая версия | 26.04.2024 5:11 |