Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
tatarin4555
10 / 10 / 0
Регистрация: 20.11.2012
Сообщений: 163
Записей в блоге: 1
1

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

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

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

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

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

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

Описать класс для работы со строкой, позволяющей хранить только двоичное число
Описать класс для работы со строкой, позволяющей хранить только двоичное число...

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

2
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
19.09.2013, 20:19 2
Лучший ответ Сообщение было отмечено tatarin4555 как решение

Решение

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

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

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

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


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

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

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