delphi probleme....pq

[wuschi]

also eigtl sollte ja das programm wenn die wurzel negativ ist nach then aufhören da das andere ja nur bedingungen sind falls die wurzel positiv ist

Delphi-Quellcode:

if
      sqrt(p*p/4-q) < 0
      then
        keine.Visible := True
      else
      begin

[DeddyH]

Wie kann denn eine Wurzel negativ werden?

[wuschi]

naja bei der pqformel kann das eben sein und wenn das so ist dann gibt es keine lösung

[mkinzler]

Der Wert unter der Wurzel darf nicht negativ werden, Wuzteln sind im Bereich der Realzahlen nur für positive werte deklariert!
if (p*p/4-q) < 0

[DeddyH]

Delphi-Quellcode:

var Zahl: extended;
...
if q <> 4 then 
  Zahl := p*p/4-q //wenn q = 4 gibt es eine Division durch 0
else
  Zahl := -1;
if
      Zahl < 0
      then
        keine.Visible := True
      else
      ...//ab hier mit sqrt(Zahl) weitermachen

[wuschi]

das versteh ich leider nicht was du da mit q=4 meinst
delphi soll ja nur erkennen obs negativ ist oder nicht

[DeddyH]

*Oops*, sry hast Recht, ich habe Punkt-vor-Strichrechnung nicht beachtet.

[OldGrumpy]

Zitat von wuschi:

naja bei der pqformel kann das eben sein und wenn das so ist dann gibt es keine lösung

Also doch ein Sprachproblem, allerdings in der Mathestunde, die pq-Formel nicht richtig verstanden und vorher schon das mit den Wurzeln nicht

[RavenIV]

Zitat von wuschi:

so ich soll für die schule die pq-formel als prog schreiben...hab jetzt auch was gemacht aber das funzt nicht wirklich^^
kann mir mal jemand helfen denn ich weiß absolut nicht mehr weiter

Delphi-Quellcode:

procedure TForm1.startClick(Sender: TObject);
var p,q,x1,x2,wurzel,z  : extended ;
  begin
    if
      sqrt(p*p/4-q) < 0
      then
        keine.Visible := True
      else
      begin
        if
          sqrt(p*p/4-q) = 0
          then
          begin
            wurzel := sqrt(p*p/4-q);
   ...
   ...
   ...
  end;

Was hältst Du von einer vernünftigen CodeFormatierung?
Die Bedingung (a < b) gehört in die selbe zeile wie das if.
Das then auch. Nach jedem then kommt ein begin..end. Usw.

ohje ohje, ich hab's wieder getan. Hab wieder versucht meinen Styleguide unter die Leute zu bringen.
Asche auf mein Haupt.

[Luckie]

Der Threadtitel wurde ja immer noch nicht angepasst.