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

@Серго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 минут
кстати, ты это задание для себя родного делаешь, из своего же интереса? или по заданию учебного заведения и твоего интереса тут не очень много?
если первое, то толк будет с того, что тебе кусками дают, а с остальным сам разбираешься
если второе, то жаль личного времени делать то, что никому не нужно в итоге бует

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .	Модель здравоохранения 13. Добавление самой системы здравоохранения. anaschu 22.05.2026 В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .

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

	Калькулятор программиста 27.05.2015, 00:16. Показов 4748. Ответов 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