Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 24.12.2010, 22:48   #1
kubachi
Новичок
Джуниор
 
Регистрация: 24.12.2010
Сообщений: 2
Восклицание Прямой обратный дополнительный код

кто нибудь поможет с программкой вводим число переводим в 2 систему счисления.... после строим прямой обратный и дополнительный коды... http://kuba4i.my1.ru/RGR.pas вот то что писал там там в procedure programma;
kubachi вне форума Ответить с цитированием
Старый 24.12.2010, 22:59   #2
kubachi
Новичок
Джуниор
 
Регистрация: 24.12.2010
Сообщений: 2
По умолчанию

Код:
procedure programma;
 var
i,pp,kod,chislo,op,po:integer; c,a,b:string;
rez :array [1..1000] of integer;
begin
clrscr;
i:=0; c:='1'; a:='1';
writeln('Введите число') ;
readln(chislo);
op:=chislo;
po:=chislo;
if chislo>0 then begin
repeat
i:=1+i;
kod:=op mod 2;
op:=op div 2;
rez[i]:=kod;
until op<2 ;
pp:=i;
write('Двоичный код :> ');
for i:=i downto 1 do begin
 b:=b+c;
 write(c,rez[i]);
 c:='';
 end;
op:=po;
  writeln;
repeat
i:=1+i;
kod:=op mod 2;
op:=op div 2;
rez[i]:=kod;
until op<2 ;
pp:=i;
write('Двоичный код :> ');
for i:=i downto 1 do begin
 write(b,rez[i]);
 b:='';
 end;
  end


       else
        begin
chislo:=-chislo;
Write('Двоичный код');
 repeat
i:=1+i;
kod:=chislo mod 2;
chislo:=chislo div 2;
rez[i]:=kod;

write(a,rez[i]);
a:='';
until chislo<2 ;
writeln;
write('Прямой код:> ');
a:='1';
write(a);
for i:=i downto 1 do begin
 write(c,rez[i]);
 c:='';
 end;   end;


readln;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 25.12.2010 в 10:49.
kubachi вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Assembler (обратный код числа сохранить в стек) Exelence Помощь студентам 6 07.11.2010 23:33
информатика-дополнительный код десятичного числа Artem1987 Помощь студентам 3 18.11.2007 14:32


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS