FOLIA09 (4)

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:
Folia01
FOLIA02 (2)
Folia09
FOLIA04 (3)
FOLIA08
FOLIA05
FOLIA05 (3)
FOLIA03 (5)
FOLIA05 (6)
FOLIA05 (4)
FOLIA01B
FOLIA05 (5)
FOLIA06 (5)

więcej podobnych podstron