Kolejki w Pascalu

0

Jak wczytać z pliku dane, aby kolejne linijki były zapisywane do kolejki, apóźniej jak je odczytać?np. chciałbym odczytać pierwszy, czwarty i dwudziesty element. Jak to zrobić? Pomóżcie (piszę ojcu pracę na studia :-) )

0

Nie rozumiem o co ci do konca chodzi, ale jesli chcesz zczytac z pliku i zapamietac np. tylko 1, 4 i 6 linie to mozna to zrobic tak:

Var
Tab :Array[1..3] of String;

Begin
Assign(F,'plik.txt');
Reset(F);
Readln(F,Tab[1]); {zczytuje pierwsza linie z pliku i zapisuje ja do tablicy)
Readln(F); {zczytuje druga linie z pliku bez zapisu}
Readln(F); {zczytuje trzecia linie z pliku bez zapisu}
Readln(F,Tab[2]); {zczytuje czwarta linie i zapisuje ja do tablicy}
Readln(F); {zczytuje piata linie z pliku bez zapisu}
Readln(F,Tab[3]); {zczytuje szosta linie z pliku i zapisuje ja do tablicy}
Close(F);
End.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0