1:
2:

zaehler := zaehler1*nenner2 + zaehler2*nenner1;
nenner := nenner1*nenner2;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

unit bruch1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    edit_nen1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    edit_zae2: TEdit;
    edit_nen2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    but_add: TButton;
    but_mul: TButton;
    but_sub: TButton;
    but_div: TButton;
    Label8: TLabel;
    Label9: TLabel;
    edit_zae1: TEdit;
    edit_zae3: TEdit;
    edit_nen3: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    procedure but_mulClick(Sender: TObject);
    procedure but_divClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;v_nen1,v_nen2,v_nen3,v_zae1,v_zae2,v_zae3 : real ;         //deklaration der variablen

implementation

{$R *.dfm}

procedure TForm1.but_divClick(Sender: TObject);
begin
v_nen1 := strtofloat (edit_nen1.Text);            //konvertierung der Variablen
  v_nen2 := strtofloat (edit_nen2.text);
  v_zae1 := strtofloat (edit_zae1.text);
  v_zae2 := strtofloat (edit_zae2.text);

v_nen3:= v_nen1*v_zae2;
v_zae3:= v_zae1*v_nen2;

  Edit_nen3.text := floattostr (v_nen3) ;
  Edit_zae3.Text := floattostr (v_zae3)

end;

procedure TForm1.but_mulClick(Sender: TObject);
begin
  v_nen1 := strtofloat (edit_nen1.Text);            //konvertierung der Variablen
  v_nen2 := strtofloat (edit_nen2.text);
  v_zae1 := strtofloat (edit_zae1.text);
  v_zae2 := strtofloat (edit_zae2.text);

v_nen3:= v_nen1*v_nen2;
v_zae3:= v_zae1*v_zae2;

  Edit_nen3.text := floattostr (v_nen3) ;
  Edit_zae3.Text := floattostr (v_zae3)


end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  Form1: TForm1;v_nen1,v_nen2,v_nen3,v_zae1,v_zae2,v_zae3 : integer ;         //deklaration der variablen
...
procedure TForm1.but_addClick(Sender: TObject);
begin
  v_nen1 := strtoint (edit_nen1.Text);            //konvertierung der Variablen
  v_nen2 := strtoint (edit_nen2.text);
  v_zae1 := strtoint (edit_zae1.text);
  v_zae2 := strtoint (edit_zae2.text);

  v_nen3:= v_nen1*v_nen2;
  v_zae3:= v_nen1*n_zae2+v_nen2*v_zae1;

  Edit_nen3.text := inttostr (v_nen3) ;
  Edit_zae3.Text := inttostr (v_zae3)
end;