hallo leute,
danke euerer Hilfe bin ich bei der Programmierung ein Stückchen vorwärts gekommen.
Ich bin jetzt auf ein weiteres problem geraten,nämlich:.... wenn ich beim Quader die Seite_a , Seite_b und das Volumen gegeben habe, wie kann ich es machen, dass das Programm automatisch die fehlende Größe berechnet (also Seite_c)
Hier ist noch mal mein Quelltext, damit ihr das ganze besser vorstellen könnt.
Delphi-Quellcode:
procedure TForm1.BerechneClick(Sender: TObject);
begin
a:=StrToFloat(Seitea_quader.Text);
b:=StrToFloat(Seiteb_quader.text);
c:=StrToFloat(Seitec_quader.Text);
VolumenV:=a*b*c;
Volumen_quader.text:=floatToStr(round(VolumenV*100)/100);
OberflaecheO:=2*(a*b+a*c+b*c);
Oberflaeche_quader.text:=floatToStr(round(OberflaecheO*100)/100);
Diagonale:=a*a+b*b+c*c;
Diagonale:=sqrt(Diagonale);
diage_quader.text:=floatToStr(round(Diagonale*100)/100);
end;
und die Oberfläche des Programm im Anhang noch
.Danke im voraus
mfg John