IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на перевод с.с, подскажите
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской

Репутация: -  0  +


Составить программу, которая вводит натуральное число N и основание системы счисления p, а затем выводит цифры Aк представления N в p – ричной системе.
Вот нашел функцию. Можете подробно прокоментировать каждую строчку плииз?

function _10toR(x:longint;R:word):string;
var x,ost:longint;
s,st,chislo:string;
begin
repeat
ost:=x mod R;
x:=x div R;
if ost>9 then st:=chr(ord('A')-10+ost)
else str(ost,st);
s:=s+st;
until x=0;
for i:=1 to length(s) do
chislo:=chislo+s[length(s)-i+1];
_10toR:=chislo;
end;



Сообщение отредактировано: Lodar' -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Откуда ты находишь эти функции - непонятно. Вот же есть:
Общие вопросы по математике.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской

Репутация: -  0  +


 
function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;


тут я так понял максимальная система счисления 16-ричная, а в задаче в любую надо.
и еще не понятны вот эти строки

s:=digit[(n mod radix)+1]+s;
n:=n div radix;


если не трудно поясните подробно плииз
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской

Репутация: -  0  +


а какая система счисления максимальная?

Добавлено через 2 мин.

s:=digit[(n mod radix)+1]+s;
n:=n div radix;


сам разобрался) но про максимальную с.с вопрос остается открытым
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
а в задаче в любую надо
Любую, говоришь? Ну, попробуй сделать
  writeln(_10toR(50652, 37));
, когда исправишь в самой функции все ошибки, чтоб она заработала. Посмотри, что будет... А ты говоришь "любую".

Хочешь до С/С с основанием 36 - меняй digit:
digit: string[36]='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Можешь еще алфавит увеличить, добавить еще какие-нибудь символы, тогда можно будет переводить к бОльшему основанию.

Цитата
поясните подробно плииз
Сначала идешь сюда: Wiki: Перевод из десятичной в произвольную позиционную систему счисления , а потом читаешь комментарии к строкам:

{
Сначала получаем остаток от деления числа на основание С/С, а потом
дописываем к строке-результату _спереди_ символ, который в выбранной
системе счисления (radix) соответствует полученному остатку. Вот и все,
никаких преобразований число->строка, никаких условий, остаток больше
или меньше 10... Все просто. (+1) - потому, что символы в строке индексируются с 1
}
s:=digit[(n mod radix)+1]+s;
{
Ну, остаток мы записали в результат, теперь осталось обработать остальное:
получаем целую часть от деления на основание, и продолжаем по тому же алгоритму.
}
n:=n div radix;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской

Репутация: -  0  +


Спасибо большое разобрался!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 14:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name