Anfängerfrage: Programieren der Berechnung eines Quadrates..

[Ganja Smoker]

Kann bitte jemand dieses Program für mich programieren und mir den Code schicken? Bitte gaaanz schnell wenn's geht.

var a,b: real; //Seitenlängen
U: real; //Umfang
F: real; //Flächeninhalt (a ist schon belegt ;))


Wir schreiben morgen eine Klausur & dank Übungsmangelns hatte ich keine Möglichkeit mit Delphi selber zu programieren. Mit dem Koplementieren (StrToFloat) usw komme ich nicht klar.

Das Prog soll etwa so aussehen:

http://upper-elite.com/0907//images/487123delphi.JPG


Danke schonmal im Voraus!

[zecke]

:hi:

Willkommen in der DP!

Nun das Programm wird dir keiner fertig schreiben, weil kein Hausaufgabenforum.

Wobei hast Du denn genau Probleme?

Bei a und b wird ein Wert (StrToFloat) gespeichert und Du errechnest was benötigt wird. Danach gibst Du die Ergebnisse wieder aus (FloatToStr).

[Klaus01]

Guten Abend,

das wird wohl niemand für Dich machen, denn Du bekommst die Note dafür und nicht wir.
Wie weit bist denn Du - FloatToStr ist doch nicht so schlimm und wenn
die die vielen Nachkommastellen nerven dann versuche es mit FloatToStrF.

Kannst Deinen Code ja mal zeigen.

Grüße
Klaus

[Ganja Smoker]

Es geht mir hier nicht um HAs sondern darum, dass wir ein Program des Lehrers Stück für Stück programiert haben & morgen Klausur ist ohne das irgendwe ne Peilung hat.

Wie ich das ganze Bereche + Ausgebe, darum gehts. Bei mir sieht das bis jetzt so aus und ich komme nicht weiter:

Zitat:

var
Form1: TForm1;
a, b, U, F: real;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);

U:=a+a+b+b;
F:=a*b;



end;

Woher weiß Delphi welche Variable auf welches Textfeld bezogen ist!?

[zecke]

Das musst Du Delphi sagen :mrgreen:

Delphi-Quellcode:

Edit_Umfang.Text:=FloatToStr(U);
Edit_Flaeche.Text:=FloatToStr(F);

[Ganja Smoker]

Okay das sieht dann so aus:

Zitat:

var
Form1: TForm1;
a, b, U, F: real;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);

U:=a+a+b+b;
F:=a*b;

Edit3.Text:=FloatToStr(U);
Edit4.Text:=FloatToStr(F);

end;

end.

Es läuft :) Viiieeelleeen Dank Jungs! ;) Alles weitere bekomme ich dann auch durch probieren raus....

[uwewo]

Zitat:

Zitat von Ganja Smoker

Woher weiß Delphi welche Variable auf welches Textfeld bezogen ist!?

Das musst Du machen!

Fläche und Umfang hast Du schon berechnet, Nun musst Du noch ich vermute mal Edit3 u. Edit4 die Werte
für Umfang und Fläche zuweisen.

Zum zuweisen einer Zahl für das Edit Feld musst Du die Zahl in einen Text wandeln, dazu kannst Du FloatToStr verwenden. <F1> erklärt den Rest.

War jemand schneller, trotzdem ich sende meine Antwort

[Ganja Smoker]

Danke nochmal ihr Beiden :bounce1:

Ehm und wie mache ich das, dass ne Memo-Komponente beim Programstart leer ist bzw. dort ein definiertter Text steht? Die hat ja keine "Caption". Da soll also am Anfang nicht Memo1 o.ä. stehen....

[zecke]

:hi:

Tipp: Memo1.Lines

[jfheins]

Das, oder TMemo.Text ;)