Fehler in Rechenprogramm

[kr1337]

Super! Das Problem mit dem Aufhängen hab ich schonmal nicht mehr, fehlt nur noch das mit der Division. Hier der aktuelle Quellcode:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Label13: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; passworttrue: boolean; passwort, eingabe: string; n, m, k : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
passwort := '123456';
eingabe:= edit1.Text;
passworttrue := (passwort=eingabe);
if passworttrue then
begin
  label1.Visible:= true;
  label2.Visible:= true;
  label3.Visible:= true;
  edit2.Visible:= true;
end;
randomize;
k := random(1000)+1;
case RadioGroup1.ItemIndex of
  0:  begin
      label2.caption:= '+';
      if radiogroup2.ItemIndex=0 then
      begin
      REPEAT
        n := random(100) +1; m:= random(100) +1;
      UNTIL m+n <=100;
      end;
      if radiogroup2.ItemIndex=1 then
      begin
      REPEAT
        n := random(1000)+1; m:= random(1000) +1;
      UNTIL m+n <=1000;
      end;
      label1.Caption := floattostr(n);
      label3.Caption := floattostr(m);
      end;
  1:  begin
      label2.caption:= '-';
      if radiogroup2.ItemIndex=0 then
      begin
      REPEAT
        n := random(100) +1; m:= random(100) +1;
      UNTIL n>m;
      end;
      if radiogroup2.ItemIndex=1 then
      begin
      REPEAT
        n := random(1000)+1; m:= random(1000) +1;
      UNTIL n>m;
      end;
      label1.Caption := floattostr(n);
      label3.Caption := floattostr(m);
      end;
  2:  begin
      label2.caption:= 'x';
      if radiogroup2.ItemIndex=0 then
      begin
      REPEAT
        n := random(100) +1; m:= random(100) +1;
      UNTIL n*m <=100;
      end;
      if radiogroup2.ItemIndex=1 then
      begin
      REPEAT
        n := random(1000)+1; m:= random(1000) +1;
      UNTIL n*m <= 1000;
      end;
      label1.Caption := floattostr(n);
      label3.Caption := floattostr(m);
      end;
  3:  begin
      label2.caption:= ':';
      if radiogroup2.ItemIndex=0 then
      begin
      REPEAT
        n := random(100) +1; m:= random(100) +1;
      UNTIL (n>=m) and (n/m = k);
      end;
      if radiogroup2.ItemIndex=1 then
      begin
      REPEAT
        n := random(1000)+1; m:= random(1000) +1;
      UNTIL (n>=m) and (n/m = k);
      end;
      label1.Caption := floattostr(n);
      label3.Caption := floattostr(m);
      end;
end;
end;

end.

[DeddyH]

Ganzzahlige Divisionen macht man mit DIV, es sei denn, man möchte tatsächlich eine Fließkommazahl als Ergebnis. Die kannst Du aber kaum mit "=" vergleichen, da es so gut wie zwangsläufig zu Rundungsungenauigkeiten kommt. Hier empfiehlt sich dann die Funktion SameValue aus der Unit math.

[kr1337]

Okay, könntest du mir schreiben wie das hier dann genau aussieht, weil ich weiß jetzt nicht was ich dort machen soll. Also die zwei Zahlen sollen so zufällig gewählt werden, dass es ein rundes Ergebnis gibt.

[DeddyH]

Nicht "/", sondern "div" schreiben.

[kr1337]

Okay aber jetzt hängt es sich bei Knopfdruck auf.

[DeddyH]

Dann beobachte doch mal die ermittelten Werte, den Debugger kann ich auch nicht ersetzen.

[Volker Z.]

Hallo,

Zitat:

Okay aber jetzt hängt es sich bei Knopfdruck auf.

Wundert Dich das? Wenn ich mir
k := random(1000)+1;
und

Delphi-Quellcode:

       REPEAT
         n := random(100) +1; m:= random(100) +1;
       UNTIL (n>=m) and (n/m = k);

ansehe, dann kann die Abbruchbedingung nur erfüllt werden, wenn k <= 100 gilt. Für ein k > 100 kann n div m = k nie erfüllt werden, denn das Maximum für n ist 100, das Minimum für m ist 1 - also bestenfalls n div m = 100 zu erreichen.

Wenn Du Glück hast und 1 <= k <= 100 erfüllt ist, dann wird die Schleife u. U. aber auch eine ganze Weile laufen bis n = k * m gilt. Wenn Du kein Glück hast (und das ist sehr wahrscheinlich): Endlosschleife.

In der zweiten Schleife - Random(1000) - ist das Erreichen der Abbruchbedingung prinzipiell möglich; selbst bei k = 1000 kann mit n = 1000 und m = 1 die Abbruchbedingung erreicht werden - ist halt nur eine Frage der Zeit wann die Konstellation eintritt.

Gruß