Mit Array rechnen

[ErnstVolker]

Hallo Lazarusgemeinde,

ich hab' als Neuling schon mal gleich ein Problem und frag' mich selbst ob noch alle Latten am Zaun sind.

Ich esrtellte in FreePascal folgendes kleine Progrämmchen:

Code: Alles auswählen

program arraytest;
uses math;
var x, y: array [0..10] of integer;
          i: integer;
const dx=1;
begin
	for i:=0 to high(x) do begin
		x[i]:=0; //Erstmal Nullen reinpumpen
		y[i]:=0;
	end;
 
	//Mit den Arrays rechnen
	for i:=0 to high(x) do begin
	     x[i+1]:=x[i]+dx;
                     y[i]:=sqr(x[i]);
	     writeln(x[i],'   ',y[i]);
	end;
readln;
end.

Das funktioniert auch. Im Dos-Fenster erscheint:
0 0
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
Prima Sache, funktioniert.
Nur unter Lazarus, auch bei Konsolenanwendung erscheint die Fehlermeldung:
"Project raised exception. Class Externel: SIGSEGV.
Das SIGSEGV ist hier schon mehrfach aufgetaucht.

Lazarus mag scheinbar den Aufruf:
x[i+1]:=x+dt;
nicht.

Aber ich kenne Array-Behandlung eigentlich nicht anders. In SCILAB mache ich es genauso.
Wenn ich es wie folgt abändere:

Code: Alles auswählen

for i:=1 to high(x) do begin
	     x[i]:=x[i-1]+dx;
                     y[i]:=sqr(x[i]);
	     writeln(x[i],'   ',y[i]);
	end;

Dann kommt die Fehlermeldung nicht, aber ich finde es komisch.
Muß ich bei Lazarus und Array's grundsätzlich umdenken?
Blöd ist dabei nur, daß ich einen Algorithmus aus einem Buch abgetippt habe, der recht umfangreich ist, dieser sich an SCILAB orientiert
und ich ihn eigentlich nicht abändern wollte.

Kann mir jemand auf die Sprünge helfen?

MfG

Volker

[theo]

Hier

or i:=0 to high(x) do begin
x[i+1]:

greifst du doch auf das 11. Element zu (10+1), welches es nicht gibt.
Oder?

[ErnstVolker]

Hallo theo,

das mit Index 11 stimmt wohl, aber das 11. Element ist doch vorhanden.
Mit high(x) in dem Fall x=10 wird von i:=0 an die Schleife doch 11 mal durchlaufen.
Das Array hat, incl. Index "0" genau 11 Elemente.
Sollte also gehen.
Mit Python funktioniert es, mit Scilab auch.

Aufgefallen ist mir das, weil ich Werte an Plotpanel übergeben wollte. Da gab's den Fehler.

Hängt es vielleicht damit zusammen, daß ich Plotpanel installiert hab' und anschließend TAGarph
ausprobieren wollte? Das hat sich nämlich gebissen.

Ich wer' heute Abend mal Lazarus Deinstallieren und neu Installieren, ohne Plotpanel.
Mal sehen was passiert.
Ich dachte ich frag' vorher mal im Forum, bevor ich alles niedermache.

Gruß

Volker

[m97rtin]

Schon richtig das das 11. Element vorhanden ist aber da du dein array erst ab dem zweiten Element beschreibst und dieses dann 11mal wiederhohlst landest du beim 12. Element.
Glaube das meinte theo.

[creed steiger]

Ich denke das kann so nicht funktionieren
(siehe Demo)

[theo]

Schon richtig das das 11. Element vorhanden ist aber da du dein array erst ab dem zweiten Element beschreibst und dieses dann 11mal wiederhohlst landest du beim 12. Element.
Glaube das meinte theo.

Ja klar, ich meinte x[11], also durchgezählt das 12. Element. Ist aber eig. Wurscht.
Tatsache ist, dass Volker im letzten Schleifendurchlauf auf x[high(x)+1] zugreift, und das kann nicht sein.
RangeChecks einschalten macht das Ganze noch etwas deutlicher.

[ErnstVolker]

Hallo und vielen Dank für die Antworten.

Ihr habt recht. Ich greife auf ein Elemnt zu was nicht da ist. Das kann nicht gehen.
Ich dachte wenn die Schleife bei high(x) angekommen ist, dann sei (high(x)+1)=11, aber absolut ist die Schleife bereits 11 mal durchgelaufen
und ich greife auf "Element 12" zu. Das geht natürlich nicht.

Was mich nur wundert ist, daß unter FreePascal auf Dos-Ebene es zu keinem Konflikt kam oder zumindest keine Fehlermeldung.
Und witzigerweise lief meine "Lazarus-Konsolenanwendung" auch bei Doppelklick im Explorer ohne Fehlermeldung, nur innerhalb der Entwicklungsumgebung
gab es den Fehler.

Allerdings mein Programm, welches Plotpanel benutzt, das schmierte bei Doppelklick im Explorer und zwei bis dreimaligem Ausführen besagter
Berechnungsroutine dann ab, zu recht.

Vielen Dank zusammen für die Hilfe.

Hinsichtlich PlotPanel bzw. der Package-Installation würde mich interessieren, wie man es anstellt "ta" doppelt zu nutzen.
Ich hatte PlotPanel installiert und wollte zuaätzlich TAGraph ausprobieren. Das gab einen, ich nenne es mal Paktkonflickt, denn es war
"ta" schon da und Lazarus ließ sich nicht neu erstellen.
Sollte man beides nicht gemeinsam nutzen?

Danke im voraus

Volker

[af0815]

Was mich nur wundert ist, daß unter FreePascal auf Dos-Ebene es zu keinem Konflikt kam oder zumindest keine Fehlermeldung.

Wenn man keine Überprüfungen (Compilereinstellung->Quelltext->Überprüfungen oder Equivalent in FP) hineinkompiliert, dann gibt es auch niemand der dir unmittelbar die rote Karte zeigt.

[mschnell]

Was mich nur wundert ist, daß unter FreePascal auf Dos-Ebene es zu keinem Konflikt kam oder zumindest keine Fehlermeldung.

Ob es in zu einer "Protection" Exception kommt, wenn man auf nicht ecistierende Array-elemente zugreift, hängt von allem möglichen ab, und ist eher unwahrscheinlich. Wahrscheinlicher ist, dass irgendetwas im Speicher überschrieben wird und schwer später dann völlig zusammenhanglose schwer zu findende Fehler auftreten.

Es gibt einen Compiler-Switch, der das realtime-Testen von Array-grenzen einschaltet. Das kostet eine Menge Rechenzeit, hilft aber um ein Programm sicher zu machen.

-Michael

[ErnstVolker]

Hallo zusammen,
hallo creed,

danke für Dein Kurzprojekt. Mir ist mein Denkfehler klar geworden. Ich hab' andauernd an length(x) gedacht, bzw. war es gewohnt bei Arrays die for-Schleifen bis length(x)-1
laufen zu lassen. Durch high(x) hatte ich mich gefreut daß das ja prima ist und ich mir "-1 sparen" könnte. Blöd nur daß halt bis high(x) incl. Null also doch 11mal
durchgelaufen, und durch x[i+1] auf Element 12 zugegriffen wird welches nicht existiert. Durch einfache Ausgabe des Schleifenzählers hätt' ich selbst drauf kommen können.

Hab' wohl doch nicht alle Latten am Zaun...

Danke nochmal

Gruß

Volker