Модераторы: 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   Вверх
Fedor
Дата 28.1.2005, 01:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 32
Цитата(Pakshin @ 27.1.2005, 16:53)
1) У меня нет дельфей, тем более паскаля... нуна перегружаться, а там нету нета...
2) У меня голова обсолютно не варит..
3) Сдаю последний экзамен (матан)


Лучше тогда не постить ИМХО. Мож просто идею подать или алгоритм. Но не код. Я так понимаю, код изначально когда постится, подразумевается работающим (кроме тех случаев, где просят найти ашипку).
Тем более ты модер.


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

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

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

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

3. Оффтопить

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

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

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


 




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


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

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