Перевод вещественного десятичного числа в двоичное

@stydent1991 · Регистрация: 13.06.2010

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

Помогите пожалуйста. Составить программу перевода вещественного десятичного числа в двоичное

@condor-bird · 24.11.2012, 15:10

Может быть так:

Delphi

var a,b,c,s:integer;
m:array [1..99] of integer;
begin
Writeln('Введите десятичное число:');
Readln(a);
b:=0;
c:=0;
repeat
inc(c);//сколько раз делим
inc(b);//текущий элемент
s:=a mod 2;//остаток
a:=a div 2;//делим десятичное число
m[b]:=s;//записываем в массив остаток (элемент двоичного числа - 0 или 1)
until a=0;//делим, пока не останется 0
writeln('Двоичное число:');
for b:=c downto 1 do //выводим наше двоичное число "с конца"
Write(m[b],' ');
Readln;

@stydent1991 · 24.11.2012, 15:29 **[ТС]**

а можете как нибудь скинуть всю программу вместе с формами?

@condor-bird · 24.11.2012, 15:32

Я только что выложил код в консольной версии. Сейчас переделаю под форму. Подождите.

@condor-bird · 24.11.2012, 16:22

Если я ничего не напутал, то наверное работает.

@stydent1991 · 24.11.2012, 16:27 **[ТС]**

аха.спасибо большое.

@condor-bird · 24.11.2012, 16:28

Сообщение от stydent1991

аха.спасибо большое.

Вы хоть проверили, правильно или нет. А то вдруг чего не так. Все люди ошибаются.

@stydent1991 · 27.11.2012, 19:04 **[ТС]**

добрый вечер. програмка не правильно переводит числа( да и мне нужно еще чтобы вещественное число переводило с запятой и отрицательное число тоже. спасибо огромное.

@stydent1991 · 29.11.2012, 14:36 **[ТС]**

сможете переделать?

Добавлено через 5 минут
у меня есть програмка с виндовс формами, только она не работает сможете помочь?
а так же можете в ней переелать под это задание
дана фраза. определить сколько в ней однобуквенных слов
как сюда архив добавить?

@droider · 29.11.2012, 16:39

как сюда архив добавить?

Вариант 1. Нажмите кнопку "Ответить" и внизу окна сообщения нажмите кнопку "Управление вложениями". Откроется отдельное окно выбираете архив по "Обзор...", а затем "Загрузить".
Вариант 2. Перейдите в расширенный режим сообщений и на панели форматирования в окне сообщения нажмите значок скрепки (рядом со смайликами).....

@stydent1991 · 30.11.2012, 16:38 **[ТС]**

Сообщение от condor-bird

Вы хоть проверили, правильно или нет. А то вдруг чего не так. Все люди ошибаются.

не до конца работает программа, можете помочь еще?

@condor-bird · 30.11.2012, 16:53

Да, конечно.

Добавлено через 4 минуты
Если смогу, то да.

@stydent1991 · 01.12.2012, 16:35 **[ТС]**

добрый вечер. получается?

@stydent1991 · 03.12.2012, 21:05 **[ТС]**

dobri denb. poly4ulosb?

Добавлено через 8 часов 29 минут
что нибудь вышло?

@stydent1991 · 07.12.2012, 16:36 **[ТС]**

добрый вечер. у вас получилось переделать?

@condor-bird · 07.12.2012, 16:40

Сообщение от stydent1991

добрый вечер. у вас получилось переделать?

Пардон, пробовал, но что-то не выходит. В Delphi я недавно.

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
		1
	Перевод вещественного десятичного числа в двоичное 24.11.2012, 12:57. Показов 3654. Ответов 15 Метки нет (Все метки) Помогите пожалуйста. Составить программу перевода вещественного десятичного числа в двоичное 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	24.11.2012, 15:29 [ТС]	3
	а можете как нибудь скинуть всю программу вместе с формами? 0

@condor-bird 10 / 8 / 3 Регистрация: 22.11.2012 Сообщений: 54
	24.11.2012, 15:32	4
	Я только что выложил код в консольной версии. Сейчас переделаю под форму. Подождите. 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	24.11.2012, 16:27 [ТС]	6
	аха.спасибо большое. 0

@condor-bird 10 / 8 / 3 Регистрация: 22.11.2012 Сообщений: 54
	24.11.2012, 16:28	7
	Сообщение от stydent1991 аха.спасибо большое. Вы хоть проверили, правильно или нет. А то вдруг чего не так. Все люди ошибаются. 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	27.11.2012, 19:04 [ТС]	8
	добрый вечер. програмка не правильно переводит числа( да и мне нужно еще чтобы вещественное число переводило с запятой и отрицательное число тоже. спасибо огромное. 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	29.11.2012, 14:36 [ТС]	9
	сможете переделать? Добавлено через 5 минут у меня есть програмка с виндовс формами, только она не работает сможете помочь? а так же можете в ней переелать под это задание дана фраза. определить сколько в ней однобуквенных слов как сюда архив добавить? 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	29.11.2012, 16:39	10
	как сюда архив добавить? Вариант 1. Нажмите кнопку "Ответить" и внизу окна сообщения нажмите кнопку "Управление вложениями". Откроется отдельное окно выбираете архив по "Обзор...", а затем "Загрузить". Вариант 2. Перейдите в расширенный режим сообщений и на панели форматирования в окне сообщения нажмите значок скрепки (рядом со смайликами)..... 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	30.11.2012, 16:38 [ТС]	11
	Сообщение от condor-bird Вы хоть проверили, правильно или нет. А то вдруг чего не так. Все люди ошибаются. не до конца работает программа, можете помочь еще? 0

@condor-bird 10 / 8 / 3 Регистрация: 22.11.2012 Сообщений: 54
	30.11.2012, 16:53	12
	Да, конечно. Добавлено через 4 минуты Если смогу, то да. 0

	07.12.2012, 16:40

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	01.12.2012, 16:35 [ТС]	13
	добрый вечер. получается? 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	03.12.2012, 21:05 [ТС]	14
	dobri denb. poly4ulosb? Добавлено через 8 часов 29 минут что нибудь вышло? 0

@stydent1991 1 / 1 / 0 Регистрация: 13.06.2010 Сообщений: 156
	07.12.2012, 16:36 [ТС]	15
	добрый вечер. у вас получилось переделать? 0

@condor-bird 10 / 8 / 3 Регистрация: 22.11.2012 Сообщений: 54
	07.12.2012, 16:40	16
	Сообщение от stydent1991 добрый вечер. у вас получилось переделать? Пардон, пробовал, но что-то не выходит. В Delphi я недавно. 0