| Категории раздела |
|
Мои статьи
[0]
|
|
Basic-256
[7]
Программирование в среде Basic-256. Школьный Линукс
|
|
Gambas
[3]
Программирование в объектно-ориентированной среде
|
|
| Сервис проверки |
 |
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Перевод в двоичную систему
|
cls
input a
dim z(10)
z={0,0,0,0,0,0,0,0,0,0}
n=0
while a>0
z[n]=a-floor(a/2)*2
print z[n]
a=floor(a/2)
n=n+1
end while
x=0
for n=0 to 9
x=x+z[n]*10^n
next n
print x
|
| Категория: Basic-256 | Добавил: klop (28.05.2012)
|
| Просмотров: 1145
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
|
Главная