p-g Formel rechner

[BrunoT]

Hi DaHui,

Willkommen

Ich denke Du wolltest es so haben: :mrgreen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p, q, x: double;
begin

  if (edit1.text = '') or (edit2.text = '') then
    Application.MessageBox('Kein Wert angegeben', 'Fehler', MB_OK + MB_ICONERROR)
  else
  begin
    p := strtofloatdef(edit1.Text, 0);
    q := strtofloatdef(edit2.Text, 0);
    x := -1 * (1 / 2 * p) - sqrt(sqr(p / 2) - q);
    Label1.caption := Floattostr(x);
    x := -1 * (1 / 2 * p) + sqrt(sqr(p / 2) - q);
    Label2.caption := Floattostr(x);

  end;
end;

mfg

BrunoT

[DaHui]

ok danke für die SUPER schnelle Hilfe hier bleib ich =)!!!


@ Bruno klar so is geil nur das ich ka hab wie dus gemaht hast hab das Prog seit montag und Info ind er schuel seit einer woche ;) trotzdem thx ich meine wenn du lsut und Zeit ahst darfst es mir gerne erklären !!!

[hanselmansel]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p, q, x: double; //Variablen, die Kommazahlen aufnehmen können
begin

  if (edit1.text = '') or (edit2.text = '') then
    Application.MessageBox('Kein Wert angegeben', 'Fehler', MB_OK + MB_ICONERROR)
  else
  begin
    p := strtofloatdef(edit1.Text, 0);  //P und Q werden zugewiesen StrToFloatDef ist einfach die E-Klasse
    q := strtofloatdef(edit2.Text, 0);  //wenn StrToFloat ein Polo ist.
    x := -1 * (1 / 2 * p) - sqrt(sqr(p / 2) - q); //X1 wird berechnet
    Label1.caption := Floattostr(x);  //X1 wird ausgegeben
    x := -1 * (1 / 2 * p) + sqrt(sqr(p / 2) - q);  //Die Variable, die X1 enthielt, kann weiterverwendet werden, und nimmt X2 auf
    Label2.caption := Floattostr(x);   //Hier wird X2 ausgegeben.

  end;
end;

Für deinen Lehrer anschaulicher (weil wir ja wissen, wie umständlich Lehrer sind) kannst du das Programm gestalten, indem du anstelle von "x" die variablen x1 und x2 verwendest.

[DaHui]

hey wow danke!!!!!!

sollte jezz klappen bis zum nächsten Problem ;)

[hanselmansel]

Zitat:

Zitat von DaHui

bis zum nächsten Problem ;)

Kein Problem. Meine erfahrung zeigt, dass die PRAXIS quasi around the clock besetzt ist.
[OT]
Gibt es eigentlich statistische Daten, auf denen zu sehen ist, zu welcher Uhrzeit sich durchschnittlich wieviele User in der DP tummeln?
[/OT]

[ichbins]

es gibt so ne Power-Funktion für ^.

Delphi-Quellcode:

uses
  math {oben hinzufügen}

[...]

x:=power(10,2); {x=10^2}

für Variablen, die Kommazahlen aufnehmen können (float-Variablen) würde ich IMMER den Typ extended nehmen (der ist 10 Byte genau (im gegensatz zu double, der nur 4 hat))

[ibp]

.. so würde ich das machen (ohne ausgabenformatierung)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p,q,a,b: real;
begin
  if trystrtofloat(edit12.Text,p) and trystrtofloat(edit12.Text,q) then
  begin
    a:=-p/2;
    b:=sqrt(sqr(a)-q);
    label1.Caption:=floattostr(a+b);
    label2.Caption:=floattostr(a-b);
  end
  else
    Application.MessageBox('Kein Werte angegeben', 'Fehler', MB_OK + MB_ICONERROR)
end;

[DaHui]

jo thx sehs mir nachher mal an mach jezz aba erstmal ne Pause!

[dizzy]

Zitat:

Zitat von ichbins

für Variablen, die Kommazahlen aufnehmen können (float-Variablen) würde ich IMMER den Typ extended nehmen (der ist 10 Byte genau (im gegensatz zu double, der nur 4 hat))

Ich nicht. Ich würde Extended dort nehmen wo ich es so genau brauche. Extended ist erheblich langsamer als die anderen Float-Typen, und somit ist es wie so oft Abwägungssache welcher Typ geeignet ist. Ein kanonisches "immer" ist - sorry - Quatsch.

\\edit: Drüberhinaus solltest du deine Aussagen vor dem Absenden überprüfen. Double ist 64Bit (=8 Byte) lang. Single 32Bit (4 byte).
\\edit2: Ergänzender Link