Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 24.04.2013
Сообщений: 11
1

сделать сложения двух чисел (одно в троичной системе второе в 8-ричной) и вывести результат в 8-ричной

08.10.2013, 21:14. Просмотров 758. Ответов 1
Метки нет (Все метки)

Привет всем, сегодня столкнулся с такой вот задачей, нужно сделать сложения двух чисел (одно в троичной системе второе в 8-ричной) и вывести результат в 8-ричной. Спасибо за помощь !
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2013, 21:14
Ответы с готовыми решениями:

Вывести на экран результат сложения в троичной системе счисления.
Пользователь вводит 2 строки символов длиной 5, содержащие положительный числа в троичной системе...

Выписать алфавиты 2-ичной, 5-ричной, 8-ричной, 16-ричной систем счисления
Выписать алфавиты 2-ичной, 5-ричной, 8-ричной, 16-ричной систем счисления.

Составить программу сложения двух чисел в троичной системе счисления
Составить программу сложения двух чисел в троичной системе счисления. Добавлено через 11 часов...

Сравнение чисел в 16-ричной системе
Программа работает не правильно(например для чисел 12 и 13 или 122 и 123, ответ получается,что...

1
Модератор
7464 / 3826 / 2720
Регистрация: 17.08.2012
Сообщений: 12,231
09.10.2013, 23:12 2
Лучший ответ Сообщение было отмечено Illumination как решение

Решение

Будем считать, что числа положительные целые, вводятся и выводятся как строки.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program ot;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var trit, octal, resu: string;
    t, o, r: int64;
    ft, fo: boolean;
    i: integer;
 
begin
 
  repeat
    ft := true;
    write('trit = ');
    readln(trit);
    for i := 1 to length(trit) do if not(trit[i] in['0'..'2']) then ft := false;
    if not(ft) then writeln('Incorrect trit number')
  until ft;
  t := 0;
  for i := 1 to length(trit) do t := 3 * t + StrToInt(trit[i]);
 
  repeat
    fo := true;
    write('octal = ');
    readln(octal);
    for i := 1 to length(octal) do if not(octal[i] in['0'..'7']) then fo := false;
    if not(fo) then writeln('Incorrect octal number')
  until fo;
  o := 0;
  for i := 1 to length(octal) do o := 8 * o + StrToInt(octal[i]);
 
  r := t + o;
  resu := '';
  while r > 0 do
    begin
      resu := IntToStr(r mod 8) + resu;
      r := r div 8
    end;
  writeln('Result: ', resu, ' octal');
 
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2013, 23:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести число в 16-ричной системе счисления
Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 164 = 65 536, в виде 4...

Вывести символы ASCII в 16-ричной системе
пытаюсь вывести из таблицы ASCII числа и буквы с помощью 16-ричной записи(Hex) но увы ничего не...

Ввод чисел в textbox в 16-ричной системе
Добрый день, как организовать ввод 16 ричных чисел вместо 10 ричных ? Входной аргумент хранится в...

Найти сумму чисел в 16-ричной системе счисления
Ввести два числа в 16-ричной сс и посчитать их сумму

Ввод чисел в TextBox в 8-ричной системе счисления
При вводе чисел в textbox они вводятся в 10-тичной системе счисления, а как сделать так чтобы...

Передача на сокет сервер чисел в 16-ричной системе счисления
Добрый вечер! Проблема в том что при передаче чисел первым скриптом они принимаются как надо......


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

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

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