AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Konversion von dezimal zu binär

Ein Thema von diavy · begonnen am 31. Mai 2012 · letzter Beitrag vom 2. Jun 2012
 
swkevin08

Registriert seit: 21. Jul 2008
11 Beiträge
 
Delphi XE Professional
 
#17

AW: Konversion von dezimal zu binär

  Alt 1. Jun 2012, 19:46
Hi,
das problem liegt an der 2 while-schleife. abbruchbedingung ist ja wenn "number <> 0". aber genau 0 wirds, mit deinem code, nur bei bestimmten fällen (z.b. bei 2^k). aber selbst dann funktioniert das nicht richtig weil du bei deiner ersten while-schleife nur ">" und nicht ">=" stehen hast.(siehe unten) aber selbst danach gibts noch ein paar fehler

ich glaube du weißt wieso du die erste while-schleife benutzt?? - wenn nicht schau mal nach "euklidischer algorithmus". Du suchst ja den Exponent für den dein 2^k größer(gleich) deiner zahl ist. hier hast du auch einen kleinen fehler. wenn du "while number > power(2,1)" benutzt bekommst du den 2 höchsten exponent. schreib einfach "while number > power(2,i + 1)".

wenn du den gefunden hast weißt du auch deine länge vom array.. nicht, wie du geschrieben hast "setlength(square,k)" sondern "setlength(square,k + 1)".

ignorieren wir jetzt mal deine abbruchbedingung bei deiner while-schleife (while(number <> 0)). Warum hast du da nochmal ne while-schleife die das gleiche macht wie davor?? du hast doch jetzt den höchsten exponenten.

gruß
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz