[ Pobierz całość w formacie PDF ]
.ÿþPrzykÅ‚adyProgram Przykl_1, który tworzy na dyskietce zdefiniowany plik onazwie plik1.dan z zapisanymi w nim piÄ™cioma liczbami caÅ‚kowitymi.PROGRAM Przykl_1;VARf :FILE OF integer;LiczbaWpisywanaDoPliku :integer;Licznik :byte;BEGINASSIGN(f, A:plik1.dan );REWRITE(f);FOR Licznik:=1 TO 5 DOBEGINWRITE( 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;USESCrt;VARf :FILE OF integer;liczba :integer;BEGINClrScr;ASSIGN(f, b:plik1.dan );RESET(f);Write( W pliku zapisane sa nastepujace liczby: );WHILE NOT EOF(f) DOBEGINREAD(f,liczba);Write(liczba);END;CLOSE(f);READLN;END [ Pobierz caÅ‚ość w formacie PDF ]