Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 2D-программирование

2D-программирование Вопросы, касающиеся двумерного программирования

Ответ
 
Опции темы
Старый 11.11.2006, 04:53   #1
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Сообщение Задачка!!!

Задали мне задачку, знаю токо Блитз3Д(плохо)!!!! Помогите плизз розвязать!!!

Было у парня "А" денег
Пошёл он попить соку по "В" денег(Стратил всё "А"денег!!!)
Здал пустые бутылки по "С" денег
И опять за соком!!!

Я помойму формулу сделал, но как привязать цикл???
Неоткажусь, если кто поможет с формулой???!!!
(Offline)
 
Ответить с цитированием
Старый 11.11.2006, 05:19   #2
moka
.
 
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений
(для 6,863 пользователей)
Re: Задачка!!!

Ксли я правельно понял то что ты просил, то вот, надеюсь прально =)

 
A#=Input("Input Cash:")
B#=Input("Input Beer Price:")
C#=Input("Input Bootle Price:")
 
Repeat
Botles#=Int(A/B)
SellBotles#=Botles*C
CashLeft#=(A-(Botles*B))+C
 
Print "CashLeft After First Cicle: "+CashLeft
WaitKey()
 
Until KeyHit(1)
End
(Offline)
 
Ответить с цитированием
Старый 11.11.2006, 05:55   #3
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Re: Задачка!!!

Спасибо! Но может я неправильно обяснил, мне нужно обчислить всьо так, чтоб при введении любих чисел(1,2,3,4...), вибивалось количество випитых им бутылок соку!!! Чтоб после окончания первого цикла сбивалась сума из сданых бутылок и здачи, какая отвечяла значением "А" в следующем цыкле! Ну теперь надеюсь понятно обьяснил!!! Если б всьо было так просто, то я и сам б сделал!!! ГГ!!!
(Offline)
 
Ответить с цитированием
Старый 11.11.2006, 06:07   #4
moka
.
 
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений
(для 6,863 пользователей)
Re: Задачка!!!

Мда, похоже я мало сплю, сорри что полез, но всё-равно не понимаю объяснения, но эт незначит что ты "не так" объяснил, эт просто я сёдня не в состоянии =) Сорри...
(Offline)
 
Ответить с цитированием
Старый 11.11.2006, 16:45   #5
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: Задачка!!!

a#=Input("a:")
b#=Input("b:")
c#=Input("c:")
s%=0
While a>=b
g%=Floor(a/b):a=c*g:s=s+g
Wend
Print "Выпито:"+s
(Offline)
 
Ответить с цитированием
Старый 13.11.2006, 02:08   #6
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Re: Задачка!!!

Спасиб, но у меня примерно такойже код, токо функция Floor стоит после фрази "????????" !!! И чето невиходит, ти ето тестил??? Здачя в киоске важна!! Но с ней я справлюсь!!! Вот мой код, но он неисправен:

Graphics3D 640,480,32,1

Global Drink#= 0
Global J#= 0

fntCom1=LoadFont("Comic Sans MS",25,False,False,False)
SetFont fntCom1
Print "1grn. = 1,00"

fntCom=LoadFont("Comic Sans MS",20,False,False,False)
SetFont fntCom

A#=Input$("How mach moneys have a boy???")
B#=Input$("How much moneys need a boy to buy 1 juise???")
C#=Input$("How much price was empty buttle???")

If A# < B# Print "Hi cant to buy a juise!!!"
If C# >= B# Then Print "When hi drink oll his juise, hi will die!!!"

For r=0 To (J# <= (A# - B#))
D# = A# / B#
I# = A# - (D# * B#)
F# = D# * C#
A# = I# + F#
Drink# = Drink# + D#
Next

Print "Buttles wich he drink " + Floor(Drink#)
WaitKey
(Offline)
 
Ответить с цитированием
Старый 13.11.2006, 02:20   #7
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: Задачка!!!

кол-во бутылок не может быть дробным.
код я тестил. он работал.
упс. похоже он работал не правильно. Остаток я не учитывал.
(Offline)
 
Ответить с цитированием
Старый 13.11.2006, 14:28   #8
untonee
Оператор ЭВМ
 
Регистрация: 11.10.2006
Сообщений: 35
Написано 0 полезных сообщений
(для 0 пользователей)
Re: Задачка!!!

Сообщение от Halk-DS
A#=Input$("How mach moneys have a boy???")
B#=Input$("How much moneys need a boy to buy 1 juise???")
C#=Input$("How much price was empty buttle???")

If A# < B# Print "Hi cant to buy a juise!!!"
If C# >= B# Then Print "When hi drink oll his juise, hi will die!!!"

Print "Buttles wich he drink " + Floor(Drink#)
Украинцкий-англицкий!

Так что узнать надо?
(Offline)
 
Ответить с цитированием
Старый 14.11.2006, 16:31   #9
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Re: Задачка!!!

Сообщение от untonee
Украинцкий-англицкий!
Че ето вдруг??? Непонял?

Найти надо скоко бутылок(сока) он выпил пока у него не кончились деньги!!! Тоесть! я привиду пример с цыфрами!!!

Было у парня 20р. а пить хотел он, ужас!!!
Вот пошёл он в магазин за соком, сок стоит 3р.(дешевенький ГГГ!)!!!
Хватило у него на 6 бутылок (Запомните, здачя 2р.)!!!
Купил он их и выпил!!! (1.5л ГГ! )!!!
Пустые бутылки(6 шт.) здал по 0.75р. за каждую!!!
Получилось у него 4.5р.! Но у нас здачя с прошлого раза(2р.)!
Тоесть в общем у него осталось не 4.5р. а 6.5р.
Он опять пошёл в магазин и купил 2 бутилки сока!!!(Здачя 0.5р.)
Выпил, сдал, и получил 1.5р. плюс здачя 0.5р. В общем 2р.
2р. на сок не хватит!!!

Так теперь коече уточню!!!
То что у нас осталось в коце-неважно!
То, скоко он раз ходил за соком, тоже не важно(важно как указать ето в формуле )
Вожно то скоко он выпил бутылок сока!!! (в примере их 8 шт.)

Хууу!!! Ну теперь надеюсь понятно обьяснил ???
(Offline)
 
Ответить с цитированием
Старый 14.11.2006, 20:04   #10
jimon
 
Сообщений: n/a
Re: Задачка!!!

Halk-DS
по алгоритму все правильно
но вот уровень английского тебе надо бы повысить

к примеру вот так (тут возможно тоже есть ошибки )
A#=Input$("How much money have a boy?")
B#=Input$("How much cost juise?")
C#=Input$("How much cost empty bottle of juice?")

If A# < B# Print "He cant buy a juise!"
If C# >= B# Then Print "empty bottle of juice cost more then full bottle of juice... hmm ... "
 
Ответить с цитированием
Старый 15.11.2006, 01:16   #11
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: Задачка!!!

a#=Input("a:")
b#=Input("b:")
c#=Input("c:")
s%=0
While a>=b
g%=Floor(a/b)
os#=a-(g*b)
a=c*g+os
s=s+g
Wend
Print "Выпито:"+s
(Offline)
 
Ответить с цитированием
Старый 15.11.2006, 08:57   #12
jimon
 
Сообщений: n/a
Re: Задачка!!!

HolyDel
ето типа кто меньше напишет слов чтоли ?
 
Ответить с цитированием
Старый 17.11.2006, 02:43   #13
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Re: Задачка!!!

2Джимон: Ето типа: "кто мне поможет сделать задачю?"

Спасибо всем, но мой уровень английского-проблема другая! Недавно дотугодумил как исправить баг, заключён в повторении цыкла! Тоесть я пробовал привязать както ето к функциям For .... To..... NEXT !!!!!!!
Благодаря сообщениям ХолиДела додумался использовать Repeat Until
Всем спасибо! Задачя розвязана!!! И хорошо работает!
(Offline)
 
Ответить с цитированием
Старый 30.11.2006, 14:21   #14
Halk-DS
Разработчик
 
Аватар для Halk-DS
 
Регистрация: 09.08.2006
Адрес: Украина
Сообщений: 431
Написано 65 полезных сообщений
(для 53 пользователей)
Сообщение Re: Задачка!!!

! У меня ешо вопрос!!! Можна ли сделать систему кодировки?? Например! есть у нас число 9562814547697752438!!! И из него вытянуть все 4 и 7, чтоб у нас вышло число 447774!!! Или наведу пример проще! 121 -витянуть все 1 и 3 получяется 11 !!! Можна токое сделать?
(Offline)
 
Ответить с цитированием
Старый 30.11.2006, 15:30   #15
Diplomat
Дэвелопер
 
Регистрация: 07.09.2005
Сообщений: 1,519
Написано 66 полезных сообщений
(для 164 пользователей)
Re: Задачка!!!

С увереностью заявляю: не только можно, но и очень просто.
И помогут тебе в этом цикл, оператор сравнения и операторы Str, Len и Mid.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачка... Atomikc Visual Basic 10 09.11.2009 19:45
Задача по ТВ impersonalis Математика 7 30.12.2008 22:12
2 задачки mudriy Загадки 14 26.11.2007 11:55
Задачка Magus Болтовня 19 16.05.2007 20:43
Задача SubZer0 Загадки 8 30.07.2006 16:33


Часовой пояс GMT +4, время: 21:56.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com