Презентация "Файлы"
презентация к уроку по информатике и икт (10 класс) на тему

Слайд 1

Укажите назначение функций для работы с файлами

Слайд 2

assign(f,’f1.txt’);

Слайд 3

reset(f);

Слайд 4

rewrite(f);

Слайд 5

Eof(f);

Слайд 6

Eoln(f);

Слайд 7

Найдите ошибки в фрагменте программы

Слайд 8

Var f:file of Integer; begin assign(f,’f1.txt’); reset(f , n); while not Eof(f) do readln(f,n); . . .

Слайд 9

Var f:text; begin assign(f,’f1.txt’); reset(f); while Eof(f) do write(f,n); rewrite(f);

Слайд 10

Var f:Text; n:char; begin assign(f,’f1.txt’); reset(f); while not Eof(f) do readln(f,n); end.

Слайд 11

Var f:Text; n:char; s:string; begin assign(f,’f1.txt’); reset(f); while not Eof(f) do begin while not Eoln(f) do begin read(f,n); s:=n+s; end; readln(f); writeln(s); s:=‘’; end;

Слайд 12

Var f:Text; k:integer; s:string; begin assign(f,’f1.txt’); reset(f); while not Eof(f) do begin readln(f,s); if s[1]=‘a’ then k:=k+1; end;