• Aktualisierte Forenregeln

    Eine kleine Änderung hat es im Bereich Forenregeln unter Abschnitt 2 gegeben, wo wir nun explizit darauf verweisen, dass Forenkommentare in unserer Heftrubrik Leserbriefe landen können.

    Forenregeln


    Vielen Dank

Kurioses Pascal Problem

Nurgler

Gelegenheitsspieler/in
Registriert
09.07.2004
Beiträge
474
Reaktionspunkte
0
Hallo erstmal,

also Folgendes:
Ich hab ein Pascal-Programm geschrieben aus dem folgende Auszüge stammen:

PROGRAM programm;

USES crt;
TYPE spielfeld = array[1..9,1..9] of integer;
VAR feld : spielfeld;
a,b : integer;
Daten : FILE OF integer;

PROCEDURE eingabe;
BEGIN
assign(Daten,'C:/Vorgabe.txt');
reset(Daten);
FOR b:=1 TO 9 DO
BEGIN
FOR a:=1 TO 9 DO
BEGIN
read(Daten,wert);
feld[a,b] := wert;
END;
END;
END;

PROCEDURE ausgabe;
BEGIN
assign(Daten,'C:/L”sung.txt');
rewrite(Daten);
FOR b:=1 TO 9 DO
BEGIN
FOR a:=1 TO 9 DO
BEGIN
write(Daten,feld[a,b]);
END;
END;
END;

BEGIN
eingabe;
ausgabe;
END.

Jetzt ist es so, dass in der Datei Lösung genau die ersten 54 Zahlen (zwischen 0 und 9) aus der Datei Vorlage stehen.

Und ich habe herausgefunden, dass ich, wenn ich die Größe des arrays verändere, immer genau soviele Zahlen ausgegeben bekomme, wie felder im array vorkommen und das geteilt durch 1,5. Also: 9*9=81; 81/1,5=54.
Und das scheint mit jeder Kombination vom Werten zu funktionieren.

Jetzt also meine Frage: WARUM?!? :confused:

Ich hoffe ihr habt ein paar Ideen.
 
Zurück