Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> if then где туплю? 
V
    Опции темы
кмс
Дата 13.5.2013, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 139
Регистрация: 12.2.2009
Где: Казахстан

Репутация: 1
Всего: 2
Здравствуйте.
Есть такой код:
Код

if (array[132] and array[133] and array[134] and array[135])  <> 0 then


Не работает. Я так понял что между данными в массиве производится битовая операция and
А как написать что бы просто было сравнение с 0 по указанным индексам массива?

А вот например так работает нормально.
Код

if (array[80] and array[81] and array[82] and array[83]) = $23 then



Это сообщение отредактировал(а) кмс - 13.5.2013, 22:32
PM MAIL   Вверх
EllinaSwan
Дата 13.5.2013, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
if (array[132] <> 0 and array[133] <> 0 and array[134] <> 0 and array[135] <> 0) then

Я конечно совершенно незнакома с Delphi, но по логике вещей должно быть так. В if все выражения должны быть булевые.

Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL   Вверх
EllinaSwan
Дата 13.5.2013, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
От такой формулировки толку мало. Лучше создать функцию, которой передаешь массив. Она обходит его по циклу и возвращает true при первом нахождении 0. Или False после цикла.

Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL   Вверх
northener
Дата 13.5.2013, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(кмс @  13.5.2013,  22:20 Найти цитируемый пост)
А вот например так работает нормально.
Выделить всёкод Pascal/Delphi
1:
    
if (array[80] and array[81] and array[82] and array[83]) = $23 then

Цитата



Это оптический обман здрения (с)
Так тоже не работает.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Arantir
Дата 13.5.2013, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Рыбак без удочки
**


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

Репутация: нет
Всего: 55
Цитата(кмс @  13.5.2013,  21:20 Найти цитируемый пост)
А как написать что бы просто было сравнение с 0 по указанным индексам массива?

Вам нужно, чтобы все указанные элементы одновременно не равнялись нулю?
Просто перемножьте их между собой (вместо and) и сравните с нолем. Если там хоть один ноль, то результат будет нулевым. Простая алгебра.

Это сообщение отредактировал(а) Arantir - 13.5.2013, 22:42


--------------------
interface Жопа {
    // ATTENTION: has to be implemented by every class of the project for proper project work
}
PM   Вверх
кмс
Дата 13.5.2013, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 139
Регистрация: 12.2.2009
Где: Казахстан

Репутация: 1
Всего: 2
Цитата
Это оптический обман здрения (с)

Ну вообщем да, сбило с толку то что $23 and $23 and $23 = $23 smile
По этому и решил что такая конструкция правильная.

Цитата
if (array[132] <> 0 and array[133] <> 0 and array[134] <> 0 and array[135] <> 0) then

Ну вообщем так и сделал.

Цитата
Вам нужно, чтобы все указанные элементы одновременно не равнялись нулю?
Просто перемножьте их между собой (вместо and) и сравните с нолем. Если там хоть один ноль, то результат будет нулевым. Простая алгебра.

Да интересовало сравнивать все элементы одновременно. Просто думал что можно как то упростить сравнивание  в место того что бы сравнивать каждый элемент массива.
PM MAIL   Вверх
Poseidon
Дата 13.5.2013, 23:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(EllinaSwan @  13.5.2013,  22:34 Найти цитируемый пост)
if (array[132] <> 0 and array[133] <> 0 and array[134] <> 0 and array[135] <> 0) then
Так тоже не будет работать. А вот так:
Код

if (array[132] <> 0) and (array[133] <> 0) and (array[134] <> 0) and (array[135] <> 0) then 
будет.


Помечаю тему как решенную.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
northener
Дата 14.5.2013, 01:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(кмс @  13.5.2013,  22:51 Найти цитируемый пост)
Ну вообщем да, сбило с толку то что $23 and $23 and $23 = $23


В байте содержащем 23h -  5 нулевых бит.  Так что выполнение этого условия возможно в 3*5! вариантах. smile

Возможно вам не помешает прочитать Двоичная математика, работа с битовой логикой

Добавлено через 6 минут и 50 секунд
Цитата(Poseidon @  13.5.2013,  23:20 Найти цитируемый пост)
Так тоже не будет работать.

Этот код просто не скомпилируется. И компилятор сообщит почему.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
кмс
Дата 14.5.2013, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 139
Регистрация: 12.2.2009
Где: Казахстан

Репутация: 1
Всего: 2
northener, спасибо за ссылку smile
Хотя я в принципе знаю как работать с битами, но век живи век учись, есть там что почитать smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0498 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.