Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Integer Real Problem (https://www.delphipraxis.net/69692-integer-real-problem.html)

AndiSt 18. Mai 2006 16:22


Integer Real Problem
 
Nungut das Problem welches ich habe ist wahrscheinlich nicht alzu Komplex, da ich noch nicht so weit mit Delphi bin.
Ich versuche das jetzt erstma so genau wie möglich zu beschreiben.

Mein Problem liegt darin:
Ich hab eine For-Schleife gebildet die bei 0 anfängt und bis X(Integer) geht. Natürlich akzeptiert eine For-Schleife nur Integer Zahlen und da liegt mein Problem.
Ich muss diese X Variable durch 27 dividieren und dann die überliegenden Dezimalzahlen abschaffen ( Ich mach es mit: X - Frac(x/27)
weil ich die andere Möglichkeit noch nicht kenne.
Da ich aber zum Teilen und dezimalstellen abschneiden eine Real Variable brauche, kann ich diese Variable nicht mehr in der For-Schleife benutzen


Ich danke für jede schnelle Antwort (Ich hoffe ich hab mich in der Formulierung nicht alzu schwer getan)

mkinzler 18. Mai 2006 16:24

Re: Integer Real Problem
 
Wenn du DIV verwendest gehts auch mit Integer

Klaus01 18. Mai 2006 16:27

Re: Integer Real Problem
 
Zitat:

Zitat von AndiSt
Ich muss diese X Variable durch 27 dividieren und dann die überliegenden Dezimalzahlen abschaffen

Was meinst Du denn damit?

Ganzzahliges dividieren geht mit DIV z.B. 32 DIV 27 = 1
Den Rest erhälst Du mitMOD z.B. 32 MOD 27 = 5

Grüße
Klaus

Flare 18. Mai 2006 17:14

Re: Integer Real Problem
 
Allerdings könnte es passieren, dass immer 0 abgezogen werden!
Lasse doch einfach 2 Variablen in der Schleife laufen, eine Integer und eine Real/Single.
Delphi-Quellcode:
var i,x: integer;
    r: real;
begin
  r := X;
  for i := 0 to X do
  begin
    r := r - X/27; // Oder was auch immer du damit machen möchtest
  end;
end;

Flare

AndiSt 22. Mai 2006 09:44

Re: Integer Real Problem
 
danke für die info jetzt funktioniert es einwandfrei und vorallem einfacher!


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:46 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-2025 by Thomas Breitkreuz