Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 18:43   #1
Vadic96
Новичок
Джуниор
 
Регистрация: 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.
Vadic96 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменить программу-обратную матрицу в Паскале,чтобы работала корректно 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