Einzelnen Beitrag anzeigen

SirMaurice

Registriert seit: 7. Dez 2018
Ort: Berlin
16 Beiträge
 
Delphi 5 Enterprise
 
#1

Programm für Octalzahlen in Dezimalzahlen

  Alt 7. Dez 2018, 17:43
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

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] = '1then
     Ergebnis:=Ergebnis + Position;
    Position:= Position * 2;
  end;
  Edez.text:=inttostr(Ergebnis);
 end;
  Mit Zitat antworten Zitat