Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 3
1

Умножение двух двоичных чисел. не используя строки

29.10.2019, 08:00. Просмотров 190. Ответов 2
Метки нет (Все метки)

Умножение двух двоичных чисел. не используя строки, только массивы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2019, 08:00
Ответы с готовыми решениями:

Умножение двух двоичных чисел
Помогите создать подпрограмму для умножения двух чисел в двоичной системе!(паскаль)

Умножение беззнаковых двоичных чисел, не используя команду умножения
Помогите написать программу! Нужно реализовать алгоритм умножения беззнаковых двоичных чисел не...

Схема умножение двух 8-ми разрядных двоичных чисел
Здравствуйте, уважаемые форумчане! Есть задача: Построить схему умножения двух 8-ми разрядных...

Произведение двух чисел не используя умножение
Дано(с клавиатуры вводят) два числа, х и y, найти их произведение не используя умножение двумя...

2
Модератор
60193 / 45331 / 31278
Регистрация: 18.05.2008
Сообщений: 108,872
29.10.2019, 09:08 2
Умножение двух двоичных чисел
Там для простого АВС, переделайте чуток.
0
3603 / 1700 / 1926
Регистрация: 10.12.2014
Сообщений: 6,653
29.10.2019, 09:10 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function int2bin(n:Integer):array of Integer;
begin
  var L:=New List<integer>;while n<>0 do begin L.Add(n and 1);n:=n shr 1;end;Result:=L.ToArray;
end;
 
function mul2bin(a,b:array of Integer):array of Integer;
begin
  SetLength(Result,a.Length+b.Length);
  for var ia:=0 to a.Length-1 do for var ib:=0 to b.Length-1 do Result[ia+ib]+=a[ia]*b[ib];
  for var i:=0 to Result.Length-2 do while Result[i]>1 do begin Result[i+1]+=1;Result[i]-=2;end;
  if Result[Result.Length-1]=0 then SetLength(Result,Result.Length-1);
end;
 
function bin2int(a:array of Integer):Integer;
begin for var i:=a.Length-1 downto 0 do Result:=Result shl 1+a[i];end;
 
begin
  var a:=int2bin(ReadInteger);var b:=int2bin(ReadInteger);
  a.Println;b.Println;var r:=mul2bin(a,b);r.Println;bin2int(r).Println;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2019, 09:10

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

Рекурсия: умножение двух чисел, используя только операцию сложения
Помогите ребята.На языке (с++) Написать функцию умножения двух чисел, используя только операцию...

Умножение двух без знаковых чисел, не используя команду mul
Приветствую, вдогонку прошлой темы &quot;Найти остаток от деления двух без знаковых чисел, не используя...

Нужно найти произведение двух чисел A и B, не используя умножение. (Цикл)
Нужно найти произведение двух чисел A и B, не используя умножение. Сделать это через цикл....

Умножение двух двоичных кода
Подскажите что я делаю не так... Сначала я перевел множимое 11001010 из обратного в прямой код -...

Вычислить рекурсивным методом умножение двух целых положительных чисел p=a*b используя следующий алгоритм
p=2*(a*b/2), если b парное p=a+a*(b-1) ,если b непарное p=0, если b=0

Строки char: умножение двух чисел
нужно было создать функцию, умножающую два числа (до 30 цифр включительно). эти числа - два char...


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

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

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