14.01.2011 / 17:02 | |
dzanis Пользователь Сейчас: Offline
Имя: Жаник Откуда: Rezekne Регистрация: 18.11.2010
| Naik, Вот такие.Единственное отличие на джаве они с музыкой и цвета другие.
Прикрепленные файлы: vis.jar (3.89 кб.) Скачано 150 раз |
14.01.2011 / 18:37 | |
XakepPRO Пользователь
| У меня теперь вопрос. В Basic'e как можно вычислить квадратный корень? Там оператора специального нет.
|
14.01.2011 / 18:42 | |
kiriman Пользователь Сейчас: Offline
Имя: Кирилл Откуда: Красноярск Регистрация: 18.01.2010
| XakepPRO, sqrt(x)+0.01
|
14.01.2011 / 20:08 | |
XakepPRO Пользователь
| в мб (справка) нет оператора sqrt, в этом вся загвоздка.
|
14.01.2011 / 20:25 | |
dzanis Пользователь Сейчас: Offline
Имя: Жаник Откуда: Rezekne Регистрация: 18.11.2010
| aNNiMON, спасибо.Где ты раньше был.Почему в загрузках нету?А я искал эти шупальца везде,но ненашол и потому сам начал писать.А ошибка в том,что на до было PI = 3.14159265 а я ставил 3.1415926535897931 .Т.е. одним словом в басике только float. Но не в порте дело.мне нужен был этот код для сравнения интерпретатора.Т.е. сравнить скорость басика с другим интерпритатором.Басик чуть быстрее,но моргает.
|
14.01.2011 / 20:28 | |
kiriman Пользователь Сейчас: Offline
Имя: Кирилл Откуда: Красноярск Регистрация: 18.01.2010
| XakepPRO, 10 step=step+0.1 20 a=step*step 30 x=chislo 40 if x=a then goto 60 50 goto 10 60 koren=a |
14.01.2011 / 20:31 | |
dzanis Пользователь Сейчас: Offline
Имя: Жаник Откуда: Rezekne Регистрация: 18.11.2010
| aNNiMON, Два раза это не обязательно вычеслять Т.е. можно так 155 R = J%*D+A(I%)
160 TX=X+SIN(R)*LEN%
170 TY=Y+COS(R)*LEN%
Хотя спорно,если инициализация переменной медленна. |