NoX World - форум об игре NoX

 
Пожалуйста, войдите или зарегистрируйтесь.

Войти
Расширенный поиск  
Сейчас онлайн стрима нет!
Сейчас на сервере никого нет!

Обязательно все ознакомьтесь с новыми Правилами Портала!

Актуальные новости:
IP сервера изменён! Новый IP: 45.144.64.229. Сервер также доступен через Westwood Online (XWIS, игру через сервер)


Важные темы:
Как играть по сети? Понятное руководство!
Правила Сервера NoxWorld.
Как помочь форуму финансово?

Автор Тема: Тема для оффтопа II  (Прочитано 1034161 раз)

0 Пользователей и 11 Гостей смотрят эту тему.

Perfect

  • Map Editor PRO
  • Старожил
  • *
  • Карма: 125
  • Оффлайн Оффлайн
  • Сообщений: 1148
  • Слушай маму и drum&bass
  • Awards За поддержку форума - 2013 Лучший дизайн 5 конкурса карт Рука форума 2012 3 конкурс карт - лучшая карта 3 конкурс карт - приз Evengard-а за самую большую карту Медаль 'За фантазию и упорство в создании карт - 2011' Медаль 'Победитель II конкурса карт' Лучшая карта
    • Просмотр профиля
    • nÖrange soundcloud
    • Awards

Да ты ещё и в жизни читор!!!! ???
Записан

Lаrboss

  • Старожил
  • *****
  • Карма: 109
  • Оффлайн Оффлайн
  • Сообщений: 910
  • Абстрагирую
  • Awards Знак 'Властелин Сил Природы' За редактор шрифтов - 2013 Медаль 'За программу Nox Server Notificator' За программу Nox Binder Знак 'За тягу к тайнам Nox'
    • Просмотр профиля
    • Awards

Олег, вот, нашел. Смотри код:
procedure TForm1.Button1Click(Sender: TObject);
Var S,R1,R2,R5,R10,R50,R100,R500:integer; // Сумма, Купюры от 1 до 500
begin
{Ввод}
S:=strtoint(edit1.Text); // Сумма к оплате
{---}

if s<=0 then begin // Отрицательными ассигнациями платить нельзя, Сумма положительна?
s:=1;
Showmessage('Сколько должен заплатить?');
end;

{Обнулим кол-во всех купюр}
R500:=0;
R100:=0;
R50:=0;
R10:=0;
R5:=0;
R2:=0;
R1:=0;
{---}

While s>0 do // Еще не оплатили?
begin

if s>=500 then // В сумме 500 или более руб?
begin
s:=s-500;
R500:=r500+1;
end
else
if s>=100 then begin // В сумме 100 или более руб?
s:=s-100;
R100:=R100+1;
end
else
if s>=50 then begin // В сумме 50 или более руб?
s:=s-50;
r50:=r50+1;
end
else
if s>=10 then begin // В сумме 10 или более руб?
s:=s-10;
r10:=r10+1;
end
else
if s>=5 then begin // В сумме 5 или более руб?
s:=s-5;
r5:=r5+1;
end
else
if s>=2 then begin // В сумме 2 или более руб?
s:=s-2;
r2:=r2+1;
end
else
if s>=1 then begin // В сумме 1 или более руб?
s:=s-1;
r1:=r1+1;
end;

end; // Конец цикла
{Вывод : Сколько и каких купюр потратили}
Panel1.caption:= inttostr(R500);
Panel2.caption:= inttostr(R100);
Panel3.caption:= inttostr(R50);
Panel4.caption:= inttostr(R10);
Panel5.caption:= inttostr(R5);
Panel6.caption:= inttostr(R2);
Panel7.caption:= inttostr(R1);
{---}
end;

Да, да, код "оригинален" :lol: Еще и с коментами писал.
Записан
Отец читеров

Squall

  • Глобальный модератор
  • Старожил
  • **
  • Карма: 132
  • Оффлайн Оффлайн
  • Сообщений: 1170
  • I will always be here.
  • Awards Медаль 'За написание статьи о Воине'
    • Просмотр профиля
    • Awards

если вырезать все, что касается 5рублей и 1 рубля, программа будет работать?
Записан
Spoiler (click to show/hide)

Katarsis

  • Старожил
  • *****
  • Карма: 99
  • Оффлайн Оффлайн
  • Сообщений: 726
  • Возрождение
  • Awards Медаль 'За написание статьи о маге' Активным участникам сходок - 2013 3 конкурс карт - лучший геймплей 3 конкурс карт - выбор администрации Знак 'Создателю самых уютных болот'
    • Просмотр профиля
    • Awards

это помесь паскаля с чем-то еще, дельфи наверное. к qbasic'у мой вариант поближе будет.
Squall,
х - требуемая сумма, которую надо разменять на купюры/монеты. "\" это целочисленное деление, а mod - остаток от него. Деля целочисленно сумму на, допустим, 100, мы получаем количество сотен в этой сумме, после чего заменяем х остатком от этого деления и проверяем количество вхождений купюр меньшей стоимости...
проверку на четность требуемой суммы ввести не забудь, раз у тебя однорублевой монеты нет.
Записан

Katarsis

  • Старожил
  • *****
  • Карма: 99
  • Оффлайн Оффлайн
  • Сообщений: 726
  • Возрождение
  • Awards Медаль 'За написание статьи о маге' Активным участникам сходок - 2013 3 конкурс карт - лучший геймплей 3 конкурс карт - выбор администрации Знак 'Создателю самых уютных болот'
    • Просмотр профиля
    • Awards

Вроде основную часть статьи дописал, теперь бы как-нибудь подправить ее в офрмлении и некоторых местах...
Записан

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Эт че, обычная задача на деление с остатком столь?
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

Squall

  • Глобальный модератор
  • Старожил
  • **
  • Карма: 132
  • Оффлайн Оффлайн
  • Сообщений: 1170
  • I will always be here.
  • Awards Медаль 'За написание статьи о Воине'
    • Просмотр профиля
    • Awards

Эвенгард, да.
Катарсис - с каких пор ловушки реагируют на своего хозяина? Как это можно воспроизвести? Интересный факт, однако)
Записан
Spoiler (click to show/hide)

Perfect

  • Map Editor PRO
  • Старожил
  • *
  • Карма: 125
  • Оффлайн Оффлайн
  • Сообщений: 1148
  • Слушай маму и drum&bass
  • Awards За поддержку форума - 2013 Лучший дизайн 5 конкурса карт Рука форума 2012 3 конкурс карт - лучшая карта 3 конкурс карт - приз Evengard-а за самую большую карту Медаль 'За фантазию и упорство в создании карт - 2011' Медаль 'Победитель II конкурса карт' Лучшая карта
    • Просмотр профиля
    • nÖrange soundcloud
    • Awards

Заклинание "Ловушка", которое активирует ловушки.
Записан

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Ну а чего тут думать то) ищем в инете синтаксис деления с остатком и делим потихоньку поэтапно... Даже цикл не нужен.
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

Squall

  • Глобальный модератор
  • Старожил
  • **
  • Карма: 132
  • Оффлайн Оффлайн
  • Сообщений: 1170
  • I will always be here.
  • Awards Медаль 'За написание статьи о Воине'
    • Просмотр профиля
    • Awards

Вов, что ловушка активируется "Ловушкой", я знаю, просто в статье написано, будто бы если много бегать по своей ловушке она возьмет и сработает, я буквально это понимаю.
Записан
Spoiler (click to show/hide)

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Koupures500% = Input% \ 500
Koupures500Left% = Input% MOD 500
Koupures100% = Koupures500Left% \ 100

И тд если с синтаксисом языка не напутал. Мог, ибо бейсик, тем более КьюБейсик вижу впервой.
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

Perfect

  • Map Editor PRO
  • Старожил
  • *
  • Карма: 125
  • Оффлайн Оффлайн
  • Сообщений: 1148
  • Слушай маму и drum&bass
  • Awards За поддержку форума - 2013 Лучший дизайн 5 конкурса карт Рука форума 2012 3 конкурс карт - лучшая карта 3 конкурс карт - приз Evengard-а за самую большую карту Медаль 'За фантазию и упорство в создании карт - 2011' Медаль 'Победитель II конкурса карт' Лучшая карта
    • Просмотр профиля
    • nÖrange soundcloud
    • Awards

Да, на своей ловушке вполне возможно подорваться. По-моему, это некий баг...
Записан

EvilWisp

  • Постоялец
  • ****
  • Карма: 44
  • Оффлайн Оффлайн
  • Сообщений: 315
  • ChessNox
  • Awards Рука форума 2012 Медаль 'За поддержку форума - 2011' За поддержку форума 2010
    • Просмотр профиля
    • Awards

Почему то очень грустно, что Стива больше нет...
Записан
Подпись:
Подпись отображается под каждым Вашим сообщением. BB коды и смайлы могут быть использованы против вас.

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Кхм. Может это связано с не очень то удачным iPhone 4S? многие сходятся, что этим телефоном Apple переходит в разряд "догоняющих" на рынке смартфонов.

Джобс расчувствовался, вот и... А, ладно. Пусть мир ему будем пухом.

Удивительно вовремя конечно он передал дела Тиму Куку.
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

EvilWisp

  • Постоялец
  • ****
  • Карма: 44
  • Оффлайн Оффлайн
  • Сообщений: 315
  • ChessNox
  • Awards Рука форума 2012 Медаль 'За поддержку форума - 2011' За поддержку форума 2010
    • Просмотр профиля
    • Awards

У ейпла было много взлетов и падений.
Он заранее ушел с поста гендира, может чувствовал.
Записан
Подпись:
Подпись отображается под каждым Вашим сообщением. BB коды и смайлы могут быть использованы против вас.

OXOTHuK

  • Постоялец
  • ****
  • Карма: 32
  • Оффлайн Оффлайн
  • Сообщений: 435
  • Имбой становится в руках мастера
    • Просмотр профиля
    • Awards

Уф попробовал впервые сидр....Слопал бутылку.
Записан

unseen

  • Тяжёлый клинок
  • Старожил
  • *
  • Карма: 172
  • Оффлайн Оффлайн
  • Сообщений: 1379
  • А вы говорите, маг - имба
  • Awards Активным участникам сходок - 2013 За работу над статьей на Wikipedia - 2013 Медаль 'За организацию сходки - 2011' Орден 'За заслуги перед форумом I степени' Знак 'Повелитель Огненных Шаров' Медаль 'За честную игру' Знак 'За острое перо и посиделки в таверне'
    • Просмотр профиля
    • Awards

Кхм. Может это связано с не очень то удачным iPhone 4S? многие сходятся, что этим телефоном Apple переходит в разряд "догоняющих" на рынке смартфонов.
Джобс расчувствовался, вот и... А, ладно. Пусть мир ему будем пухом.
Удивительно вовремя конечно он передал дела Тиму Куку.
Расчувствовался и умер от рака? Эвен, иногда лучше жевать, чем говорить.

Perfect

  • Map Editor PRO
  • Старожил
  • *
  • Карма: 125
  • Оффлайн Оффлайн
  • Сообщений: 1148
  • Слушай маму и drum&bass
  • Awards За поддержку форума - 2013 Лучший дизайн 5 конкурса карт Рука форума 2012 3 конкурс карт - лучшая карта 3 конкурс карт - приз Evengard-а за самую большую карту Медаль 'За фантазию и упорство в создании карт - 2011' Медаль 'Победитель II конкурса карт' Лучшая карта
    • Просмотр профиля
    • nÖrange soundcloud
    • Awards

Жуй-жуй, глотай-глотай :biggrin:
Записан

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Кхм. Может это связано с не очень то удачным iPhone 4S? многие сходятся, что этим телефоном Apple переходит в разряд "догоняющих" на рынке смартфонов.
Джобс расчувствовался, вот и... А, ладно. Пусть мир ему будем пухом.
Удивительно вовремя конечно он передал дела Тиму Куку.
Расчувствовался и умер от рака? Эвен, иногда лучше жевать, чем говорить.

Ну это было может "последней соломинкой". Короче, я не настаиваю)
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

Lаrboss

  • Старожил
  • *****
  • Карма: 109
  • Оффлайн Оффлайн
  • Сообщений: 910
  • Абстрагирую
  • Awards Знак 'Властелин Сил Природы' За редактор шрифтов - 2013 Медаль 'За программу Nox Server Notificator' За программу Nox Binder Знак 'За тягу к тайнам Nox'
    • Просмотр профиля
    • Awards

если вырезать все, что касается 5рублей и 1 рубля, программа будет работать?
Да, конечно. Если уж очень надо будет могу и рекурсией написать.
Записан
Отец читеров

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Ларбосс, ты про деление с остатком чтоль тогда не знал?) Странный код)
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении

Lаrboss

  • Старожил
  • *****
  • Карма: 109
  • Оффлайн Оффлайн
  • Сообщений: 910
  • Абстрагирую
  • Awards Знак 'Властелин Сил Природы' За редактор шрифтов - 2013 Медаль 'За программу Nox Server Notificator' За программу Nox Binder Знак 'За тягу к тайнам Nox'
    • Просмотр профиля
    • Awards

Я точно не помню уже, говорю же код "оригинальный". Однако, писал разным людям. Пару основных условий было: беспалевность и соответствие кода тому студенту, который типо этот код написал =)
Хотя я всегда отличался оригинальными решениями на программировании, и иногда на математике =)
Записан
Отец читеров

Lаrboss

  • Старожил
  • *****
  • Карма: 109
  • Оффлайн Оффлайн
  • Сообщений: 910
  • Абстрагирую
  • Awards Знак 'Властелин Сил Природы' За редактор шрифтов - 2013 Медаль 'За программу Nox Server Notificator' За программу Nox Binder Знак 'За тягу к тайнам Nox'
    • Просмотр профиля
    • Awards

Да ты ещё и в жизни читор!!!! ???
Ага, бесконечное хп уже сделал, сейчас думаю как сделать бесконечные деньги :D
Записан
Отец читеров

Squall

  • Глобальный модератор
  • Старожил
  • **
  • Карма: 132
  • Оффлайн Оффлайн
  • Сообщений: 1170
  • I will always be here.
  • Awards Медаль 'За написание статьи о Воине'
    • Просмотр профиля
    • Awards

За бесконечные деньги может последовать уголовная ответственность ;)
Записан
Spoiler (click to show/hide)

Evengard

  • SysAdmin
  • Администратор
  • Старожил
  • ***
  • Карма: 186
  • Оффлайн Оффлайн
  • Сообщений: 2728
  • Director
  • Awards Столп форума 2012 Активным участникам сходок - 2013 За сервер Орден 'За заслуги перед форумом I степени'
    • Просмотр профиля
    • Awards

Ну эт зависит уже от админов реала, насколько хорошо они следят за серваком "Земля")
Записан
Не упоминай администраторов всуе...
С уважением, TriOptimum Corporation

PS: Покаяние - Признание своей вины в чем-либо, обычно с просьбой о прощении
Расширенный поиск  
 

Страница сгенерирована за 0.163 секунд. Запросов: 23.