Pascal szövegből konkrét kiolvasás?

1) keress rá a szöveges fájlok keresésére

2) keress rá string manipulációs műveletekre

megoldás pedig a fentiek után:

1) beolvasod soronként

2) a sorokat szétvagdosod szóközönként

(első)

elírtam: szóval szöveges fájlok KEZELÉSÉRE

Fájlkezeléssel most találkozol először? Grat a Nemes Tihamérhoz, de sajnos így nem nagyon fog menni.

Példaprogram beolvasásra:

procedure beolv;

var f:text;

n,i:byte;

szamok:array[1..100] of byte;

begin

assign(f,'bemeneti.fajlod'); //társítás

reset(f); //megnyitás olvasásra

readln(f,n); //első sorban: hány sor lesz

for i:=1 to n do begin

readln(f,szamok[i]); //beolvassuk n sorból a számokat.

end;

close(f); //bezárjuk

end;

Az előző válasz kiegészítve ill javítva:

read(f,szamok[i])-vel kiolvasva pont egyesével olvassa ki a sorból a számokat és autómatikusan a következő sorból olvas ha a sor végére ért, eof jelzi a fájl végét.

Vagyis feltölti a tömböt a fájl alapján:

...

i:=0;

while not eof(f) do

begin

i:=i+1;

read(f,szamok[i])

end;

close(f);