Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
tatarin4555
10 / 10 / 0
Регистрация: 20.11.2012
Сообщений: 163
Записей в блоге: 1
#1

5-ричное число преобразовать в двоичное число - Delphi

19.09.2013, 09:31. Просмотров 550. Ответов 2
Метки нет (Все метки)

5-ричное число, введённое пользователем программы, преобразовать в двоичное число. Результат вывести на экран.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2013, 09:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос 5-ричное число преобразовать в двоичное число (Delphi):

Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число - Delphi
Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число. В...

найти двух байтное 16-ричное число используя цифры от 0 по F - Delphi
var a:integer; begin a:=5; asm dw $9090 end; writeln (a); readln; end. найти двух байтное 16-ричное число используя цифры...

Вывести данное число по образцу: число 12.5 преобразовать к виду 12 руб. 50 коп - Delphi
доброго времени суток! срочно нужна ваша помощь. помогите, пожалуйста, закончить лабораторную работу. задания очень легкие, не составят...

Описать класс для работы со строкой, позволяющей хранить только двоичное число - Delphi
Описать класс для работы со строкой, позволяющей хранить только двоичное число и выпол-нять с ним арифметические операции. Предусмотреть...

Загадано целое число из интервала [A,B]. Написать программу, которая за минимальное число вопросов отгадает это число - Delphi
Я загадаю целое число из интервала . Напишите программу, которая за минимальное число вопросов отгадает это число. Играть будем так. Я...

В ответ на введенное число от 0 до 10 выдать сообщение четное это число или нет. То же число для любого целого числа ≤100 - Delphi
В ответ на введенное число от 0 до 10 выдать сообщение четное это число или нет. То же число для любого целого числа ≤100. Подсказка:...

2
Одиночка
3932 / 1857 / 89
Регистрация: 16.03.2012
Сообщений: 3,869
19.09.2013, 20:19 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
Var
  i : Integer;
  x : Int64;
  s : String;
begin
  If Edit1.Text='' Then Exit;
  //Преобразуем во внутреннее представление
  s:=Edit1.Text;
  x:=0;
  For i:=1 To Length(s) Do
  x:=x*5+Ord(s[i])-Ord('0');
  //Выдаём в двоичном представлении
  s:='';
  Repeat
    s:=Char((x And 1)+Ord('0'))+s;
    x:=x Shr 1;
  Until x=0;
  Edit2.Text:=s;
end;
1
tatarin4555
10 / 10 / 0
Регистрация: 20.11.2012
Сообщений: 163
Записей в блоге: 1
20.09.2013, 09:26  [ТС] #3
Одиночка, спасибо большое, выручил)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2013, 09:26
Привет! Вот еще темы с ответами:

Преобразовать число - Delphi
Имею допустим число: 1234567 Как его преобразовать в подобное: 1.234.567

Преобразовать число в строку - Delphi
Задачка такая. В Edit1 вписывается число, и его надо перевести сначало в Hex, затем прировнять это число к string. T.e число 1...

Преобразовать символ в число - Delphi
в ходе программы значению a(real) присваивается число, например 49. нужно сделать чтобы при введении в поле ввода этого символа другому...

Преобразовать число в текст - Delphi
Помогите написать программу преобразовывающую число в текст. Число это всегда деньги. Например 138 это Сто тридцать восемь рублей 00...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru