Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
E'l
0 / 0 / 1
Регистрация: 15.11.2011
Сообщений: 10
1

Вычитание двоичных чисел

29.11.2011, 16:54. Просмотров 990. Ответов 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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Program lol;
uses crt;
var a,b,c,v:string;
          i:integer;
begin
readln (a,b);
c:='';
v:='0';
{"Выравнивание" строк --------------------}
while length(a)<>length(b) do
begin
if length(a)>length(b) then
b:='0'+b;
if length(a)<length(b) then
a:='0'+a;
end;
{Алгоритм сложения двоичных чисел -------------}
for i:=length(a) downto 1 do
begin
if (a[i]='0') and (b[i]='0') then
begin
c:=v+c;
v:='0';
end
else
if (a[i]='1') and (b[i]='1') then
begin
c:=v+c;
v:='1';
end
else
if (a[i]='1') or (b[i]='1') then
begin
c:=v+c;
v:='1';
end
else
if (a[i]='1') or (b[i]='1') then
begin
if v='0' then
c:='1'+c
else
c:='0'+c
end;
end;
c:=v+c;
writeln (c);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 16:54
Ответы с готовыми решениями:

Вычитание и сложение двоичных чисел
Помогите написать программу(мы) которая будте выполнять вычитание и сложение двоичных чисел.

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

Перевод двоичных чисел
Написать программу которая осуществляет перевод целых 2-ых чисел в 10 &gt; 16 &gt; 2 Заранее спасибо!

Сложение двоичных чисел
можете помочь исправить ошибки и сделать эту задачу с вычитанием сложение: program summa2;...

Перевод целых двоичных чисел
Перевод целых двоичных чисел в десятичные, затем в шестнадцатеричные, затем обратно в двоичные....

2
Иван-792
0 / 0 / 1
Регистрация: 19.11.2011
Сообщений: 50
29.11.2011, 16:58 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
for i:=length(a) downto 1 do
begin
if (a[i]='0') and (b[i]='0') then
begin
c:=v-c;
v:='0';
end
else
if (a[i]='1') and (b[i]='1') then
begin
c:=v-c;
v:='1';
end
else
if (a[i]='1') or (b[i]='1') then
begin
c:=v-c;
v:='1';
end
else
if (a[i]='1') or (b[i]='1') then
begin
if v='0' then
c:='1'-c
else
c:='0'-c;
end;
end;
c:=v-с;
writeln (c);
end.
0
E'l
0 / 0 / 1
Регистрация: 15.11.2011
Сообщений: 10
29.11.2011, 17:12  [ТС] 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
26
27
28
29
30
31
for i:=length(a) downto 1 do
 begin
 if (a[i]='0') and (b[i]='0') then
 begin
 c:=v-c;(ошибка:операция неприменима к операндам этого типа) 
 v:='0';
 end
 else
 if (a[i]='1') and (b[i]='1') then
 begin
 c:=v-c;
 v:='1';
 end
 else
 if (a[i]='1') or (b[i]='1') then
 begin
 c:=v-c;
 v:='1';
 end
 else
 if (a[i]='1') or (b[i]='1') then
 begin
 if v='0' then
 c:='1'-c
 else
 c:='0'-c;
 end;
 end;
 c:=v-с;
 writeln (c);
 end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 17:12

Генератор случайных двоичных чисел
Помогите создать генератор случайных двоичных чисел , или это не возможно ?

Сложение двух двоичных чисел - разобрать код
выделленную часть не могу понять программа производит сложение двух двоичных чисел var sr, sf,...

Перевод целых и дробных двоичных чисел в 16-ричные
Помогите пожалуйста. Надо написать программу: перевод целых и дробных 2-х чисел в 16-ю с/с -&gt; 10...


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

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

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