Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
JUHU ES FUNZT
Mit der direkten berechnung funzt es perfect
Nun kommt nur noch der "langweilige" teil nämlich programm optimiern so schreiben das es möglichst viel Leistung bringt und noch tools reinmachen :pale: :pale: :pale:
Leute tausend dank ich hab ober viel gelernt und nun funzt es auch noch
Wenn ichs fertig hab poste ichs erst ma in Open Source under pythagoräische Zahlen
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
ich kann x und y aber nur als integer vereinbarren da ich eine for do Schleife hab und die Variable muss von ordinarem wert sein (ich weiß zwar net (mehr) was ordinar ist aber ich glaub das es ne ganzzahl sien muss oder?) jedenfalls geht das net
mmh was mach ich
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
is das auch bei Extended so denn wenn ich z1 als solchen deklariere dann passiert es immer noch z1 is dann -179343562632 oder so^^
jedenfalls tritt der fehler bei Extended auch noch auf wenn das auch zu klein ist habt ihr dann nen typ der richtig große Zahlen verkraften kann ich will mit dem programm eig dem Benutzer ne unendlich große anzahl an pythagoräischen zahlen liefern können und wenn...
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
Hä es ist mir unbegreiflich aber du hast recht z1 ist wirklich negativ :?: :?: :?: :?: :?: :?: :?: :?:
Aber wieso wirde der wert negativ weenn x und y positiv sind das ergibt keinen sinn
Hat einer dafür ne erklärung
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
z1 kann nicht negativ werden
z1 := x*x + y*y;
z := sqrt (z1);
sollte x oder y negativ sein wird es duch das multipliziern wieder positiv
außerdem nimmt x und yden wert von 1 bis 30000 an (bis dahin gehts)
also wenn x links ist und y rechts
1 1
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
Hab ich jetzt die Zeile ist:
z := sqrt (z1);
Kann es vll daran liegen das z (extendet) nicht so viele nachkommastellen berechenen kann
denn ich hab x = 30000 und y = 40000
Wenn ja wie kann ich runden hab zwar schon ma FormatFloat gefunden weiß aber net wies funzt
Axxus
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
mmh das keiner weiß poste ich ma den Hauptquelltext
If Fehler <> true Then
begin
For x := min_x to max_x do
begin
For y := min_y to max_y do
begin
If x < y Then
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
Ach verflucht
Tut mir ganz doll leit es heißt Operation :oops: :oops: :oops:
Ich hät besser gucken sollen
Wo der Fehler auftritt weiß ich nicht mitten im Programm zeigt er an Ungültige Gleitkommaoperation
Keine Ahnung was das bedeutet
In der Borland Hilfe steht zwar was bei E/A Fehler aber wenn ich auf ungültige Gleitkommaoperation gehe dann kann der die seite net laden
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
10. Nov 2006
Das war auf freiwilliger basis da ich erst in der 9. bin und der einzige in meiner Klasse bin der sich en bisi damit auskennt
Ich hab mir mein ganzes wissen selbst angeeignet wir ham jetzt in der 9. also seit diesem jahr info und sind grad bei office^^
Ok danke leute ich runde das Programm ab und stell es dann hier zum runterladen hin um mir erst ma Kritik einzufahren dann poste ich es vll...
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
9. Nov 2006
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
9. Nov 2006
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Axxus,
9. Nov 2006
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