вывести строку, представляющую собой запись этого числа в двоичной системе исчисления

@baff · Регистрация: 07.10.2009

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

help!
ввести число. вывести строку, представляющую собой запись этого числа в двоичной системе исчисления.

@Inadequate · 03.11.2009, 22:34

вот функция перевода числа i в любую систему сс:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var
  i:integer;
{ôóíêöèÿ ïåðåâîäà ÷èñëà â ñòðîêó}
function ItoS(val:integer):string;
var
  r:string;
begin
  Str(val,r);
  ItoS:=r;
end;
{ôóíêöèÿ ïåðåâîäà ÷èñëà â ëþáóþ ñèñòåìó ñ÷èñëåíèÿ. ññ óêàçûâàåòñÿ âòîðûì ïàðàìåòðîì}
function ConvertToCS(val:integer;CS:integer):string;
var
  r,r1:string;
  m,i:integer;
begin
  r:='';
  if CS>16 then exit;
  repeat
    m:=val mod CS;
    val:=val div CS;
    if m<10 then
      r:=r+ItoS(m)
    else
      r:=r+chr(ord('A')+m-10);
  until
    val=0;
  r1:='';
  for i:=length(r) downto 1 do
    r1:=r1+r[i];
  ConvertToCS:=r1;
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  readln(i);
  writeln(ConvertToCS(i,2))
end.

@baff · 03.11.2009, 22:49 **[ТС]**

спасибо вам большое.

@кот Бегемот · 04.11.2009, 01:28

Для Inadequate
Может, я чего-нибудь не понял, но насчет "в любую систему", это слишком ответственно сказано. Переводит всё только в двоичную

Добавлено через 10 минут
И вообще, это программа для бедных. Мы такие на уроках в школе делали. Стоит ввести дробное число и она заткнулась.

@Inadequate · 04.11.2009, 02:08

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

Для Inadequate
Может, я чего-нибудь не понял, но насчет "в любую систему", это слишком ответственно сказано. Переводит всё только в двоичную
Добавлено через 10 минут
И вообще, это программа для бедных. Мы такие на уроках в школе делали. Стоит ввести дробное число и она заткнулась.

ты действительно "много" чего не понял... во первых чтобы прежде чем писать критику в чей то адрес, прочитай внимательно несколько раз тот пост, который ты собираешься загадить...в моем случае фраза "в любую систему" означает истину. функция переводит в 2,8,16 cc. в твоем же случае фраза ""в любую систему" слишком ответственно сказанно" выглядит ничем иным как желанием понтануться не разобравшись в материале... вот в этом месте надо было почитать прежде чем писать здесь что-то...

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

{функция перевода числа в любую систему счисления. сс указывается вторым параметром}
function ConvertToCS(val:integer;CS:integer):stri ng;

во-вторых в вопросе темы про вещественные числа ничего не сказанно... а попытки ввести в переменную типа integer дробь это по меньшей мере тупо.
В третьих "программы для богатых" пишутся в разделе https://www.cyberforum.ru/order-program/.

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@baff 0 / 0 / 0 Регистрация: 07.10.2009 Сообщений: 21

	вывести строку, представляющую собой запись этого числа в двоичной системе исчисления 03.11.2009, 22:00. Показов 2564. Ответов 4 Метки нет (Все метки) help! ввести число. вывести строку, представляющую собой запись этого числа в двоичной системе исчисления. 0

@baff 0 / 0 / 0 Регистрация: 07.10.2009 Сообщений: 21
	03.11.2009, 22:49 [ТС]
	спасибо вам большое. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	04.11.2009, 01:28
	Для Inadequate Может, я чего-нибудь не понял, но насчет "в любую систему", это слишком ответственно сказано. Переводит всё только в двоичную Добавлено через 10 минут И вообще, это программа для бедных. Мы такие на уроках в школе делали. Стоит ввести дробное число и она заткнулась. 0