IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачи на цыкл..., обясните мне тупому дураку....
Димас
сообщение 26.12.2006 21:34
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 90
Пол: Мужской
Реальное имя: Дима

Репутация: -  1  +


Общем проблемка такая не могу розобратся в задачках......

наведите меня хоть немного на логику... задачи....

Задача 537


В некоторой стране используются денежные купюры достоинством 1,2,4,8,16,32 и 64. Дано натуральное число n. Как наименьшым количеством таких денежных купюр можно выплатить сумы n,n+1...n+10 ? (Указать количество каждой из используемых для выплаты купюр) Предлогается что имееться достоинство большое количество купбр всех достоинств....


я не могу понять логику задачи и смысл... не говоря уже о паскале, как в матиматике это сделать blink.gif

обясните как задачу делать ПОЖАЛУЙСТА!!! smile.gif

З.Ы: мисс_граффити , пардон за тот пост в моей первой теме.... smile.gif

Сообщение отредактировано: Димас - 26.12.2006 22:00


--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 27.12.2006 18:07
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


const
X: Array [1..7] of Byte = (1, 2, 4, 8, 16, 32, 64);

var
n, i: Integer;

begin

write('n = '); readln(n);

writeln;

for i := 7 downto 1 do begin

writeln(X[i], ' : ', n div X[i]);

n := n - (n div X[i]) * X[i];

end;
end.






Добавлено

Malice мне кажется или твоя прога виснет при X = 65 ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Димас   Задачи на цыкл...   26.12.2006 21:34
мисс_граффити   переводишь n, n+1 ... n+10 в двоичную систему. доп...   26.12.2006 21:40
Димас   Я всё равно не пойму :dry: обясните пожалуйста ...   26.12.2006 22:04
Malice   Второй вариант: пока число>64, то {чисел64=чисе...   26.12.2006 22:28
Димас   Ну вроде что то проясняется:-) но с момим умом при...   26.12.2006 23:08
klem4   Не проще посмотреть сколько раз число делится на...   27.12.2006 15:12
Димас   Всё написал и решил эту задачку:-) воть: Progra...   27.12.2006 17:46
Malice   Красиво, но я бы по 1-му варианту пошел, типа: va...   27.12.2006 17:58
klem4   const X: Array [1..7] of Byte = (1, 2, 4, 8, 16,...   27.12.2006 18:07
hiv   :blink: [code=pas]... n := n - (n div X[i]) *...   28.12.2006 9:43
Michael_Rybak   А почему никто не учитывает вот этот кусок:   27.12.2006 18:13
Malice   [b] Malice мне кажется или твоя прога виснет при ...   27.12.2006 19:22
Michael_Rybak   А как учесть-то ? Так ? Нет. Я думаю, имелось в...   27.12.2006 19:51
klem4   Ну ты попробовал запустить свою программу с x = ...   27.12.2006 19:36
Malice   Выкинь свой компилятор , т.к. именно перед циклом...   27.12.2006 21:30
klem4   Ну компилятор тут точно не причем, видимо я разу...   27.12.2006 23:36


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 15:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"