unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Button2: TButton;
    Edit7: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  x, y, gz, gn, abfragez, abfragen: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var z1, n1, z2, n2, ez, en, r, ggT, a: integer;
begin
//zufallszahlen werden generiert und zufälliger rechenoperator
z1:=0;
n1:=0;
z2:=0;
n2:=0;
a:=0;
//speiher nullsetzen vorher
a:=random(4)+1;
z1:=random(10)+1;
n1:=random(10)+1;
z2:=random(10)+1;
n2:=random(10)+1;

if a=1 then
 begin
 en:=n1*n2; //Nenner (unten)
 ez:=n1*z2+n2*z1; //Zähler (oben)
 Edit7.Text:='+';   //Rechnen mit + und Ausgabe von Zeichen +
 end
else
if a=2 then
 begin
 en:=n1*n2; //Nenner (unten)
 ez:=n2*z1-n1*z2; //Zähler (oben)
 Edit7.Text:='-';
 end
else
if a=3 then
 begin
 en:=n1*n2; //Nenner (unten)
 ez:=z1*z2; //Zähler (oben)
 Edit7.Text:='*';
 end;
if a=4 then
 begin
 en:=n1*z2;
 ez:=z1*n2;
 Edit7.Text:='/';
 end;

//vorübergehende ausgabe der zufallszahlen
Edit1.Text:=IntToStr(z1);
Edit2.Text:=IntToStr(n1);
Edit3.Text:=IntToStr(z2);
Edit4.Text:=IntToStr(n2);

//Kürzen
BEGIN
x:=ez;
y:=en;
REPEAT
r:=x MOD y;
x:=y;
y:=r;
UNTIL r=0;
ggT:=x;
gz:= ez DIV ggT;
gn:= en DIV ggT;
END;






end;

procedure TForm1.Button3Click(Sender: TObject);
begin
abfragez:=StrToInt(Edit5.Text);
abfragen:=StrToInt(Edit6.Text);

if (abfragez=gz) and (abfragen=gn)
 then showMessage ('Richtig!')
else showMessage ('Falsch!')


end;

end.