Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 1
Регистрация: 03.12.2010
Сообщений: 25

Обнулить переменную, если заданное число удовлетворяет условию

07.07.2015, 23:15. Показов 2300. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть две константы K1 и K2 и переменная M.

Как проверить , если например значение n удовлетворяет условию K1 >= n > K2, то обнуляем переменную M.

Если n < K1, то выставляем активным 1-ый бит в переменной M.

Если n > K2, то выставить активным 2-ой бит в переменной M.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.07.2015, 23:15
Ответы с готовыми решениями:

Удалить строчку, если она удовлетворяет условию
Ребят, кто-нибудь, пожалуйста, помогите с макросом для Excel ! Вообще не понимаю, как это сделать, а скоро нужно сдавать Вот инструкция к...

Проверить, если ли среди элементов, элемент, который удовлетворяет условию
Добрый день программисты. Нужна помощь в реализации. Требуется из List типа &lt;string&gt; и массива типа string. Проверить если ли среди...

Найти наименьшее число, которое удовлетворяет условию
Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+…+1/n &gt;a. Пункт 3.4 Правил: Спокойствие и хладнокровие помогут вам...

6
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,412
08.07.2015, 07:28
Что-то Вы с операторами сравнения понапутали...

Будем считать, что первое условие верно. Тогда, скорее всего, остальные условия должны быть n > K1 и n <= K2.

Тогда можно всё в одной строке, вот так:
Pascal
1
M := ord(n > K1) + 2 * ord(n <= K2);
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8663 / 4497 / 1670
Регистрация: 01.02.2015
Сообщений: 13,912
Записей в блоге: 12
08.07.2015, 08:32
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Может быть, имеет смысл привести решение без хаков. Те более, что по условию
Цитата Сообщение от mandarinec Посмотреть сообщение
Если n < K1, то выставляем активным 1-ый бит в переменной M.
Если n > K2, то выставить активным 2-ой бит в переменной M.
а это можно трактовать, как есть переменная со значением, и при некоторых условиях в ней нужно установить тот или иной бит, вместо простого присвоения.
Пусть ТС уточнит вопрос.

А так, ещё один вариант (нумерация бит от 0)
Pascal
1
2
3
4
5
6
  if n < K1 then
    M := M or (1 shl 1)
  else if n > K2 then
    M := M or (1 shl 2)
  else
    M := 0;
0
0 / 0 / 1
Регистрация: 03.12.2010
Сообщений: 25
08.07.2015, 08:37  [ТС]
ФедосеевПавел,
А общее условие перед приведенным вами кодом оставляем?
Pascal
1
2
3
   
 if (n<=K1) and (n>K2) then
        M:=0;
Это код сверху будет?
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8663 / 4497 / 1670
Регистрация: 01.02.2015
Сообщений: 13,912
Записей в блоге: 12
08.07.2015, 20:30
mandarinec, попробуй представить происходящее.
Три диапазона, две точки, два сравнения:
Сравнение с К1
- если х<К1, то это диапазон 1,
- иначе это или диапазон 2 или 3 - нужно уточнить сравнением x<K2 и окончательно определиться.
Миниатюры
Обнулить переменную, если заданное число удовлетворяет условию  
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8663 / 4497 / 1670
Регистрация: 01.02.2015
Сообщений: 13,912
Записей в блоге: 12
08.07.2015, 20:55
И ещё нужно уточнить условие. Т.к. из поста #1 не ясно, что делать при х=К2.
0
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,412
08.07.2015, 23:24
mandarinec, ещё раз. У меня подозрение, что Вы ошиблись в условии. Условие записано ошибочно, поскольку при K1 >= n > K2 нужно обнулить биты, но при n > K2 нужно выставить второй бит в 1. Налицо явное противоречие. чему должен быть равен второй бит при n > K2?
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.07.2015, 23:24
Помогаю со студенческими работами здесь

Удалять текст всех ячеек выделенной области, если он удовлетворяет условию
Помогите написать макросы пжлст: 1. Должен удалять текст всех ячеек выделенной области, если он удовлетворяет Условию: В тексте есть -- с...

Найти минимальное число 3 степени, которое удовлетворяет условию
Здравствуйте форумчане. Итак, нужно найти минимальное число 3 степени, которое удовлетворяет условию: {x}^{3} = 2016..... (.... - это...

Переместить элемент массива в другой массив, если удовлетворяет условию (под DOS)
data segment para public 'data' arr1 db -5,-3,-14,3,7,21,9,0,11,2; исходный массив (также сформированный программно, но это для задачи...

Дано действительное число a. Найти первое n, Которая удовлетворяет условию 1+1/2+.+1/n>a
Добрый день знатоки. Помогите пожалуйста программу. Все ли правильно ли зделал. Ну если ошибку найдете то сильно не критикуйте. Все таки я...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru