Taschenrechner mit Proceduren. Probleme beim Diviieren

[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:

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]