Презентация на тему "Файлы" 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;beginassign(f,’f1.txt’);reset(f,n);while not Eof(f) doreadln(f,n);. . .

• 
  Слайд 9
  

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

• 
  Слайд 10
  

  Var f:Text; n:char;beginassign(f,’f1.txt’);reset(f);while not Eof(f) doreadln(f,n);end.

• 
  Слайд 11
  

  Var f:Text; n:char; s:string;beginassign(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;beginassign(f,’f1.txt’);reset(f);while not Eof(f) do begin readln(f,s); if s[1]=‘a’ then k:=k+1; end;