Deutsches Lazarusforum

$packrecords hat überhaupt keinen Einfluß aus der Erklärung https://www.freepascal.org/docs-html/3.0.0/prog/progsu60.html werde ich nicht schlau. Es scheint mir Bug zu sein. "This means that the elements of a record which have size greater than n will be aligned on n byte boundaries." Ist...

Nicht zu vergessen: MPArith mit Pascal-Source kommt ohne GMP und GPL aus. Einführung und Funktionsliste: http://www.wolfgang-ehrhardt.de/mp_intro.html

(Bitte löschen, falsche Funktion)

In praktisch allen anderen Sprachen wird dieser Fehler der in C gemacht wurde umgangen indem praktisch überall (wie auch beim fpc) int immer 32 bit ist und vermutlich wird das vorerst auch so bleiben, denn selbst wenn die 128 bit architektur raus kommt kennt man mittlerweile die probleme aus C, und...

uses Math;   function Modulo(Dividend, Divisor: double): double; begin Result := Dividend - Divisor * Int(Dividend / Divisor); if SameValue(Result, Divisor) then Result := 0.0; end; Wie das mit negativen Zahlen ausgeht, müsste man noch prüfen. Es geht schief. Die Ergebnisse ...

Das kommt darauf an, was Du als Bug bezeichnest. Es sind halt die Probleme, die auftreten, wenn Deine Eingaben nicht exakt als Binärzahlen darstellbar sind. Wenn Du die einzelnen Werte mal ausgibst, siehst Du mit program Project1; uses math;   function Modulo(Dividend, Quotient: double): dou...

Nee, der Generator funktioniert schon, der ist nämlich ziemlich ähnlich dem, was ich oben als Assemblercode gepostet habe. Allerdings braucht er wirklich gut ausgesuchte Werte, um brauchbare Zufallszahlen zu liefern. Sonst passiert nämlich genau das: Er springt zwischen einigen Werten hin und her o...

Ich bin ziemlich sicher. dass die beschriebene Funktion in c Schritten jede Zahl zwischen 0 und c-1 genau einmal liefert. 'Ziemlich sicher' reicht nicht. Nimm als Beispiel a = 3, b = 5, c = 7. Dann erhältst Du mit seed=0 die Werte 0, 5, 6, 2, 4, 3, 0 ... Also keine 1! Für seed=1 gibt es dafür als A...

Vielleicht noch etwas mehr: Wenn l=6 ist hat man... ... ein ganz anderes Problem: Bei x mod 8, oder x mod 4 ist der Compiler so schlau, das mit AND zu erledigen, und bekommt den Rest mit wenigen Taktzyklen. Bei einem mod, welches nicht durch 2^n geht wird allerdings eine Software-Division aufgerufe...

Da diese Schleife schneller läuft als der Timer, kommt man sobald Result 0 ist aus der Schleife raus. 0 mod x gibt 0. Richtig, aber was ist an 0 auszusetzen? Ist doch bei Deiner Funktion genauso! Vielleicht noch etwas mehr: Wenn l=6 ist hat man u = ($ffff div 6)*6 = 65532. Solange rnd im Bereich 0 ...

Wie können den Werte größer als 254 auftreten (das sind die Reste bei l=255). Weiterhin hat Dein Generator, wie Du selbst festgestellt hast eine Bias (Verzerrung). Hier eine Version ohne diesen Mangel:   function Random(l: byte): byte; var u: byte; begin u := l*($ffff div l); repeat ...

Double hat eine 53-Bit Mantisse, d.h. alle integer bis 2^53-1 sind exakt als double darstellbar. Wenn Du mehr willst, gibt es drei Möglichkeiten: Extended bis 2^63-1 (für Win 32-Bit-Programme), UInt64 bis 2^64-1 oder Multiprecision Arithmetik (auch bekannt als a Bignum) wie zB MPArith (hier eine eng...

Hi, kann jemand erklären, warum Load1 nicht funktioniert? Vielen Dank! TYPE TESTTYPE = ARRAY OF AnsiString;  Procedure Load1( VAR svx : ARRAY OF ANSISTRING );  Hier is svx kein dynamisches Array sondern ein Open array parameter (siehe Doc, z.B.m). Selbst wenn der unterschiedliche Typ keine ...

In der Praxis werden größere Datenmengen symmetrisch verschlüsselt, also zB mit AES. Die asymmetrische Verschlüsselung sollte i.d.R. nur für Protokolle etc benutzt werden (z.B. für den Austausch der symmetrischen Schlüssel). Viele symmetrische Verfahren werden von Quantencomputern nur unwesentlich b...

fpGUIcoder hat geschrieben:{ASMMODE INTEL} ist eingestellt, als Compileroption im Quellcode, nicht in der IDE

Nur um sicher zu gehen: Du hast doch hoffentlich im Quellcode stehen, also mit $? Kannst Du denn mein kurzes Programm übersetzen?