Przykłady
Program Przykl_1, który tworzy na dyskietce zdefiniowany plik o
nazwie plik1.dan z zapisanymi w nim pięcioma liczbami całkowitymi.
PROGRAM Przykl_1;
VAR
f :FILE OF integer;
LiczbaWpisywanaDoPliku :integer;
Licznik :byte;
BEGIN
ASSIGN(f, A:plik1.dan );
REWRITE(f);
FOR Licznik:=1 TO 5 DO
BEGIN
WRITE( Proszę podac liczbe calkowita: );
READ(LiczbaWpisywanaDoPliku);
WRITE(f, LiczbaWpisywanaDoPliku);
END;
CLOSE(f);
END.
Odczytu zawartości pliku plik1.dan dokonuje program Przykl_2:
PROGRAM Przykl_2;
USES
Crt;
VAR
f :FILE OF integer;
liczba :integer;
BEGIN
ClrScr;
ASSIGN(f, b:plik1.dan );
RESET(f);
Write( W pliku zapisane sa nastepujace liczby: );
WHILE NOT EOF(f) DO
BEGIN
READ(f,liczba);
Write(liczba);
END;
CLOSE(f);
READLN;
END.
Wyszukiwarka
Podobne podstrony:
Folia01FOLIA02 (2)Folia09FOLIA04 (3)FOLIA08FOLIA05FOLIA05 (3)FOLIA03 (5)FOLIA05 (6)FOLIA05 (4)FOLIA01BFOLIA05 (5)FOLIA06 (5)więcej podobnych podstron