Programm für Octalzahlen in Dezimalzahlen

**SirMaurice**

Hallo,
ich habe in der Schule den Auftrag bekommen ein Programm zu entwickeln welches Binär bzw. Octal Zahlen in Dezimalzahlen umwandelt.
Das hat auch für Binär ganz gut geklappt, nur eben nicht für Octal. Ich poste mal den Code für Binär, damit man erkennt nach welchem Schema das Programm geschrieben werden soll.
Bitte bedenkt das ich noch dabei bin die Sprache zu lernen und möglicherweise einige Befehle noch nicht kenne.

LG SirMaurice
(PS. Eine Erklärung wäre nett, will es ja nicht nur abschreiben sondern auch verstehen ^^)

EDIT: Entwicklungsumgebung ist Delphi 5

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.BBindezClick(Sender: TObject);

 var

  i: integer;

  Position, Ergebnis: cardinal;

 begin

   Position:=1;

   Ergebnis:=0;

   for i:=length(Ebin.text) downto 1 do begin

    if Ebin.text[i] = '1' then

     Ergebnis:=Ergebnis + Position;

    Position:= Position * 2;

  end;

  Edez.text:=inttostr(Ergebnis);

 end;

Programm für Octalzahlen in Dezimalzahlen

Programm für Octalzahlen in Dezimalzahlen

Stichworte

Forumregeln