Delphi-PRAXiS
Seite 1 von 5  1 23     Letzte » 

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Wurzeln Wie schreibt man die (https://www.delphipraxis.net/80472-wurzeln-wie-schreibt-man-die.html)

Axxus 9. Nov 2006 14:14


Wurzeln Wie schreibt man die
 
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 9. Nov 2006 14:16

Re: Wurzeln Wie schreibt man die
 
Die Funktion dazu in Delphi heisst SQRT, alles weiter dazu in der OH.

Axxus 9. Nov 2006 16:28

Re: Wurzeln Wie schreibt man die
 
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 9. Nov 2006 16:38

Re: Wurzeln Wie schreibt man die
 
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 9. Nov 2006 16:40

Re: Wurzeln Wie schreibt man die
 
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 9. Nov 2006 17:48

Re: Wurzeln Wie schreibt man die
 
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 9. Nov 2006 18:11

Re: Wurzeln Wie schreibt man die
 
Dein Lehrer wird dir keine solche Hausaufgabe geben, wenn du das nötige Wissen dafür noch nicht hast.

Balu der Bär 9. Nov 2006 18:15

Re: Wurzeln Wie schreibt man die
 
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 9. Nov 2006 18:29

Re: Wurzeln Wie schreibt man die
 
Naja aber wenn man noch so in den Anfängen steckt, also die Grundlagen noch fehlen...

mr47 9. Nov 2006 20:07

Re: Wurzeln Wie schreibt man die
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:27 Uhr.
Seite 1 von 5  1 23     Letzte » 

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz