Fájl beolvasás Pascalban?

Szia.

Megnyitot Text-ként aztán olvastatol belőle 3 adatot majd

inditod a ciklusokat és olvastatod a többi adatot.

Valahogy igy :

Var AdatFile : text ;

Adat : word ;

I,J : word ;

TombAdat : array [1..6,1..100] of word ;

Begin

assign (Adatfile,'Szamok.txt');

reset (Adatfile);

read (Adatfile, Adat); { Első sor }

read (Adatfile, Adat); { Második sor }

read (Adatfile, Adat); { Harmadik sor }

For I:=1 to 6 do begin

For J:=1 to 100 do begin

read (Adatfile, Tomb[I,J]);

end ;

end ;

end.

Sok sikert.

Üdv.

Szia.

Igen, meg lehet integerrel is csinálni, sőt byte-val, vagy longintal is és real-lal is.

Egy igazitás A fenti prtogramból kimaradt a

close (Adatfile); utasitás a ciklus után.

Egyébként mi a gond, mi nem sikerül ? Hiba ? Mit ir ?

Üdv.