![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 06.03.2009
Сообщений: 2
|
![]()
есть задание : на форму поместить 2 едита и одну кнопку (Button),
1)в Edit1 ввести число то 2 млрд до 3 млрд а кнопки запрограммировать так что бы введенное число в Edit1 перевилось в двоичную систему,1 байт этого числа проинвертировался (замена 0 на 1 ,а 1 на 0) 2)в Edit2 должно появиться число в десятичной системе но так что у него вместо 1 проинвертированного байта был бы 3 байт этого числа а вместо 3 - 1 проинвертированный байт Вот пример:2.220.220.220-->10000100.01010101.11011111.0011110 0-->10000100.01010101.11011111.1100001 1(инвертированный 1 байт) -->10000100.11000011.11011111.0101010 1(замена им на 3,а 3 на 1)-->2227429205 у меня получилось выполнить 1 часть этого задания ![]() ![]() вот код который у мене есть : procedure TForm1.Button1Click(Sender: TObject); var n1,n2:int64; begin n1:=StrToInt64(Edit1.Text); n2:=n1 xor $000000FF; Edit2.Text:=IntToStr(n2); end; |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Ну если я правильно понял из всего непонятного то:
Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 06.03.2009
Сообщений: 2
|
![]()
что то у мене она не работает у мене на выходе 60 а должно быть 2227429205 но попробую твой код модифицировать
Если кто нить ещё какие нибудь варианты решения видит то просьба написать !!!! |
![]() |
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с модемом: Узнать подключен модем к системе или нет | Никки | Общие вопросы Delphi | 0 | 24.11.2008 10:55 |
Как записать число в двоичной форме? | Stellvertreter | Общие вопросы C/C++ | 2 | 16.10.2008 22:35 |
Работа по написанию скрипта по системе Ucoz | rpg | Фриланс | 6 | 06.02.2008 20:28 |
Пожалуйста помогите отобразить файл в двоичной форме в МЕМО | opex007 | Общие вопросы Delphi | 3 | 20.09.2007 09:51 |
Деление чисел в двоичной системе счисления | Mss_Smith | Помощь студентам | 9 | 04.05.2007 17:02 |