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