forum.boolean.name - Задачка!!!

Страница 1 из 5

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Задачка!!! (http://forum.boolean.name/showthread.php?t=1885)

Halk-DS

11.11.2006 04:53

Задачка!!!

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

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

Я помойму формулу сделал, но как привязать цикл???
Неоткажусь, если кто поможет с формулой???!!!;)

moka	11.11.2006 05:19

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

Halk-DS

11.11.2006 05:55

Re: Задачка!!!

Спасибо! Но может я неправильно обяснил, мне нужно обчислить всьо так, чтоб при введении любих чисел(1,2,3,4...), вибивалось количество випитых им бутылок соку!!! Чтоб после окончания первого цикла сбивалась сума из сданых бутылок и здачи, какая отвечяла значением "А" в следующем цыкле! Ну теперь надеюсь понятно обьяснил!!! Если б всьо было так просто, то я и сам б сделал!!! ГГ!!!

moka	11.11.2006 06:07

Re: Задачка!!!

Мда, похоже я мало сплю, сорри что полез, но всё-равно не понимаю объяснения, но эт незначит что ты "не так" объяснил, эт просто я сёдня не в состоянии =) Сорри...

HolyDel

11.11.2006 16:45

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

Halk-DS

13.11.2006 02:08

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

HolyDel

13.11.2006 02:20

Re: Задачка!!!

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

untonee

13.11.2006 14:28

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#)

Украинцкий-англицкий! :lol:

Так что узнать надо?

Halk-DS

14.11.2006 16:31

Re: Задачка!!!

Цитата:

Сообщение от untonee

Украинцкий-англицкий! :lol:

Че ето вдруг??? Непонял?:dontknow:

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

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

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

Хууу!!! Ну теперь надеюсь понятно обьяснил:( ???

jimon

14.11.2006 20:04

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 ... :)"

HolyDel

15.11.2006 01:16

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

jimon

15.11.2006 08:57

Re: Задачка!!!

HolyDel
ето типа кто меньше напишет слов чтоли ? :lol:

Halk-DS

17.11.2006 02:43

Re: Задачка!!!

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

Спасибо всем, но мой уровень английского-проблема другая! Недавно дотугодумил как исправить баг, заключён в повторении цыкла! Тоесть я пробовал привязать както ето к функциям For .... To..... NEXT !!!!!!!
Благодаря сообщениям ХолиДела додумался использовать Repeat Until
Всем спасибо! Задачя розвязана!!! И хорошо работает!

Halk-DS

30.11.2006 14:21

Re: Задачка!!!

! У меня ешо вопрос!!! Можна ли сделать систему кодировки?? Например! есть у нас число 9562814547697752438!!! И из него вытянуть все 4 и 7, чтоб у нас вышло число 447774!!! Или наведу пример проще! 121 -витянуть все 1 и 3 получяется 11 !!! Можна токое сделать?

Diplomat

30.11.2006 15:30

Re: Задачка!!!

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

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

Страница 1 из 5

Показывать 64 сообщений этой темы на одной странице