![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 16.05.2015
Сообщений: 11
|
![]()
'4': d[i]:=4;
'5': d[i]:=5; '6': d[i]:=6; '7': d[i]:=7; '8': d[i]:=8; '9': d[i]:=9; 'a': d[i]:=10; 'b': d[i]:=11; 'c': d[i]:=12; 'd': d[i]:=13; 'e': d[i]:=14; 'f': d[i]:=15; end; chislo:=d[i]*(exp(ln(16)*(i-1))); end; write(s); write(' = ',chislo:10:2); end; |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 16.05.2015
Сообщений: 11
|
![]()
var i:byte;
begin k:=ord(s[0]); for i:=1 to k do begin case s[i] of '0' ![]() '1' ![]() '2' ![]() '3' ![]() '4' ![]() |
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 16.05.2015
Сообщений: 11
|
![]()
'5'
![]() '6': d[i]:=6; '7': d[i]:=7; '8': d[i]:=8; '9': d[i]:=9; 'a': d[i]:=10; 'b': d[i]:=11; 'c': d[i]:=12; 'd': d[i]:=13; 'e': d[i]:=14; 'f': d[i]:=15; end; chislo:=d[i]*(exp(ln(16)*(i-1))); end; procedure toDop(Inp:string; var Dop:integer); var n,P,err:integer; fl:boolean; Uns:string; begin Uns:=''; Dop:=0; fl:=false; if(Inp[1]='-')then begin Delete(Inp,1,1); fl:=true; end; for n:=length(Inp) downto 1 do Uns:=Uns+Inp[n]; for n:=0 to length(Uns)-1 do begin Val(Uns[n+1],P,Err); if(err<>0)then P:=9+Pos(Uns[n+1],Hex); Dop:=Dec+P*round(exp(n*ln(16))); end; if(fl)then Dop:=Dop*(-1); end; Begin writeln('Enter way to file:'); readln(Way); assign(F,Way); reset(F); Read(F,Init); writeln(' Выбирете действие: 10,2,дополнительный код(d)?'); readln(Act); Begin case Act of 10: ten( ) {Вызов процедуры перевод в десятичную систему счисления} 2: two(){Вызов процедуры перевод в двоичную систему счисления} d: toDop();{Вызов процедуры дополнительного кода} else; writeln(‘Неверное действие’); End. |
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 16.05.2015
Сообщений: 11
|
![]()
не понимала почему отправлять не хочет,оказалось он читает символы как смайл
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод чисел из одной системы в другую!!! | Abay19941308 | Общие вопросы Delphi | 3 | 15.11.2013 22:15 |
Перевод из одной системы исчисления в другую. | Svop | Помощь студентам | 7 | 20.12.2010 19:00 |
Перевод из одной системы счисления в другую на С++ | innaa639 | Помощь студентам | 1 | 12.04.2010 14:34 |
Перевод из одной системы счисления в другую | Sky_VSUH | Помощь студентам | 1 | 28.02.2008 20:18 |