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
|