Приветствую Вас Гость | RSS
Понедельник
25.10.2021, 06:35
Прорвемся!
Главная Каталог статей Регистрация Вход
Меню сайта

Категории раздела
Мои статьи [0]
Basic-256 [7]
Программирование в среде Basic-256. Школьный Линукс
Gambas [3]
Программирование в объектно-ориентированной среде

Сервис проверки

Сайт за 10 минут
WoWeb.ru - портал для веб-мастера
Топ сайтов Юкоз

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

My-Shop Учебники

Реклама

Партнер
Хочешь заработать в Интернете? Жми сюда!

Форма входа


Что нового?

Главная » Статьи » Basic-256

Перевод в двоичную систему


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)
Просмотров: 994 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск

Сегодня
clock for blog free часы для сайтов

Друзья сайта
  • Уроки информатики и ИКТ
  • Школьный сайт
  • Сайт школьного округа
  • Сайт РМО Кытмановского района
  • Комитет администрации Кытмановского района по образованию
  • Официальный сайт Кытмановского района
  • Клуб УГА
  • Современный учительский портал
  • Центр методической поддержки внедрения ПСПО в Алтайском крае
  • Стихи и песни моего сына
  • Группа IdeA в контакте

  • Погода в доме

    Внимание!

    Сайт РМО

    Удаленный доступ

    Copyright MyCorp © 2021
    Сайт создан в системе uCoz