brauchen dringend hilfe!!!!!

[lena]

ja das stimmt...ich fange ein wenig zu spät an, habs mir aber leichter vorgestellt....

[Nils_13]

Hapert es am IntToStr und StrToInt ?

@dfried: Mir geht es in Info auch oft so, aber ich kann wenigstens die Aufgaben schnell noch abhandeln....

Zitat:

Zitat von lena

ja das stimmt...ich fange ein wenig zu spät an, habs mir aber leichter vorgestellt....

Ist es doch auch:
Eine Funktion ist so aufgebaut:

Delphi-Quellcode:

function Tbla.FunktionName(<input> : <inputtyp>) : <output> : <outputtyp>

Damit müsstest du schonmal weiter kommen.

Außerdem kann eine Zahl nicht größer o sein :P

[Klaus01]

Zitat:

Zitat von lena

danke klaus
ok bei dem mittelwert ist folgendes problem:
ich weiß wie ich den mittelwert errechne =), aber ich muss ja vorher die werte ind editfeld eingeben, und muss ich die dann noch vor diesem function in string/integer umwandeln??

Im Editfeld sind Strings drin, mit Zahlen rechnet man, also mußt Du die Strings umwandeln.
Dazu gibt es in delphi StrToInt(). Den Inhalt Deines Editfeldes bekommst Du mit Edit1.text.

Grüße
Klaus

[lena]

ok danke und bei ausgabe wieder umwandeln...ok mach ich jetzt mal danke

[lena]

Delphi-Quellcode:

function mittelwert(wert1;wert2:integer):real;
begin
  wert1_edit:=strToInt(wert1_edit.text);
  wert2_edit:=strToInt(wert2_edit.text);
  mittelwert:=(wert1_edit+wert2_edit)/2;
  mittelwert:=intToStr(ergebnis_panel.text);
end;

ist das so richtig?

[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]

[Nils_13]

Zitat:

Zitat von lena

1. mittelwert zweier zahlen
2.an eine funktion soll eine zahl übergeben werden.wenn die zahl größer als o ist, soll der string positiv, ansonsten negativ oder bzw o zurückgegeben werden.
3.eine funktion pythagoras soll aus 2 gegebenen kathetenwerten die hypothenuse eines rechtwinkligen dreiecks ermitteln und den wert zurückgeben.

1. Kein Kommentar.
2. Dazu solltest du die Standardoperatoren, wie z.B. +,-,*,/,<,>,<> usw. beherschen. Dann ist es mit dem Funktionsaufbau leicht.
3. Denn Satz wirst du ja wohl noch können und dann sollte dir auch klar sein, wie man ² auch anders ausdrücken kann und es somit auch schon gelöst haben.

[kaiser1401]

Zitat:

Zitat von lena

Delphi-Quellcode:

function mittelwert(wert1;wert2:integer):real;
begin
  wert1_edit:=strToInt(wert1_edit.text);
  wert2_edit:=strToInt(wert2_edit.text);
  mittelwert:=(wert1_edit+wert2_edit)/2;
  mittelwert:=intToStr(ergebnis_panel.text);
end;

ist das so richtig?

Wenn du die funktion so aufbaust:

Delphi-Quellcode:

function mittelwert(wert1;wert2:integer):real;

Muss du die übergebenen Werte schon bei der Übergabe an die Funktion in integer umwandeln, denn dieser Typ wird von der Funktion erwartet.

Zum Bsp: im OnClick eines Buttons:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var wert:real;
begin
  wert:=mittelwert(strtoint(edit1.text),strtoint(edit2.text));

  // hier den wert dann noch wieder in string umwandeln und entsprechen dahin schriebn wo du ihn haben möchtest
end;

[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]

[lena]

ja aber wir sollen das ohne button machen...

[kaiser1401]

zu welchem zeitpunkt soll denn dann berechnet werden?

[fwsp]

Zitat:

Zitat von kaiser1401

zu welchem zeitpunkt soll denn dann berechnet werden?

vllt im onchange der edit-felder.