Katranov2016
05.01.2023 18:49

Реализовать калькулятор систем счисления в С++
Реализовать калькулятор систем счисления
На вход подается число, основание системы счисления, действие.
Если это арифметическое действие, то вводится второе число и его основание системы счисления (в общем случае отличное от основания первого числа).
Основание системы счисления результата
Среди действий реализовать основные:
1) Перевод системы счисления (#)
2) Сложение чисел в различных СС (+)
3) Вычитание чисел в различных СС (-)
4) Умножение чисел в различных СС (*)
5) Деление чисел в различных СС (/)
Дополнительные:
6-10) Функции на ваше усмотрение.
(в скобках указан пример значка действия для считывания)
Пример работы программы:

Ввод:
1101
2
+
2
3
10
Вывод:
15

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
KaKOYTAGHOM
15.04.2022 18:15
Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574
0,0(0 оценок)
Ответ:
taniaselikova
17.04.2021 17:57
Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота