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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверка кратности 3, Вещественное числа 
V
    Опции темы
Vaz007
Дата 2.11.2011, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

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



Привет всем, помогите пожалуйста , как мне проверить кратность трем  вещественного числа. 
Код


 if (trunc(x)=round(x)) and (int(x) mod 3)=0  then ..... 

PM MAIL Jabber   Вверх
Данкинг
Дата 2.11.2011, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Если остаток от деления на три равен нулю - то число определённо кратно трём. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vaz007
Дата 2.11.2011, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

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



такой код выдает ошибку  [Error] Project2.dpr(17): Operator not applicable to this operand type
PM MAIL Jabber   Вверх
Данкинг
Дата 2.11.2011, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Я тогда не понял: а как вещественное число может быть кратно трём?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vaz007
Дата 2.11.2011, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

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



Задана последовательность X = (x1, x2, …, x10). 
Сформировать из неё одномерный массив Y, состоящий из элементов массива Х, кратных 3. Если таковых не окажется, вывести фразу «Элементов, кратных 3, нет». Полученный массив напечатать в строчку. 
X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}. вот вся задача

PM MAIL Jabber   Вверх
14SatanA88
Дата 2.11.2011, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



ну, например заводим некий счетчик k. задаем ему начальное значение 0. так же у нас есть входной массив (предположим, X) и выходной (Y)
в цикле перебираем входную последовательность.

далее нужно намутить проверку на кратность тройке
здесь вижу несколько вариантов:

1. рассматривается конкретно входное число (считаем, что 12 кратно тройке, а 12.3 нет)
   если число кратно трем, инкрементируем счетчик k и записываем в массив Y это число по индексу k.
2. рассматривается только целая часть числа
   аналогично пункту 1, но число необходимо округлить
3. рассматриваем входное число, но не обращаем внимание на точку, разделяющую целую и дробную части (типа и 12, и 12.3 кратны тройке)
   тогда приводим число к целому и выполняем пункт 1

теперь надо вывести полученный массив
здесь смотрим на счетчик k. если он равен 0, пишем «Элементов, кратных 3, нет», если больше, показываем массив Y
PM MAIL ICQ   Вверх
DarkProg
Дата 2.11.2011, 20:08 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


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

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



Цитата(Данкинг @  2.11.2011,  20:10 Найти цитируемый пост)
а как вещественное число может быть кратно трём? 

Никак, потому что кратными бывают только целые. А так в общем имеем типичный пример глупой ВУЗовской задачи для первокурсников.

Код

if trunc(x)=round(x)  then
    if round(x) mod 3=0 then
       begin
        //делаем описанное постом выше
       end;



--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Vaz007
Дата 2.11.2011, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

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



спасибо всем большое)
PM MAIL Jabber   Вверх
Данкинг
Дата 2.11.2011, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(DarkProg @  2.11.2011,  21:08 Найти цитируемый пост)
А так в общем имеем типичный пример глупой ВУЗовской задачи для первокурсников.

Буйство фантазии однако...


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
northener
Дата 2.11.2011, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(DarkProg @  2.11.2011,  20:08 Найти цитируемый пост)
А так в общем имеем типичный пример глупой ВУЗовской задачи для первокурсников.

Интересно для первокурсников какого ВУЗа ставилась эта задача? 
Ну для кулинарного техникума, разве что.

Цитата(Данкинг @  2.11.2011,  22:35 Найти цитируемый пост)
Буйство фантазии однако

А кто утверждает, что авторы задачи обязательно должны быть грамотными? smile




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


Законченный романтик
***


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

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



Цитата(northener @  3.11.2011,  00:29 Найти цитируемый пост)
Интересно для первокурсников какого ВУЗа ставилась эта задача? 

Любого, подобные задачи встречаются на любых факультетах любого ВУЗа, меня просто спрашивали на первом курсе друзья с разных ВУЗов


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
northener
Дата 3.11.2011, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(DarkProg @  3.11.2011,  00:02 Найти цитируемый пост)
Любого, подобные задачи встречаются на любых факультетах любого ВУЗа

Имхо, не надо преувеличивать.



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


Опытный
**


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

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



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

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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