|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.05.2012, 18:43 | #1 |
Новичок
Джуниор
Регистрация: 21.05.2012
Сообщений: 1
|
Не могунаписать обратную программу.
Эта программы сейчас переводит из десятичную СС в шестнадцатиричную по методу плавающей точки.
Можите помочь? program massive; const v:array [0..15] of char=('0','1','2','3','4','5','6',' 7','8','9','A','B','C','D','E','F') ; var a:single; i,q: integer; b:array [1..SizeOf(a)] of byte absolute a; begin readln(a); for i:=SizeOf(a) downto 1 do begin for q:=1 to 8 do Write(b shr (8-q) and 1); Write(' ') end; WriteLn; for i:=SizeOf(a) downto 1 do begin Write(v[b shr 4],v[b and $e]); end; WriteLn; ReadLn end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменить программу-обратную матрицу в Паскале,чтобы работала корректно | Novenkaja | Помощь студентам | 0 | 25.04.2011 20:18 |
найти обратную матрицу в Си | Monomah | Помощь студентам | 0 | 26.02.2011 12:03 |
Foreach в обратную сторону. | KobolD | Общие вопросы .NET | 5 | 13.11.2010 10:24 |
Найти обратную матрицу. C# | MaD1z | Помощь студентам | 0 | 23.12.2009 12:47 |
Как найти обратную матрицу? | Энжи | Помощь студентам | 0 | 07.12.2009 22:38 |