Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
#1

Перевод числа в девятиричную систему счисления - Pascal ABC

20.12.2013, 14:16. Просмотров 544. Ответов 3
Метки нет (Все метки)

Придумайте выражение,которое с помощью mod,div,сложения,вычитания и умножения:
Переводит число от 1 до 9^4-1 в девятиричную систему счисления
на паскале
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2013, 14:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод числа в девятиричную систему счисления (Pascal ABC):

Перевод числа в десятичную систему счисления
Дана символьная строка, представляющая собой запись натурального числа в...

Перевод числа в факториальную систему счисления
перевод числа в факториальную систему счисления

Перевод числа в двоичную систему счисления.
Дано число n перевети ево в двоичную систему???? Хелп

Перевод числа из двоичной в десятичную систему счисления
for j:=0 to length(s)-1 do begin val(s,c,code); ...

Осуществить перевод числа в систему счисления с заданным основанием q (q<17)
Задано целое число a в десятичной системе счисления. Осуществить перевод числа...

Осуществить перевод числа в систему счисления с заданным основанием q
3. Задано целое число a в десятичной системе счисления. Осуществить перевод...

3
petya_prog
4 / 4 / 5
Регистрация: 26.04.2013
Сообщений: 61
21.12.2013, 15:04 #2
а циклы можно использовать?
и вообще в каком виде нужно получить это число? просто на экран вывести?

Добавлено через 20 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
var n,m : integer;
a :array[0..3] of integer;
Begin
 readln(n); // десятичное число
 m:= n;
 a[0]:= m mod 9; m:= m div 9; // 1-ая с конца цифра девятеричного числа
 a[1]:= m mod 9; m:= m div 9; // 2-ая с конца цифра девятеричного числа
 a[2]:= m mod 9; m:= m div 9; // 3-ая с конца цифра девятеричного числа
 a[3]:= m mod 9; m:= m div 9; // 4-ая с конца цифра девятеричного числа
writeln(a[3],a[2],a[1],a[0]);
End.
1
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
25.12.2013, 10:32  [ТС] #3
Да, нужно через циклы
0
petya_prog
4 / 4 / 5
Регистрация: 26.04.2013
Сообщений: 61
25.12.2013, 12:09 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от bombom Посмотреть сообщение
Да, нужно через циклы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n,m : integer;
a :array[0..3] of integer;
i,j : integer;
Begin
 readln(n); // десятичное число
 m:= n;
 
i:= 0;
while (m>0) do
begin
 a[i]:= m mod 9; m:= m div 9; 
 i:= i+1;
end;
 
for j:= i-1 downto 0 do write(a[j]);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2013, 12:09
Привет! Вот еще темы с решениями:

Одномерные массивы.Перевод числа в шестнадцатеричную систему счисления
Дано целое число в двоичной системе счисления, т.е.последовательность цифр 0 и...

Перевод числа в десятичную систему счисления (Рекурсия -> Итерация)
Всех приветствую, помогите пожалуйста переделать программу с рекурсии на любой...

Осуществить перевод числа в систему счисления с заданным основанием q (q < 14)
Задано целое число a в десятичной системе счисления. Осуществить перевод числа...

Перевод действительных неотрицательных чисел из системы счисления M в систему счисления N, где 2<=M,N<=16
Добрый вечер. Помогите с заданием, пожалуйста. Перевод действительных...


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

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

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