Oktalzahl zu Dezimalzahl

[Phistev]

Zitat:

Zitat von Jens Schumann

Zitat:

Zitat von KermitFrosch

dezimal -->12344

oktal --> 5348

Ist Euch eigentlich schon mal aufgefallen, dass die hier gezeigte Umrechnung einer Dezimalzahl in eine Octalzahl völlig falsch ist?

Die richtige Lösung lautet: 12344(dezimal) ist 30070(octal)

Oder 12344 ist die Oktalzahl, dann wäre 5348 die korrekte Dezimalzahl

[Nieswood]

danke leutz für die anderen tollen vorschläge, nur mich würde gerne die zuerst diskutierte procedure interessieren! das macht mich ganz kirre ... :spin:

[Klaus01]

Delphi-Quellcode:

procedure TForm1.btnoctalClick(Sender: TObject); 
function xToDec(octal: string; sys: byte): integer; 
var 
  i: integer; 
const 
  ch = '0123456789ABCDEF'; 
begin 
  octal:=(edtoctal.Text); 
  sys:=8; 
  result := 0; 
  if sys in [2..16] then 
    begin 
      for i := 1 to length(octal) do 
        result := result*sys + pos(upCase(octal[i]),ch) - 1; 
    end; 
end;

wenn es das ist was Du meinst.

Grüße
Klaus