Задачка!!!

[impersonalis]

мат. функции ( операторы)
sqrt - корень квадратный
sgn - функция-знак: результат такой же как и от (x/|x|) при условии нулевой погрешности и равенстве нулю в нуле

[Halk-DS]

А разве не Sqr() - Корень квадратный???

[HolyDel]

sqrt команды нет, если ты только не использовал какю нибудь DLL
sqr - корень квадратный.

[impersonalis]

Сообщение от Halk-DS

А разве не Sqr() - Корень квадратный???

угу у меня уже все языки в кучу смешались

[Halk-DS]

А когда вписываешь команду Rnd(10) то програма подберает любое дробное число от 0 до 10????

И о команде Sgn!!! Тоесть ето всеравно что Х / Abs(Х) при условии что Х=0 ????
А как команда влияет на ету формулу???


Dim c#(100, 3)
Dim dc#(100, 3)

For n = 1 To 100
For nn = 1 To 3
c#(n, nn) = c#(n, nn) + dc#(n, nn)
dc#(n, nn) = dc#(n, nn) - 0.005 * Sgn(c#(n, nn))
Next
Next

Halk-DS
Sgn(0) = 0
Sgn(1) = 1
Sgn(-1) = -1

[HolyDel]

2 Jimon!
sgn(x)
x<0 sgn=-1
x>0 sgn=1
x=0 sgn=0

[Halk-DS]

Ага! Тоесть в моём премере, оно показивает противоположное значение слота n,nn в масиве c# ??? Так??

Dim c#(100, 3) // все переменые обнулены
Dim dc#(100, 3) // все переменые обнулены

For n = 1 To 100
For nn = 1 To 3
c#(n, nn) = c#(n, nn) + dc#(n, nn) //операция 0 = 0+0
dc#(n, nn) = dc#(n, nn) - 0.005 * Sgn(c#(n, nn)) //Sqn(0)=0 поетому тут 0=0-0
Next
Next

вот так вот

[HolyDel]

Jimon++
все именно так.

[Halk-DS]

Спасибо! Токо щя дошло!!!

[Halk-DS]

О! А щя я игрушку делаю!!! Теперь хочю создать заставки и вставить их в игру, хотю в формате ГИФ!!! Теперь наскоко помню надо создать несколько екранов, на одном будет сама игра, а на других будут заставки, и потом можно переключять их через команду If....Then, или Case 1 Then.......!!!!!! Ето так??? Но если так, то может кто подскажет как ето делать??? И даже если нетак, то может тоже подкажите как???

[HolyDel]

Жирно будет, заводить на заставки поверхность. А если у тебя 10 заставок и разрешение 800*600*32, ето же одна поверхность будет сжирать ни много - ни мало 1,83 метра, на 10 заставок 18,3 метра, что конечно непозволительная рокош. Лутче если нужно показать заствку ее приоставновить игру, загрузить заставку, показать заставку, выгрузить заставку, продолжить игру. Если экран с игрой может потеряться (не использовалась, и не должна была использоватся отчистка экрана), то перед показам заставки экран можно сохранить в какой нибудь буффер.

[Halk-DS]

Тоесть посредине игры, Влепить команду If .... Then .... EndIf В какой будет указано загружение заставки??? И при етом неочищять буфер с игрой, а после просмотра заставки стереть ее?

[HolyDel]

if показать заставку
//игра приостанавливается
movie=OpenMovie("gifs/z0.gif")
cls
while movieplaying(movie) and keydown(57)=0
drawmovie movie,0,0,800,600
flip
wend
endif
//игра продролжается, возможно идет загрузка новых объектов, инициализация врагов, установка параметров героя и т.д.

P.S> писалось в браузере поэтому ХЗ.