|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2011, 18:10 | #1 |
Регистрация: 25.12.2011
Сообщений: 3
|
Перевести в 16 ричную систему счисления
Помогите написать программу перевода из 8 ричной системы счисления в шестнадцатирничную
в интернете нашел программу переводящую из 10 в 16 , а мне надо чтобы из 8 ричной в 16 ричную , помогите кто может [PASCAL]program algoritm; uses crt; var i,ost,des,n,l:integer; s,s1,sbox:string; begin {Алгоритм перевода} Writeln('Введите десятичное число:'); read(des); n:=0; i:=0; s:=''; repeat inc(n); inc(i); ost:=des mod 16;//остаток des:=des div 16;//целая часть if ost>=10 then begin if ost=10 then s:=s+'A'; if ost=11 then s:=s+'B'; if ost=12 then s:=s+'C'; if ost=13 then s:=s+'D'; if ost=14 then s:=s+'E'; if ost=15 then s:=s+'F'; end else begin s:=s+IntToStr(ost); end; until des=0; {Переворачиваем содержимое} n:=1; l:=length(s); for i:=1 to (l div 2) do begin sbox:=s[n]; s[n]:=s[l+1-n]; s[l+1-n]:=sbox[1]; inc(n); end; writeln('Шестнадцатиричное число: ',s); end.[/PASCAL] |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести число в римскую систему счисления | alexandr017 | Общие вопросы C/C++ | 1 | 18.12.2011 18:38 |
Перевести вещественное число в 10 чную систему счисления из двоичной | Shamonya | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 11.11.2010 16:29 |
перевод из 10-тичной в 11-ричную систему счисления | metallldoctor | Помощь студентам | 0 | 11.03.2010 13:51 |