Модераторы: volvo877, Snowy, MetalFan

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> изменения числа 
:(
    Опции темы
banan
Дата 26.1.2005, 22:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 21.11.2004
Где: Киев

Репутация: нет
Всего: нет
Помогите сделать прогу: програма должна перевести число N в число типа 01000001101.
PM MAIL   Вверх
Pakshin A. S.
Дата 26.1.2005, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Для начала почитай инфу по системам счисления... smile
Добавлено @ 23:11
Утром, завтра могу написать... smile
PM   Вверх
~FoX~
Дата 26.1.2005, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68
banan
Цитата

А математику затем учить следует, что она ум в порядок приводит.
© Не помню кто


Перевод числа в двоичную систему осуществляется так:
1. Берем число и делем попалам, если есть остаток пишем 1, если нет - 0
2. У получившегося от деления числа отбрасываем дробную часть (если есть) и опять делим пополам.
3. Повторяем шаг 2 пока не останиться 1
А в коде сам попробуй сделать.
А вообще в разделе Алгоритмы есть пример, правда он на Сях

Это сообщение отредактировал(а) ~FoX~ - 26.1.2005, 23:17


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Cashey
Дата 26.1.2005, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
Цитата
А математику затем учить следует, что она ум в порядок приводит.
© Не помню кто

Ломоносов


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Pakshin A. S.
Дата 26.1.2005, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Код

var
a: integer;
s,s1:string;
i:integer;
begin
readln(a); {a >= 0}
s:='0';
while a <> 0 do
 begin
  i:=1;
  while (s[i] <> '0') and (i <= Length(s)) do
   begin
    s[i]:='0';
    inc(i);
   end;
  s[i]:='1';
 end;
s1:=s;
s:='';
for i:=Length(s1) downto 1 do
 s:=s + s1[i];
writeln(s);
end.

Что-то в этом духе, но на ночь что-то не идет у меня решения задач... smile
PM   Вверх
Zero
Дата 27.1.2005, 02:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
На всякий случай, ещё можеш посмотреть в FAQ, я там видал уже такой вопрос, прямо вточности, напиши в поиске вот так: "Как представить число в другой системе счисления"
PM MAIL ICQ   Вверх
~FoX~
Дата 27.1.2005, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68
Cashey
Точняк. smile


Pakshin A. S.
Круто замутил. smile


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Marriage
Дата 27.1.2005, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2
Цитата

Код
var
a: integer;
s,s1:string;
i:integer;
begin
readln(a); {a >= 0}
s:='0';
while a <> 0 do
  begin
  i:=1;
  while (s[i] <> '0') and (i <= Length(s)) do
    begin
    s[i]:='0';
    inc(i);
    end;
  s[i]:='1';
  end;
s1:=s;
s:='';
for i:=Length(s1) downto 1 do
  s:=s + s1[i];
writeln(s);
end.


То ли я слепой, то ли это бесконечный цикл ... smile



--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Soldat
Дата 27.1.2005, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 4.12.2004

Репутация: нет
Всего: нет
Как насчёт этого.
Код

function DecToBin(n:word):string;
 var
   a:word;
   s:string;
 begin
  a:=n;
  s:='';
  if a<>0 then
   begin
    while a<>1 do
     begin
      if a mod 2=0 then s:='0'+s
      else s:='1'+s;
      a:= a div 2;
     end;
    s:='1'+s;
   end
  else
   s:='0';
  DecToBin:=s;
end;

Проверял в Delphi, возможно s:='0'+s прийдётся заменить на s:=''+'0'+s.
Добавлено @ 13:32
Pakshin A. S., причём сдесь a??? Или я чегото не понимаю? smile
PM MAIL WWW   Вверх
Fedor
Дата 27.1.2005, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
Pakshin A. S. Интересно, ты хоть раз свой код проверял? Понятно, времени мало, то, се, но все-же. 90% твоих кодов не рабочие. Путаешь новичков ведь smile


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Гость_Druidik
Дата 27.1.2005, 15:54 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Лучьше так:

function DecToBin(n:word):string;
var
a:word;
s:string;
begin
a:=n;
s:='';
while a<>0 then
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:= a div 2;
end;
if s='' then s:='0';
DecToBin:=s;
end;
  Вверх
Pakshin A. S.
Дата 27.1.2005, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
1) У меня нет дельфей, тем более паскаля... нуна перегружаться, а там нету нета...
2) У меня голова обсолютно не варит..
3) Сдаю последний экзамен (матан)
4) Тем более предупредил...smile
PM   Вверх
Zero
Дата 27.1.2005, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(Pakshin @ 27.1.2005, 17:53)
У меня нет дельфей, тем более паскаля... нуна перегружаться, а там нету нета...
Pakshin A. S. ладно там делфи нет, но ты же модератор по разделу паскаль, уж он то долен же у тебя быть.
PM MAIL ICQ   Вверх
p0s0l
Дата 27.1.2005, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: нет
Всего: 112
http://forum.vingrad.ru/index.php?showtopi...463&hl=inttobin
http://forum.vingrad.ru/index.php?showtopi...433&hl=inttobin



--------------------
С уважением, г-н Посол.
PM   Вверх
Pakshin A. S.
Дата 27.1.2005, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Обязательно должен!!! А если его у меня нету... smile

Ладно... уговорили, придется требовать диск назад, чтобы установить все инструментарии... smile
PM   Вверх
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0546 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.