Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/22: Рейтинг темы: голосов - 22, средняя оценка - 4.95
1 / 1 / 2
Регистрация: 23.01.2010
Сообщений: 35
1

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

09.03.2010, 18:36. Показов 4404. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здраствуйте. Помогите пожалуйста составить программу перевода двоичной записи натурального числа в десятичную. При этом программу нужно составить с использованием процедуры или функции.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2010, 18:36
Ответы с готовыми решениями:

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

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

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

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

2
654 / 352 / 113
Регистрация: 11.12.2009
Сообщений: 508
09.03.2010, 19:51 2
Лучший ответ Сообщение было отмечено как решение

Решение

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;
procedure todes(n:string; var s:longint);
var
   i,j,k:integer;
   v:longint;
begin
 k:=length(n)-1;
 v:=1;
 for i:=1 to length(n) do
  begin
   if (k=0) then v:=1 else
   for j:=1 to k do
    v:=v*2;
   case n[i] of
   '1': s:=s+1*v;
   '0': s:=s+0*v;
   end;
   v:=1;
   k:=k-1;
  end;
end;
var
   s:longint;
   n:string;
begin
clrscr;
write('Ââåäèòå ÷èñëî â äâîè÷íîé ñèñòåìå ñ÷èñëåíèÿ=');
readln(n);
todes(n,s);
write('×èñëî â äåñÿòè÷íîé ',s);
readln
end.
3
139 / 139 / 97
Регистрация: 25.01.2010
Сообщений: 181
09.03.2010, 21:55 3
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;{библиотечный модуль}
var{объявление переменных}
z:array [1..100] of integer;
i,x,j:integer;
s:real;
s1: string[20];
begin
clrscr;{очистка экрана}
writeln('vvedite 1-yiu stroky');
readln(s1);{ввод данных}
x:=0;
for i:=1 to ord(s1[0]) do {возвращает порядковый номер значение S1 в множество, определенном типом S1}
begin
val(s1[i],z[i],j); {преобразуем значение S1 в целочиленное}
end;
for i:=1 to ord(s1[0]) do {цикл}
begin
if z[i]=1 then {проверка условия}
begin
s:=s+(exp((i-1)*ln(2))); {возводим число в степень}
end;
end;
writeln('chislo v desiatichnoy sisteme: ',s:5:1); {вывод данных}
readln;
end.
3
09.03.2010, 21:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2010, 21:55
Помогаю со студенческими работами здесь

Перевод из двоичной в десятичную систему счисления
Помогите найти ошибку. var bin: string; dec: longint; i,j: byte; begin

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

Перевод из двоичной системы счисления в десятичную и обратно
Есть задача Дана строка, изображающая двоичную1|десятичную2 запись целого числа. Вывести строку,...

Составить программу, меняющую i-й и j-й биты в двоичной записи данного натурального числа
Доброго времени суток! Помогите с решением задачи. Составить программу, меняющую i-й и j-й...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru