Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Помогите пожалуйста составить процедуру для перевода числа из 2-й в 8-ю с.с. заранее спасибо.

пробовал вот такую, но выдает ошибку на Power(2, 3-k)

 function BinToOct(BinStr: string): string; 
var k: Integer; OctPart: Real; LastPart, OctStr: string; Error: Boolean;
begin
Error:=False;
OctStr:='';
case Length(BinStr) mod 3 of 1: BinStr:='00'+BinStr; 2: BinStr:='0'+BinStr;
end; 
while Length(BinStr)>0 do begin LastPart:=Copy(BinStr, Length(BinStr)-2, 3);
 Delete(BinStr, Length(BinStr)-2, 3);
 OctPart:=0; for k:=1 to 3 do if not (LastPart[k] in ['0', '1']) then begin
 ShowMessage('This is not binary number'); 
Error:=True; Break; end else OctPart:=OctPart+StrToInt(LastPart[k])*Power(2, 3-k);
 OctStr:=OctStr+FloatToStr(OctPart); end; Result:='';
 if Error<>True then begin for k:=1 to Length(OctStr) do Result:=Result+OctStr[Length(OctStr)-k+1];
 while (Result[1]='0') and (Length(Result)>1) do Delete(Result, 1, 1);
end;
end;

Вопрос задал: homerchick (статус: Посетитель) Вопрос отправлен: 26 апреля 2010, 14:35 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Это не код, а дикий ужос, страшный сон программиста и вынос мозга! Может быть попробовать сделать попроще, а?

function BinToOct(BinStr: string): string;
const
  ErrorStr = 'This is not binary number';
var
  Index, Count: Integer;
  Triade: Byte;
begin
  if BinStr <> ''
    then Result:= ''
    else begin
           Result:= ErrorStr;
           Exit;
         end;
 
  Triade:= 0;
  Count:= 0;
 
  for Index:= Length(BinStr) downto 1 do
    begin
      if not (BinStr[Index] in ['0', '1'])
        then begin
               Result:= ErrorStr;
               Exit;
             end;
 
      if BinStr[Index] = '1'
        then Triade:= Triade + (1 shl Count);
 
      Inc(Count);
 
      if (Count = 3) or (Index = 1)
        then begin
               Result:= Char(Triade + $30) + Result;
               Triade:= 0;
               Count:= 0;
             end;
    end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 27 апреля 2010, 08:56

Мини-форум вопроса

Ерёмин А.А. (статус: *Администратор), 26 апреля 2010, 16:08 [#1]: Цитата (homerchick): пробовал вот такую, но выдает ошибку на Power(2, 3-k) Добавьте Math в uses.

amigo (статус: 1-ый класс), 27 апреля 2010, 18:38 [#2]: Согласен с ерёмином, доп функции типа Power, log2, logn и т п не работают в дельфи без модуля Math, прото впиши его в список USES там перечисляются используемые доп модули

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.