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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> div mod 
:(
    Опции темы
Darkmaster
Дата 6.2.2006, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Задача по div и mod. У меня ступор.. точнее я решил ее с определенными числами но нужно универсальное решение для всех чисел как переменных. Вот задача:
Из трехзначного числа x вычли его последнюю цифру. Когда результат разделили на 10 , а к частному слева приписали последнюю цифру числа x то получилось число N. Найти число N. По заданному N найти число x (значение N вводится с клавиатуры, 10<=N<=999), и при этом число десятков в N не равно нулю. Помогите с решением!
--------------------
GeekTV - интернет-телевидение для гиков
PM MAIL   Вверх
Snowy
Дата 6.2.2006, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



Для 10-999:
Код

  N := (x div 10);
  if x >= 100 then N := x mod 10 * 100
  else N := x mod 10 * 10;



Для трехзначных:
Код

  N := (x div 10) + (x mod 10 * 100);

Добавлено @ 21:37
И наоборот:
Код

  x := (N mod 100 * 10) + (N div 100); 

PM MAIL   Вверх
Rencom
Дата 7.2.2006, 02:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Snowy, ты неправильно число N нашел.

Цитата
Из трехзначного числа x вычли его последнюю цифру



Где ты вычитаешь последнюю цифру из числа??)
PM MAIL   Вверх
Snowy
Дата 7.2.2006, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



Цитата(Rencom @ 7.2.2006, 02:06 Найти цитируемый пост)
Где ты вычитаешь последнюю цифру из числа??)

А покажи мне разницу между:
Код

  N := x div 10;
  { и }
  N := (x - x mod 10) div 10;
?
Результат один и тот же.
Если не устраивает, можно применить вторую запись. Но результат от этого не изменится.
PM MAIL   Вверх
Rencom
Дата 8.2.2006, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



да, ты прав, беру свои слова обратно, извини smile
PM MAIL   Вверх
karataev
Дата 9.2.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

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



Код

 N := (x div 10);    
  if x >= 100 then N := x mod 10 * 100    
  else N := x mod 10 * 10;


Snoowy, ты наверное хотел написать что это для 10-99, а не 10-999, потому что дальше даешь код для трехзначных...

Это сообщение отредактировал(а) karataev - 9.2.2006, 16:33
PM MAIL WWW ICQ   Вверх
Snowy
Дата 9.2.2006, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



Нет, я все правильно написал.
А код для трехзначных даю потому, что по сути это то же самое, но только для трехзначных.
Т.е. второй код делает то же, что и первый, кроме того, что не работает с 10-99, а только 100-999.
Первый код работает для любых 10-999.
PM MAIL   Вверх
karataev
Дата 9.2.2006, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

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



Цитата(Snowy @ 9.2.2006, 16:41)
Второй код делает то же, что и первый, кроме того, что не работает с 10-99, а только 100-999.
Первый код работает для любых 10-999.

Понял smile
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

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

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

2. Публиковать ссылки на варез

3. Оффтопить

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

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

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


 




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


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

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