Zapisywanie wierszy do pliku

Wiersz przed zapisaniem musi zostać odpowiednio ufor-

mowany. Często wyniki zapisywane są w postaci tabeli. Dane
liczbowe wstawiane do wiersza są konwertowane do postaci
napisu, który dołączany jest do formowanego wiersza przez
konkatenację z jego dodatkową zawartością i pozostałymi da-
nymi. Wymaga to konwersji danej liczbowej na napis za pomo-
cą procedury STR:

STR(Liczba:szerokość pola:precyzja,napis);

Uformowany w całości wiersz jest wpisywany do pliku.

Schemat przetwarzania pliku przy zapisywaniu wierszy jest re-
alizowany w jednej pętli, wykonywanej aż do wyczerpania wpi-
sywanych wierszy, sygnalizowanego przez zmienną Koniec:

ASSIGN(Plik_tekstowy,Nazwa_pliku);
REWRITE(Plik_tekstowy)
Koniec:=FALSE;
WHILE NOT Koniec DO
    BEGIN
      P(s);
      WRITELN(Plik_tekstowy,s);
    END;
CLOSE(Plik_tekstowy);

P(s) jest procedurą przygotowującą wpisywany wiersz.