Taschenrechner mit Proceduren. Probleme beim Diviieren

[Waschbaerpelz]

Hier mein Text es hängt nur an der Division:

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label3: TLabel;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
procedure eingabe(x,y: integer);
procedure addiere(x,y: integer; z:integer);
procedure ausgabe(var z: integer);

procedure subtrahiere(x,y: integer; var z:integer);

procedure multipliziere(x,y: integer; var z:integer);

procedure eingabe2(x,y: real; var z: real);
procedure dividiere(x,y: real; var z: real);
procedure ausgabe2(var z: real);
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.eingabe(x,y: integer);
begin
x:= StrToInt(edit1.text);
y:= StrToInt(edit2.text);
end;


procedure TForm1.addiere(x,y: integer; z:integer);
begin
z:=x+y;
end;


procedure TForm1.ausgabe(var z: integer);
begin
edit3.text:= InttoStr(z);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
begin
eingabe(a,b);
addiere(a,b,c);
ausgabe(c);
end;




procedure TForm1.subtrahiere(x,y: integer; var z: integer);
begin
z:=x-y;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c: integer;
begin
eingabe(a,b);
subtrahiere(a,b,c);
ausgabe(c);
end;


procedure TForm1.multipliziere(x,y: integer; var z:integer);
begin
z:=x*y;
end;

procedure TForm1.Button3Click(Sender: TObject);
var a,b,c: integer;
begin
eingabe(a,b);
multipliziere(a,b,c);
ausgabe(c);
end;


procedure TForm1.eingabe2(x,y: real; var z: real);
begin
begin
y := StrToFloat (Edit2.text);
x := StrToFloat (Edit1.text);
end;

procedure TForm1.dividieren(x,y: real; var z: real);
begin
z:=x/y;
end;

procedure TForm1.ausgabe2(var z: real);
begin
edit3.text:= floattostr(z);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c: real;
begin
eingabe2(a,b);
dividiere(a,b,c);
ausgabe2(c);
end;

end.


Fehlermeldung: [Fehler] Unit1.pas(113): Anweisung erwartet, aber 'PROCEDURE' gefunden

Danke im Voraus

[Waschbaerpelz]

So habs mal geändert jetzt funktioniert es einwandfrei es hat das var vor x,y bei eingabe2 gefehlt:

Delphi-Quellcode:

procedure TForm1.eingabe2(var x,y: real);
begin
x := StrToFloat (Edit1.text);
y := StrToFloat (Edit2.text);
end;

procedure TForm1.dividiere(x,y: real; var z: real);
begin
z:=x/y;
end;

procedure TForm1.ausgabe2(var z: real);
begin
edit3.text:= floattostr(z);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c: real;
begin
eingabe2(a,b);
dividiere(a,b,c);
ausgabe2(c);
end;

end.

PS.: Ich muss es von meinem Lehrer aus so schreiben nur mit Proceduren

Danke an euch beide für die Antworten und noch einen schönen Abend wünsch ich euch

[Luckie]

Zitat von Waschbaerpelz:

PS.: Ich muss es von meinem Lehrer aus so schreiben nur mit Proceduren

Das m,eine ich nicht. Keine Einrückungen und mal zwei, mal drei Leerzeilen usw. mach das mal einheitlich und rücke korrekt ein.

[Wolfgang Mix]

Allgemein beobachte ich hier die Einrückung von 2 Leerzeichen in Blöcken, z.B.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c: real;
begin
  eingabe2(a,b);
  dividiere(a,b,c);
  ausgabe2(c);
end;

Das macht allerdings auch Sinn, um Blöcke später auch noch zu erkennen.

[Noedel]

[OT]
wo wir schon dabei sind: Klick (ein Quellcode-Formatierer, der direkt in Delphi eingebunden wird)
[/OT]