Калькулятор программиста

@Серго1996 · Регистрация: 06.04.2015

Студворк — интернет-сервис помощи студентам

Тема такая. Есть калькулятор в 10СС, надо, чтобы он работал также в 2СС, 8СС и 16СС. Пожалуйста, сделайте пример для двоичной. Дальше сам попробую. Заранее огромное спасибо.
П.С. алгоритм такой: пользователь вводит 1 число, выбирает арифметическое действие, потом вводит второе число, далее при нажатии кнопки равно оба числа переводятся в 10СС, выполняется ранее выбранное арифметическое действие и на выводе число переводится из 10СС в ту СС, которую выбрал пользователь изначально (в калькуляторе имеются 4 РадиоБаттона).

@Arcor · 27.05.2015, 13:51

Zombi_sib,Проверяется там i-тая позиция бита в числе. Если там 1 то прибавляем 1к строке ну или 0 если там 0 в позиции. А вообще это побитовые операции. Очень интересная тема)

Добавлено через 12 минут
Изначально у нас 1, пусть будет 8 позиций. для представлегия байта. 0000 0001. Далее мы через shl двигаем 1 влево на каждой итерации. А так как операция и and дает единицу только в случае если и в числе и в маске 1 то результат будет 1 в любых других случаях будет 0

@Серго1996 · 27.05.2015, 23:59 **[ТС]**

Arcor, Калькулятор программиста.rar
Я сделал прогу, теперь все арифметические действия в двоичной. Один косяк - перевод не пашет чет. Подлатай, пожалуйста ее.

@Серго1996 · 28.05.2015, 00:01 **[ТС]**

Verevkin, прога есть, теперь все действия в двоичной. Помоги подлатать перевод, а то он чет не пашет. Прога выше)

Verevkin · 28.05.2015, 00:15

Сообщение от Серго1996

Прога выше

Это чо, мне твой код, штоль, смотреть? Нафига?
Просто сформулируй задачу.
Например:
надо такую функцию:
вх. данные: A: тип1, Б: тип2, ..., Ц: тип100500,
вых. данные: тип 100501.

Примеры прототипов:

Delphi
1
2
3
4
5
6
7
8
9
10
11
// ------------------------ Функции преобразований -----------------------------
// Перевод строки в системе счисления 10, 16, 8, 2 в целое число  
function AdvancedStr2Int(const AValue: string): Integer; 
 
// Определение системы счисления строкового представления целого числа
function IsValueSystem(const S: string; const ASystem: Byte): Boolean;
 
// Пpеобpазование целого числа N в строковое представление целого числа
// по основанию B, дополняя слева нулями до длины A и вставляя пробелы 
// через каждые С символов (0 - не вставляет)
function AdvancedDec2Numb(const N: Integer; const A, B, C: Byte): string;

@northener · 28.05.2015, 00:36

Сообщение от Серго1996

Я сделал прогу, теперь все арифметические действия в двоичной. Один косяк - перевод не пашет чет. Подлатай, пожалуйста ее.

Отвечу за Arcor. Надеюсь он не обидится.
Ты пока еще ничего не сделал, кроме написания бредового кода

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
rocedure TFMain.Button23Click(Sender: TObject);
var text:string;
i,kof,schet,otv:integer;
begin
  if radioButton1.Checked=true then kof:=2;
  if radioButton2.Checked=true then kof:=8;
  if radioButton3.Checked=true then kof:=10;
  if radioButton4.Checked=true then kof:=16;
  schet:=0;
  text:=floattostr(result);
  for i:=length(text) downto 1 do
  begin
    if text[i]='1' then
    begin
      schet:=schet+i*kof;
    end;
  end;
  result:=schet;
  edit1.Text:=floattostr(result);
end;

А этот код не латать надо, а выбрасывать на помойку и писать новый.
P.S. И кто тебя надоумил работать в твоей задаче с вещественными числами?

@Arcor · 28.05.2015, 00:55

Сообщение от Серго1996

Я сделал прогу, теперь все арифметические действия в двоичной. Один косяк - перевод не пашет чет. Подлатай, пожалуйста ее.

я проги не исправляю даже свои, если они не работают в какой-то момент - программу начинаю писать с 0, так как исправлять программу дольше, чем писать новую. Естественно если это программа в разумных размерах. Но на форуме я этим не занимаюсь, советом, куском кода - пожалуйста, но не этим

Сообщение от northener

Отвечу за Arcor. Надеюсь он не обидится.
Ты пока еще ничего не сделал, кроме написания бредового кода

Добавлено через 5 минут
кстати, ты это задание для себя родного делаешь, из своего же интереса? или по заданию учебного заведения и твоего интереса тут не очень много?
если первое, то толк будет с того, что тебе кусками дают, а с остальным сам разбираешься
если второе, то жаль личного времени делать то, что никому не нужно в итоге бует

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@Серго1996 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 13

	Калькулятор программиста 27.05.2015, 00:16. Показов 4847. Ответов 25 Метки нет (Все метки) Тема такая. Есть калькулятор в 10СС, надо, чтобы он работал также в 2СС, 8СС и 16СС. Пожалуйста, сделайте пример для двоичной. Дальше сам попробую. Заранее огромное спасибо. П.С. алгоритм такой: пользователь вводит 1 число, выбирает арифметическое действие, потом вводит второе число, далее при нажатии кнопки равно оба числа переводятся в 10СС, выполняется ранее выбранное арифметическое действие и на выводе число переводится из 10СС в ту СС, которую выбрал пользователь изначально (в калькуляторе имеются 4 РадиоБаттона). 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	27.05.2015, 13:51
	Zombi_sib,Проверяется там i-тая позиция бита в числе. Если там 1 то прибавляем 1к строке ну или 0 если там 0 в позиции. А вообще это побитовые операции. Очень интересная тема) Добавлено через 12 минут Изначально у нас 1, пусть будет 8 позиций. для представлегия байта. 0000 0001. Далее мы через shl двигаем 1 влево на каждой итерации. А так как операция и and дает единицу только в случае если и в числе и в маске 1 то результат будет 1 в любых других случаях будет 0 0

@Серго1996 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 13
	27.05.2015, 23:59 [ТС]
	Arcor, Калькулятор программиста.rar Я сделал прогу, теперь все арифметические действия в двоичной. Один косяк - перевод не пашет чет. Подлатай, пожалуйста ее. 0

@Серго1996 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 13
	28.05.2015, 00:01 [ТС]
	Verevkin, прога есть, теперь все действия в двоичной. Помоги подлатать перевод, а то он чет не пашет. Прога выше) 0