Wurzeln Wie schreibt man die

[Axxus]

Hi Delphianer

Ich hoffe das passt hier rein hab keine passendere Sparte gefunden

Und gesucht hab ich auch schon

Ich hab als hausaufgabe ein Programm auf das die pythagorätischen zahlen raussucht

Den Algorhitmus hab ich schon fast fertig allerdings brauch ich dafür Wurzeln

Nun Meine frage:

Wie kann ich delphi klarmachen das es aus ner Zahl die Wurzel ziehen will???

es gibt bestimmt ne Taste die find ich aber nicht

Bitte um schnelle hilfe

Axxus

[dfried]

Die Funktion dazu in Delphi heisst SQRT, alles weiter dazu in der OH.

[Axxus]

Ok das funzt schon ma
Aber wer pythagoräische zahlen in der Schule gehabt hat weiß, das es nur gillt wenn alles ganze zahlen sind
Beispiel:
3² + 4² = 5²
oder algemein
x² + y² = z²
So bei meinem prog geht der ne bestimmte anzahl an zahlen durch und setzt diese für a und b ein
die formel is bis jetzt so

Delphi-Quellcode:

z1 : integer
z2 : double;
z1 := x*x + y*y;
z2 := sqrt (z1);

so ich hat eigentlich gedacht das ich es mit ner try except Schleife mache also das ich die Wurzel aus z1 (also z2) als integer deklariere und wenn es ne Komma oder irrationale zahl wird dann soll er nichts machen und wenn es ne ganzzahl wird dann soll er sie in ne liste eintragen

Ich kann aber z2 nicht als integer eklarieren weil sonst ein Fehler auftrit. Deswegen

Wie kann ich feststellen ob eine zahl ne GAnzzahl ist???

bitte antwortet schnell ich will es bis morgen fertig haben


Danke im vorraus

Axxus

[dfried]

Zitat:

Zitat von Axxus

Ich kann aber z2 nicht als integer eklarieren weil sonst ein Fehler auftrit. Deswegen

Wie kann ich feststellen ob eine zahl ne GAnzzahl ist???

Na, dann drück doch mal auf deinem SQRT die F1 taste und hau dann mit der Maus unter "Kategorie" auf das grün hinterlegte "Arithmetik", dort wirst du bestimmt fündig.

Denn...

Zitat:

Zitat von Axxus

bitte antwortet schnell ich will es bis morgen fertig haben

...wir machen dir hier nicht deine Hausaufgaben fix und fertig :-)

[Flare]

Delphi-Quellcode:

if frac(z2)=0 then ...

Delphi-Quellcode:

if round(z2)=z2 then ...

...gibt noch mehr!

//Edit: Ich sende es trotzdem mal ab...


Flare

[Axxus]

Ich will auch gar nicht das ihr meine Hausaufgaben macht sonst macht es ja keinen Spass mehr wenn einer den Quelltext vorkaut :mrgreen: :mrgreen: :mrgreen:

Aber ich kenn nun mal den Syntax nicht :wall: :wall: :wall:

Axxus

[3_of_8]

Dein Lehrer wird dir keine solche Hausaufgabe geben, wenn du das nötige Wissen dafür noch nicht hast.

[Balu der Bär]

Zitat:

Zitat von 3_of_8

Dein Lehrer wird dir keine solche Hausaufgabe geben, wenn du das nötige Wissen dafür noch nicht hast.

Das ist erstmal völliger Quark, ich weiß zwar nicht was an der Schule so los ist aber es soll Schulen geben wo man Aufgaben bekommt und sich das nötige Wissen selbst erarbeiten darf (wirst du dann im Abi merken :zwinker: ).

[3_of_8]

Naja aber wenn man noch so in den Anfängen steckt, also die Grundlagen noch fehlen...

[mr47]

Zitat:

Zitat von 3_of_8

Naja aber wenn man noch so in den Anfängen steckt, also die Grundlagen noch fehlen...

... kann es sich immer noch um einen dummen Lehrer handeln :mrgreen: