hi, ich hab hier mal ein kleines programm geschrieben um kleine und mittlere Zahlen in Zahlen der Zweierreihe, also in bits umzuwandeln. z.B. 13 zu 1101.
Sobald einer irgendeinen nutzwert feststellt soll er es mir bitte sagen
Delphi-Quellcode:
procedure TForm2.MaxBestimmen(Zahl:integer);
begin
if Zahl<2
then begin max := 1;anz:=1
end
else
if Zahl<4
then begin max := 2;anz:=2
end
else
if Zahl<8
then begin max := 4;anz:=3
end
else
if Zahl<16
then begin max := 8;anz:=4
end
else
if Zahl<32
then begin max := 16;anz:=5
end
else
if Zahl<64
then begin max := 32;anz:=6
end
else
if Zahl<128
then begin max := 64;anz:=7
end
else
if Zahl<256
then begin max := 128;anz:=8
end
else
if Zahl<512
then begin max := 256;anz:=9
end
else
if Zahl<1024
then begin max := 512;anz:=10
end
else
if Zahl<2048
then begin max := 1024;anz:=11
end
else
if Zahl<4096
then begin max := 2048;anz:=12
end
else
if Zahl<8192
then begin max := 4096;anz:=13
end
else
if Zahl<16384
then begin max := 8192;anz:=14
end
else
if Zahl<32768
then begin max := 16384;anz:=15
end
else
if Zahl<65536
then begin max := 32768;anz:=16
end
else
if Zahl<131072
then begin max := 65536;anz:=17
end
else showmessage('
die Zahl ' + inttostr(Zahl) + '
ist zu hoch, geben sie eine Zahl zwischen 1 und 131071 ein')
end;
procedure TForm2.Button1Click(Sender: TObject);
var j:integer;
begin
FormCreate(Sender);
MaxBestimmen(StrToInt(Edit1.Text));
Wert := StrToInt(Edit1.Text);
BitsBestimmen;
for j:= 1
to 17
do begin
if j = 1
then Edit1.Text := '
';
Edit1.Text := Edit1.Text + Bit[j]
end;
end;
procedure TForm2.BitsBestimmen;
var i: integer;
begin
for i := 1
to anz
do begin
if wert>=max
then begin Bit[i] := '
1';
dec(wert,max)
end
else Bit[i] := '
0';
if max>1
then max := max
div 2
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
i := 1;
j := 1;
Bit[1] := '
';
Bit[2] := '
';
Bit[3] := '
';
Bit[4] := '
';
Bit[5] := '
';
Bit[6] := '
';
Bit[7] := '
';
Bit[8] := '
';
Bit[9] := '
';
Bit[10] := '
';
Bit[11] := '
';
Bit[12] := '
';
Bit[13] := '
';
Bit[14] := '
';
Bit[15] := '
';
Bit[16] := '
';
Bit[17] := '
';
max:=0;
wert:=0;
end;
procedure TForm2.Edit1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13
then Button1Click(Sender)
end;
das Essen ist wie das Internet - Downstream ist immer angenehmer als Upstream
-
Warum missbraucht die ganze Programmierwelt Images als Paintboxen
