Преобразовать строку двоичной записи в десятичную

@KiberMurka · Регистрация: 18.10.2012

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

Задана строка двоичных символов (длинное двоичное число в символьной форме).Создать программу преобразования этой строки в строку десятичных символов (Длинное десятичное число в символьной форме.)
Для всех вариантов исходные данные извлекаются из входного текстового файла. Результаты записываются выходном текстовом файле.

Добавлено через 1 час 46 минут
я предполагаю нужно использовать тип данных string?

@napasik · 18.10.2012, 18:08

KiberMurka, правильно понимаете, для вычислений можно использовать функции преобразования типов, такие как:
1) StrToInt(s:String) - функция перевода данных из строкового формата в целочисленный, где s строка, содержащая символы в виде цифр.
2) IntToStr(n:Integer) - функция, взаимообратная функции StrToInt, соответсвенно, переводит переменную целочисленного типа в строковый формат.

@KiberMurka · 28.11.2012, 14:23 **[ТС]**

Получился вот такой вариант. Но проблема в том что двоичное число размером 20-25 символов StrToInt считает строку с целым значением

program algoritm;
var s,sbox:string;
i,step,dva,n,l,delo:integer;
a1,a2:text;
begin
assign (a1,'1.txt');
assign(a2,'2.txt');
reset(a1);
readln(a1,s);
l:=length(s);
for i:=1 to l do
begin
dva:=StrToInt(s[i]);
step:=l-i;
if dva>0 then
begin
for n:=1 to step do
dva:=dva*2; //1*2^step
delo:=delo+dva;
end;
end;
close(a1);
rewrite(a2);
writeln(a2,delo);
close(a2);
end.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@KiberMurka 1 / 1 / 0 Регистрация: 18.10.2012 Сообщений: 6

	Преобразовать строку двоичной записи в десятичную 18.10.2012, 17:15. Показов 2431. Ответов 2 Метки нет (Все метки) Задана строка двоичных символов (длинное двоичное число в символьной форме).Создать программу преобразования этой строки в строку десятичных символов (Длинное десятичное число в символьной форме.) Для всех вариантов исходные данные извлекаются из входного текстового файла. Результаты записываются выходном текстовом файле. Добавлено через 1 час 46 минут я предполагаю нужно использовать тип данных string? 0

@napasik 38 / 38 / 24 Регистрация: 29.09.2011 Сообщений: 99
	18.10.2012, 18:08
	KiberMurka, правильно понимаете, для вычислений можно использовать функции преобразования типов, такие как: 1) StrToInt(s:String) - функция перевода данных из строкового формата в целочисленный, где s строка, содержащая символы в виде цифр. 2) IntToStr(n:Integer) - функция, взаимообратная функции StrToInt, соответсвенно, переводит переменную целочисленного типа в строковый формат. 0

@KiberMurka 1 / 1 / 0 Регистрация: 18.10.2012 Сообщений: 6
	28.11.2012, 14:23 [ТС]
	Получился вот такой вариант. Но проблема в том что двоичное число размером 20-25 символов StrToInt считает строку с целым значением program algoritm; var s,sbox:string; i,step,dva,n,l,delo:integer; a1,a2:text; begin assign (a1,'1.txt'); assign(a2,'2.txt'); reset(a1); readln(a1,s); l:=length(s); for i:=1 to l do begin dva:=StrToInt(s[i]); step:=l-i; if dva>0 then begin for n:=1 to step do dva:=dva2; //12^step delo:=delo+dva; end; end; close(a1); rewrite(a2); writeln(a2,delo); close(a2); end. 1