Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2011, 21:56   #1
Berserk0
Пользователь
 
Регистрация: 04.06.2011
Сообщений: 14
По умолчанию Перевод из натурального десятичного числа в двоичное представление(string)

вот наработка но что то нашалил на сонную голову вывод нужен нормальный
Код:
uses crt;
var s,x:string;
a,i,b:integer;
begin
clrscr;
write('vvedite a=');
readln(a);
i:=0;
 begin
  i:=i+1;
  b:=a mod 2;
  str(b,x);
  s:=x+s;
  a:=a div 2;
 end;
 writeln(b);
readln;
end.
Berserk0 вне форума Ответить с цитированием
Старый 16.06.2011, 22:35   #2
Berserk0
Пользователь
 
Регистрация: 04.06.2011
Сообщений: 14
По умолчанию

Аааааааааааааааппппппппп
Berserk0 вне форума Ответить с цитированием
Старый 16.06.2011, 23:26   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Код:
uses crt;
var s,x:string;
 a,b:integer;
begin
 clrscr;
 write('vvedite a=');
 readln(a);
 if a<=0 then s:='0'
 else begin
   s:='';
   while a>0 do begin
     b:=a mod 2;
     str(b,x);
     s:=x+s;
     a:=a div 2;
   end;
 end;
 writeln(s);
readln;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.06.2011, 00:52   #4
divwond
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 45
По умолчанию

Цитата:
var
sDv: string;
iMod, iDch, iDchr :integer;
begin
Write('Decatichnoe chislo: ');
Readln(iDch);
iDchr := iDch;
while iDch >= 2 do
begin
iMod := iDch mod 2;
iDch := iDch div 2;
sDv := IntToStr(iMod) + sDv;
end;
sDv := IntToStr(iDch) + sDv;
Writeln(iDchr, '(10) = ', sDv, '(2)');
Readln;
end
не мое, но работает
«Не стыдно чего-нибудь не знать, но стыдно не хотеть учиться»

начало положено..Глубины Indy
divwond вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевод числа из десятичного представления в двоичное на Си Kastet14 Помощь студентам 11 29.04.2016 16:49
Дельфи, задача перевод десятичного числа в восьмеричную zoomgel Помощь студентам 17 26.02.2011 01:15
Программа перевода числа из десятичного в двоичное. MiraJe Qt и кроссплатформенное программирование С/С++ 7 16.01.2011 14:11
Преобразование десятичного числа в двоичное. Quize Паскаль, Turbo Pascal, PascalABC.NET 4 12.04.2008 16:09
C++. Перевод десятичного числа в двоичное Panterka Помощь студентам 15 12.12.2007 15:04