Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
igorok48
0 / 0 / 0
Регистрация: 19.10.2011
Сообщений: 9
1

Как переводить числа из двоичной системы в десятичную и из десятичной в двоичную

19.10.2011, 12:27. Просмотров 1645. Ответов 2
Метки нет (Все метки)

Прошу объяснить мне как переводить числа из двоичной системы в десятичную и из десятичной в двоичную. И как это делается в паскале?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2011, 12:27
Ответы с готовыми решениями:

Написать программу, которая будет переводить из десятичной СС в двоичную
Написать программу, которая будет переводить из десятичной СС в двоичную. решить через...

Написать программу перевода целого числа из десятичной системы в любую другую от двоичной до системы с основанием 35
Написать программу перевода целого числа из десятичной системы в любую другую от двоичной до...

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

Перевод из десятичной системы в двоичную и обратно из двоичной в десятичную
uses crt; var m:arrayof integer; n:longint; i,k:integer; begin clrscr; write('-> '); ...

Создать програму, которая будет переводить десятичную дробь в двоичную систему счисления!
Сосдать програму которая будет переводить десятичную дробь в двоичную систему счисления!

2
log(n)
107 / 107 / 72
Регистрация: 13.10.2011
Сообщений: 227
19.10.2011, 12:43 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1) bin to dec
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
Uses crt;
 var s:string;
 
 
Function Stepen(x,y:integer):integer;
 begin if y>0 then stepen:=stepen(x,y-1)*x
 else stepen:=1;
 end;
 
Function Transl(A : String) : Integer;
 Var L : Byte;
 Begin
 If A = ''
 Then Transl := 0
 Else Begin
 L := length(A);
 Case A[1] Of
 '0' : Transl := Transl(Copy(A, 2, L - 1));
 '1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
 End
 End
 End;
 
BEGIN
 
clrscr;
 write('Введите двоичное число N= ');
 readln(s);
 writeln('Десятичное число N= ', Transl(S));
 readln;
 
END.
2 ) dec to bin

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
uses crt;
var m:array[1..100]of integer;
n:longint;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(n);
 k := 0;
 if n=0 then
 begin
  k:=1;
  m[k]:=0;
 end else
 while n<>0 do
 begin
  inc(k);
  m[k] := n mod 2;
  n := n div 2;
 end;
 for i:=k downto 1 do write(m[i],' ');
 readln;
end.
Используйте поиск , 1000 раз обсуждалось

Добавлено через 3 минуты
Цитата Сообщение от igorok48 Посмотреть сообщение
Прошу объяснить мне как переводить числа из двоичной системы в десятичную и из десятичной в двоичную.
Позиционная система счисления
0
igorok48
0 / 0 / 0
Регистрация: 19.10.2011
Сообщений: 9
19.10.2011, 13:12  [ТС] 3
прошу прощения за баян.

Добавлено через 24 минуты
о да забыл. спасибо за помощь. тема закрыта
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2011, 13:12

Перевод числа из десятичной системы счисления в двоичную
Здравствуйте! Пытаюсь написать программу для перевода чисел из десятичной системы счисления в...

Перевод числа из десятичной системы счисления в двоичную
Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в...

Рекурсия: перевода числа из десятичной системы счисления в двоичную
Написать процедуру перевода числа из десятичной системы счисления в двоичную. решите пожалуйста.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru