TP 7.0: PC zu schnell? Wie trotzdem programmieren?

Computer: Software & Programmierung Programmierung allgemein
#1

Bei einer bestimmten Rechenleistung des PC’s streikt Turbo Pascal. Obwohl das Programm korrekt erscheint die Fehlermeldung 202: Division durch Null. Was Kann ich machen, damit ich auch bei einer Rechenleistung von 800 Mhz programmieren kann.

Danke für eure Vorschläge!!!

#2

Das liegt an der Crt unit (uses Crt:wink:
wenn du das weglässt kann du ohne Schwierigkeiten programmieren,
nur du hast z.B. kein GotoXY(); TextColor();
TextBackground(); Readkey; Keypressed; Delay();
mehr, und besonders die letzten drei sind doch manchmal sehr wichtig finde ich.
Für Readkey und Keypressed habe ich Ersatz gefunden, kann ich dir
im Moment nicht schicken weil ich an einem anderen Rechner sitze.
und für Delay hatte ich gerade hier im Board gefragt, da hat
mir Timo Teifel folgendes geschrieben:

PROCEDURE WaitSek(anz: word);{ Wartet eine bestimmte Anzahl von Sekunden }var tim: word absolute $40:blush:6C; now, beg: word;begin beg := (Longint(3600) * longint(tim)) shr 16; repeat now := (Longint(3600) * longint(tim)) shr 16; until now >= beg+anz;end;

Dieser Quelltext multipliziert die Zahl an der Speicherstelle mit 3600 und schiebt anschließend die Bits der Zahl um 16 Bits nach rechts (shr 16). Das ist gleichbedeutend mit „geteilt durch 65536“, nur wesentlich schneller. Beide Operationen zusammen ergeben „geteilt durch 18,2044444“, nur ist mein Quelltext meines Wissens nach sehr viel schneller für den PC zu rechnen als /18,204444…

Ich hoffe Dir hilft das weiter; auf 1/18,2tel Sekunden genau ist relativ einfach umzuschreiben, aber genauer geht’s damit nicht!

MfG Roman

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Thomas,

unter

http://www.brain.uni-freiburg.de/~klaus/pascal/runer…

findest Du eine ausführliche Erklärung des Problems und eine Sammlung von Paketen mit fehlerbereinigten CRT-Units (dieser Sache haben sich etliche Leute angenommen). Daß bei mir alles anstandslos funzt, verdanke ich dem Paket von Heise (mit einem anderen habe ich weniger gute Erfahrungen gemacht). Guck mal nach „patch2.exe“, so heißt das. Ich kann es Dir auch per Mail schicken, wenn Du willst.

Mit freundlichem Gruß
Martin