Deutsches Lazarusforum

U-Boot ist mega- ! hehe
Ich danke dir vielmals...es lag daran das die Arrayeinträge als Single-Typ definiert waren. Auf einmal klappts auch mit dem roundto!
Super dass du das miniprogramm hochgeladen hast. Viele Grüße

Aber beim teilen durch hundert tritt der Fehler auf, das is das Problem. Die gerundeten Werte schreibt er mir korrekt ins Array nur die Division durch hundert mag er nich.
Beispiel:
g[1,1] := round(1,234676*100);
==> g[1,1] = 123
funktioniert! Dann nochmal durch 100 um auf 1,23 zu kommen...8 NKS ...

Danke für die schnellen Antworten. Wenn ich aber folgendes schreibe, dann spuckt er mir den Wert trotzdem mit 9 Nachkommastellen aus:
g[i,1] := round((20+b/2+cos((i-1)*2*pi/n)*r)*100)/100;
das macht doch keinen Sinn, vor allem weil wenn ich die Division durch 100 am Ende weglasse mein Ergebnis da ...

Guten Abend zusammen!
Hat jemand eine Idee wie ich mit wenig Aufwand alle in meinem statischen Array gespeicherten Werte auf zwei Nachkommastellen runden kann?
Grüße

Super danke! Werds nach der Unidirekt mal umschreiben...son bockmist! Da sieht man den Wald vor lauter Bäumen nicht!

Er rückt leider bei der letzten Tabelle die Spaltenbenennung nicht ein aber ich denke man versteht trotzdem was ich meine

Also hier meine Startdefinitionen:
procedure TForm1.Button2Click(Sender: TObject); //create gcode
var
a:array[1..5, 1..3] of single; //Rahmen koordiantenmatrix
f:array[1..680, 1..3] of single; //Ausfüllen koordinatenmatrix
g:array[1..360, 1..3] of single; //Kreis drucken
j:array[1..360, 1..3] of ...

Wieso sollte durch rundungsfehler ein negatives Ergebnis zustande kommen?

Nene ich teile lediglich durch 2: wäre das gleiche...Ich glaube das liegt an der Wurzel. Irgendwas stört ihn da und ein Syntaxfehler kann es ja nicht sein sonst hätts schon eher Probleme gegeben.

so...super tip! danke!

Hallo zusammen!
Bin neu hier im Forum und zudem noch Programmieranfänger. Mein Problem ist folgendes: Beim füllen dieses Arrays gibt er mir folgende Fehlermeldung aus: "project project1 raised exception class 'External: SIGFPE'"!
und zwar genau an dieser stelle
...
j[i*4-2,xx] := 20+b div 2-sqrt(z ...