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