Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Вопрос-Ответ Новый топик    Ответить
 Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
serega3420
Member

Откуда:
Сообщений: 3
Дать понятное ,однозначное определение переменной pn в соответсвием с её назначением в коде и правилом перевода чисел между nСС.Помогите пожалуйста ) pn:=pn*p;
 procedure Interp(Edit: TEdit);
function ToDex(number: string; p: integer):string;
var
  Form1: TForm1;
  p1, p2: integer;
implementation
function ToDex(number: string; p: integer):string;
var
b: bool;
s, pn, i: integer;
Ch: char;
begin
s:=0;
pn:=1;
if number[1]='-' then begin
b:=true;
Delete(number,1,1);
end
else b:=false;
repeat
Ch:=number[length(number)];
case Ch of
'0','1'..'9': s:=(strToInt(number[length(number)]))*pn+s;
'A': s:=10*pn+s;
'B': s:=11*pn+s;
'C': s:=12*pn+s;
'D': s:=13*pn+s;
'E': s:=14*pn+s;
'F': s:=15*pn+s;
end;
delete(number,length(number),1);
pn:=pn*p;
until (number = '');
if b then
result := '-'+IntToStr(s)
else result := IntToStr(s)
end;

Модератор: Моно было бы и отформатировать


Сообщение было отредактировано: 13 окт 17, 19:49
13 окт 17, 18:17    [20868448]     Ответить | Цитировать Сообщить модератору
 Re: Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 51765
serega3420
Помогите пожалуйста

С чем именно помочь? В данном извращённом и малоэффективном алгоритме pn это текущий номер позиции цифры.
14 окт 17, 13:34    [20869490]     Ответить | Цитировать Сообщить модератору
 Re: Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
serega3420
Member

Откуда:
Сообщений: 3
Dimitry Sibiryakov,Здравствуйте,Дмитрий ,сморите , если это это pn номер позиции , то если начать считать то получается число 12в восьмеричной системе счисления ,после первого цикла равна 8 ,в втором 8 на 8 =64 , не сходиться с вашим определением ?
14 окт 17, 21:38    [20869922]     Ответить | Цитировать Сообщить модератору
 Re: Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 51765
Ну да. "Номер позиции" это не совсем правильно из-за слова "номер". Возможно, вместо него будет точнее сказать "коэффициент".
15 окт 17, 13:36    [20870482]     Ответить | Цитировать Сообщить модератору
 Re: Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
serega3420
Member

Откуда:
Сообщений: 3
Dimitry Sibiryakov,Порядковый номер символа в строковом отображении числа в позиционной системе счисления или накопительная переменная учитывающая множитель разряда в числе ,помогите составить правильное определение ,Пожалуйста
15 окт 17, 20:26    [20870993]     Ответить | Цитировать Сообщить модератору
 Re: Система Счисления.Дать понятное ,однозначное определение переменной pn  [new]
Siemargl
Member

Откуда: 010100
Сообщений: 6330
serega3420,

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

рн - это позиционный множитель системы счисления, которая задана в р.

для р=10: 1,10,100,1000,....
для р=2: 1, 2, 4, 8

для р=17 - уже программка не работает
15 окт 17, 21:21    [20871052]     Ответить | Цитировать Сообщить модератору
Все форумы / Вопрос-Ответ Ответить