- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
delim:=0;
result:='';
resulttemp:='';
otv1:=trunc(rez);
ott2:=rez-otv1;
while otv1>=s1 do
begin
delim:=delim+1;
r1:=otv1 div s1;
r2:=otv1 mod s1;
otv1:=r1;
if (r2>=0) and (r2<=9) then
str(r2,resulttemp);
if r2=10 then resulttemp:='a';
if r2=11 then resulttemp:='b';
if r2=12 then resulttemp:='c';
if r2=13 then resulttemp:='d';
if r2=14 then resulttemp:='e';
if r2=15 then resulttemp:='f';
result:=result+resulttemp;
end;
if (otv1>=0) and (otv1<=9) then
str(otv1,resulttemp);
if otv1=10 then resulttemp:='a';
if otv1=11 then resulttemp:='b';
if otv1=12 then resulttemp:='c';
if otv1=13 then resulttemp:='d';
if otv1=14 then resulttemp:='e';
if otv1=15 then resulttemp:='f';
result:=result+resulttemp;
delim:=length(result);
resulttemp:=result;
for otv1:=1 to delim do
result[otv1]:=resulttemp[delim+1-otv1];
Перевод числа из десятичной системы счисления в систему счисления с основанием s1
eandr67 18.03.2014 16:36 # 0
repeat
r2:=otv1 mod s1;
if r2<10 then
result:=chr(ord('0')+r2)+result
else
result:=chr(ord('a')-10+r2)+result;
otv1:=otv1 div s1
until otv1=0;
kipar 19.03.2014 10:40 # 0
eandr67 19.03.2014 11:57 # 0
bormand 19.03.2014 12:12 # +2
eandr67 19.03.2014 12:51 # 0
Но в данном случае result может быть и явно объявленной переменной, и формальным параметром...
Vasiliy 19.03.2014 13:33 # 0
kipar 19.03.2014 13:33 # 0