Memory overflow? (Tests) - Perl-Community.de

[thread]16826[/thread]

Memory overflow?

Leser: 18

Articles: hide open all | hide show old branches

+3 replies
Gast Mike

2011-10-18 17:18
Hi,
ich habe dieses Programm zur Wurzelberechnung geschrieben, allerdings stürtzt es bei ungeraden Ergebnissen ab. Nur weiß ich nicht wieso:
Code: (dl )

1 2 3 4 5 6 7

use strict; use warnings; my $zahl=2; #mit 4 geht es my $i=1; while (($i**2) ne $zahl){ $i = (($i**2+$zahl)/$i)/2;} print "Wurzel von ".$zahl." ist ".$i.".";
Last edited: 2011-10-18 17:26:26 +0200 (CEST)
- GwenDragon
  
  2011-10-18 19:08
  
  User since
  2005-01-17
  14542 Artikel
  Admin1
  
  Wenn Zahl 9 oder 49 ist stürzt nix ab.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- FIFO
  
  2011-10-19 09:28
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Sorry, hatte im Reflex das 'ne' durch '!=' ersetzt, nur dann stimmt das unten gesagte. Ansonsten funktioniert Dein Code nur bei negativen Zahlen nicht.
  
  edit: Weiterlesen zwecklos, Thema verfehlt
  
  Hi,
  
  Du erhältst bei nicht ganzzahligen Ergebnissen eine Endlosschleife, weil ~~die interne Zahlendarstellung nicht dezimal ist~~ die dezimale Rechengenauigkeit begrenzt ist. Du siehst das, wenn Du Dir $i bzw $i*$i als float ausgeben lässt. Bei der Ausgabe als String wird Dir schon ein gerundeter Wert untergeschoben, deshalb funktioniert Deine Schleife auch mit dem Stringvergleich (ne) statt dem numerischen (!=). Ersetz mal ne durch !=, dann merkst Du, was passiert.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use strict; use warnings; my $zahl = 2; my $i = 1; my $q = 1; while ($q ne $zahl) { $q = $i * $i; $i = (($q + $zahl)/$i)/2; print "$i\n"; } printf("\n\$zahl:%6d\n\$i: %.18f\n\$q float: %.18f\n\$q string: %s\n", $zahl, $i, $q, $q ); print "Wurzel von $zahl ist $i.\n\n";
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  1.5 1.41666666666667 1.41421568627451 1.41421356237469 1.41421356237309 1.41421356237309 $zahl: 2 $i: 1.414213562373094900 $q float: 1.999999999999999600 $q string: 2 Wurzel von 2 ist 1.41421356237309.
  
  Gruß FIFO
  
  Editiert von FIFO: falsche Begründung
  Last edited: 2011-10-19 10:29:01 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2011-10-18 17:18.