|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.03.2010, 16:30 | #1 |
Регистрация: 16.03.2010
Сообщений: 3
|
система счисления с 2 в 16
переход с двоичной системы счисления в шестнадцатеричную
я сделал вот так program Project2; {$APPTYPE CONSOLE} uses SysUtils; var n:real; a,b,c,d:word; begin writeln('vvedite chislo v sisteme 2:'); d:=n; a:=1; b:=1; writeln('vashe chislo v 16 sisteme:'); writeln; repeat begin d:=d div 10000; a:=a*10000; if a=10000 then c:=n mod a else begin b:=b*10000; c:=n mod a div b; end; if c=0 then write('0') else if c=1 then write('1') else if c=10 then write('2') else if c=11 then write('3') else if c=100 then write('4') else if c=101 then write('5') else if c=110 then write('6') else if c=111 then write('7') else if c=1000 then write('8') else if c=1001 then write('9') else if c=1010 then write('A') else if c=1011 then write('B') else if c=1100 then write('C') else if c=1101 then write('D') else if c=1110 then write('E') else if c=1111 then write('F') else writeln('nevernoe chislo!') end; until d=0; readln; end. она то роботает но потом меня просветили в том что ето нужно делать стрингом бо она немного не так роботать будет типа n:string[32]; а так то не могу почему то додумать подкиньте идеи..пжл.. У нас принято оформлять код специальным тэгом - при помощи кнопочки "#". Только... И не значком #. И не РНР-кодом. И не значком цитаты. И не собственными "ручками". Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе... Модератор А все идеи по элементарным вопросам - у "Студентов", то бишь новичков. Вам сюда пока рановато. Последний раз редактировалось mihali4; 21.03.2010 в 02:49. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
троичная система счисления | elena_ma | Помощь студентам | 0 | 29.11.2009 20:48 |
Системы счисления | To4H9IK | Помощь студентам | 2 | 02.10.2009 17:12 |
Системы счисления | glupayastudentka | Помощь студентам | 3 | 28.06.2009 21:13 |
Паскаль! Система счисления! Перевод чисел | Darf | Помощь студентам | 9 | 20.06.2009 13:23 |
двоичная система счисления | galaid | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 17.05.2009 15:42 |