Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
arti_dil
0 / 0 / 0
Регистрация: 14.01.2015
Сообщений: 17
#1

Определить функцию bin(x), переводящую число х из десятичной системы счисления в двоичную

14.01.2015, 19:27. Просмотров 1298. Ответов 2
Метки нет (Все метки)

1) Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х из десятичной системы счисления в двоичную. Найти bin(a + b), bin(ab + c).

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

Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х из десятичной системы счисления
Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х...

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

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

Написать программу, переводящую любое исходное десятичное число(тип longint) в шестнадцатеричную, восьмеричную и двоичную системы счисления
Двоичное число. Во входном файле Input.txt записаны одиннадцатизначные целые...

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

2
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,535
14.01.2015, 19:55 #2
Лучший ответ Сообщение было отмечено arti_dil как решение

Решение

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;
const cf:array [0..1] of char= ('0','1');//маcсив цифр в сс 2
function bin(x:integer):string;
var res:string;//строка=число в сс2
    d:0..1;//цифры 0 и 1 в десятичной системе
begin
res:='';
while x<>0 do //пока введенное число не 0
 begin
  d:=x mod 2;//берем остаток от деления на 2(0 или 1)
  res:=cf[d]+res;//добавляем к итоговой строке в начало цифру из массива 0 или 1
  x:=x div 2;//делим число на 2
 end;
bin:=res
end;
var a,b,c:integer;
begin
clrscr;
writeln('Введите натуральные числа a,b,c');
readln(a,b,c);
writeln(a,'+',b,' в СС 2=',bin(a+b));
writeln(a,'*',b,'+',c,' в СС 2=',bin(a*b+c));
readln
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3762 / 2459 / 2036
Регистрация: 22.11.2013
Сообщений: 6,831
16.01.2015, 12:17 #3
Puporev,
кстати, в TP для инициализации массива символов (array of char) допустима упрощённая запись -- строковый литерал:
Pascal
1
const cf:array [0..1] of char='01';
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2015, 12:17

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

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

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


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

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

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