Einzelnen Beitrag anzeigen

Neobiota

Registriert seit: 14. Dez 2011
2 Beiträge
 
Delphi 7 Personal
 
#1

Rechengeschwindigkeit abhängig von Datentyp

  Alt 14. Dez 2011, 20:28
Delphi-Version: 7
Hallo Forum,
ich schreibe zurzeit eine Facharbeit in Informatik. Darin beschäftige ich mich mit Quellcode-Optimierung. Als praktisches Beispiel hab ich nun ein Programm geschrieben, dass die Abhängigkeit der Datentyp- Wahl von der Rechengeschwindigkeit untersucht.
Einmal rechne ich mit Byte-Variablen und einmal mit Integer-Variablen. Ich wollte nun eigentlich auf das Fazit kommen, dass es wichtig einen angemessenen Speicherbereich zu wählen, bei der Ausführung stelle ich jedoch fest, dass die Rechnung mit den Byte-Variablen 3,5 Sekunden dauert und die Integer-Rechnung nur 2.
Kann mir jemand diese Verhalten erklären? Kommt mir da Delphi vielleicht mit irgendwelchen eigenen Optimierungen in die Quere?
In dem Beispiel geht es nur um die Rechengeschwindigkeit.

Ich habe Implementations-Teil mal dran gehangen:
Code:
var
  byte1, byte2, bytesumme : Byte;
  integer1, integer2, integersumme : Integer;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  anfang, ende : Integer;
  i : integer;

begin
  // Anfangszeit ermitteln und ins Log eintragen
  Memo1.Lines.Add('Rechnungsversuch: Byte');
  anfang := GetTickCount;
  Memo1.Lines.Add('Anfang: ' + IntToStr(anfang) + 'ms');

  for i := 0 to 2147483647 do
    begin
      bytesumme := byte1 + byte2;
      bytesumme := 0; //Ergebnis zurücksetzen
    end;

  //Endzeit und Differenz ermitteln
  ende := GetTickCount;
  Memo1.Lines.Add('Ende: ' + IntToStr(ende) + 'ms');
  Memo1.Lines.Add(IntToStr(ende - anfang) + 'ms');
  Memo1.Lines.Add(''); //Leerzeile einfügen
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  anfang, ende : Integer;
  i : integer;

begin
  // Anfangszeit ermitteln und ins Log eintragen
  Memo1.Lines.Add('Rechnungsversuch: Integer');
  anfang := GetTickCount;
  Memo1.Lines.Add('Anfang: ' + IntToStr(anfang) + 'ms');

  for i := 0 to 2147483647 do
    begin
      integersumme := integer1 + integer2;
      integersumme := 0; //Ergebnis zurücksetzen
    end;

  //Endzeit und Differenz ermitteln
  ende := GetTickCount;
  Memo1.Lines.Add('Ende: ' + IntToStr(ende) + 'ms');
  Memo1.Lines.Add(IntToStr(ende - anfang) + 'ms');
  Memo1.Lines.Add(''); //Leerzeile einfügen
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Zahlenwerte festlegen
  byte1 := 64;
  byte2 := 32;
  integer1 := 64;
  integer2 := 32;
end;
  Mit Zitat antworten Zitat