Переведите число из десятичной системы счисления в двоичную

@Kizer · Регистрация: 20.11.2009

Студворк — интернет-сервис помощи студентам

Переведите число из десятичной системы счисления в двоичную.

Добавлено через 18 минут
и наоборот...

@кот Бегемот · 08.02.2010, 08:24

Kizer , что это тебя в Бейсик потянуло, ты же вроде в паскале всё время был?

@Kizer · 08.02.2010, 11:17 **[ТС]**

alexevt, это не меня ) Знакомый попросил помочь, я на паскале исполнил, но оказывается есть еще ВУЗы в которых людей на qbasic программить заставляют. Я его в школе немножко учил... но с этим заданием как-то не задалось... интерпритатор

Зато, звуки, блин, можно воспроизводить... Щас, как дебил, сижу книжки по бейсику читаю... Прямоугольники зеленые рисую..

@кот Бегемот · 08.02.2010, 11:33

Никакой разницы между решением этой задачи в паскале и в бейсике нет (если, конечно, не заморачиваться процедурами и функциями), а так - разница только в том, что переменные не объявляются, вместо := пишем везде просто =, вместо div пишем \
ну ещё ввод input a, вывод print b
если есть код на паскале, выложи, чтобы не составлять заново

@Kizer · 08.02.2010, 11:36 **[ТС]**

Вот я тут кое-что наклепал для перевода из двоичной в десятичную... почему-то возвращает всегда "0", я начинаю тихо материться:

QBasic/QuickBASIC
INPUT x
a$ = STRING$(x, 100)
k = LEN(a$)
FOR i = 1 TO k STEP 1
n = VAL(MID$(a$, i, 1))
d = d + n * 2 ^ (i - 1)
NEXT i
PRINT d
END

@кот Бегемот · 08.02.2010, 11:46

Немного попозже напишу код, сейчас работа срочная есть

@Kizer · 08.02.2010, 11:54 **[ТС]**

alexevt, да-да, можешь не торопиться, спасибо тебе. Вот, я забыл, на Паскале- то скинуть:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program linch;
var
s:string;
d,k: real;
i,code:integer;
 
begin
read(s);
d:=0;
for i:=1 to length(s) do 
begin
val(s[i],k,code);
d:=d+ k*exp((i-1)*ln(2));
end;
writeln(d);
end.

@кот Бегемот · 08.02.2010, 12:05

вот для ввода числом:

PureBasic
1
2
3
4
5
6
7
INPUT "vvedite dvoichnoe chislo ", a
DO WHILE a > 0
b = b + (a MOD 10) * 2 ^ t
a = a \ 10
t = t + 1
LOOP
PRINT b

а вот для ввода строкой:

PureBasic
1
2
3
4
5
6
INPUT "vvedite dvoichnoe chislo ", a$
FOR i = LEN(a$) TO 1 STEP -1
b = b + VAL(MID$(a$, i, 1)) * 2 ^ r
r = r + 1
NEXT
PRINT b

тьфу, блин, я обратную задачу делал, сейчас исправлю

вот перевод из десятичной в двоичную

PureBasic
1
2
3
4
5
6
7
8
INPUT "vvedite desytichnoe chislo ", a
DO WHILE a > 0
r = a MOD 2
a = a \ 2
b = b + r
IF a <> 0 THEN b = b * 10
LOOP
PRINT b

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326

	Переведите число из десятичной системы счисления в двоичную 08.02.2010, 00:38. Показов 2832. Ответов 7 Метки нет (Все метки) Переведите число из десятичной системы счисления в двоичную. Добавлено через 18 минут и наоборот... 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	08.02.2010, 08:24
	Kizer , что это тебя в Бейсик потянуло, ты же вроде в паскале всё время был? 0

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	08.02.2010, 11:17 [ТС]
	alexevt, это не меня ) Знакомый попросил помочь, я на паскале исполнил, но оказывается есть еще ВУЗы в которых людей на qbasic программить заставляют. Я его в школе немножко учил... но с этим заданием как-то не задалось... интерпритатор Зато, звуки, блин, можно воспроизводить... Щас, как дебил, сижу книжки по бейсику читаю... Прямоугольники зеленые рисую.. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	08.02.2010, 11:33
	Никакой разницы между решением этой задачи в паскале и в бейсике нет (если, конечно, не заморачиваться процедурами и функциями), а так - разница только в том, что переменные не объявляются, вместо := пишем везде просто =, вместо div пишем \ ну ещё ввод input a, вывод print b если есть код на паскале, выложи, чтобы не составлять заново 1

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	08.02.2010, 11:36 [ТС]
	Вот я тут кое-что наклепал для перевода из двоичной в десятичную... почему-то возвращает всегда "0", я начинаю тихо материться: QBasic/QuickBASIC 10 INPUT x 11 a$ = STRING$(x, 100) 15 k = LEN(a$) 20 FOR i = 1 TO k STEP 1 22 n = VAL(MID$(a$, i, 1)) 30 d = d + n * 2 ^ (i - 1) 35 NEXT i 40 PRINT d 50 END 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	08.02.2010, 11:46
	Немного попозже напишу код, сейчас работа срочная есть 1