Warum kann delphi net rechnen ? Unerklärliches Problem

[Fredchenhh]

Hey leute ,
hab folgendes Programmiert :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    BTGroesser: TButton;
    BTKleiner: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BTGroesserClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  RateZahl:Integer;
  RateZahlMin:Integer;
  RateZahlMax:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RateZahl:=50;
RateZahlMin:=0;
RateZahlMax:=100;
Edit1.Text:=IntToStr(RateZahl);
Edit2.Text:=IntToStr(RateZahlMax);
Edit3.Text:=IntToStr(RateZahlMin);
end;

procedure TForm1.BTGroesserClick(Sender: TObject);
begin
RateZahlMin:=RateZahl;
RateZahl:=RateZahl+Round(RateZahlMax-RateZahlMin/2);
Edit1.Text:=IntToStr(RateZahl);
Edit2.Text:=IntToStr(RateZahlMax);
Edit3.Text:=IntToStr(RateZahlMin);
end;

end.

Mir geht es darum das ich die Zahl erraten kann an die jemand denkt. Das Problem ist wenn ich auf den Größer Button klicke kommt 125 bei raus aber wenn ich es nachrechne MÜSSEN es 75 sein. Was ist da falsch?LG

[DeddyH]

Klammern vergessen?
RateZahl:=RateZahl+Round((RateZahlMax-RateZahlMin)/2); Übrigens: wieso verwendest Du Fließkommaoperationen bei ganzen Zahlen?

[edit] Sry, Willkommen in der DP [/edit]

[Fredchenhh]

Oh mist stimmt ja Punkt vor Strich rechnung. Was ist eine Fließkommaoperation?

[mkinzler]

Zahlen mit Nachkommastellen.

[himitsu]

Integeroperationen sind schneller und optimaler, wenn man eh bei den Integern bleibt.

Delphi-Quellcode:

RateZahl := RateZahl + Trunc((RateZahlMax - RateZahlMin) / 2);

RateZahl := RateZahl + (RateZahlMax - RateZahlMin) div 2;

Wenn (RateZahlMax - RateZahlMin) positiv ist und es gerundet werden soll, dann muß man einfach nur noch die Hälfte des Teilers dazurechnen, vor dem Teilen.

Delphi-Quellcode:

RateZahl := RateZahl + Round((RateZahlMax - RateZahlMin) / 2);

RateZahl := RateZahl + (RateZahlMax - RateZahlMin + 1) div 2;

[Fredchenhh]

Und was ändert das?

[mkinzler]

Im 1. Fall entsgehen gebrochene Zahlen als Zwischenergebnis, doieses muss wieder zu einer Ganzzahl gewandelt werden, was u.U. zu einem anderen Ergebnis führen kann

[DeddyH]

Stand doch da:

Zitat von himitsu:

Integeroperationen sind schneller und optimaler, wenn man eh bei den Integern bleibt.

[divBy0]

---

[Sir Rufo]

Das wurde doch schon hinreichend geklärt ... und der TE hatte es auch schon verstanden ...