Презентация

Suppose the topic of the lesson !

Working with  files in Pascal Работа с файлами Работа с файлами в Паскале в Паскале

Цель урока: Цель урока:  to  study  the  operators  working  with  to  study  the  operators  working  with  files files  Изучить  операторы  работы  с  Изучить  операторы  работы  с  файлами в Паскале файлами в Паскале

Keyword - Keyword - Ключевые слова: Ключевые слова:  FileFile  Operator Operator  Program Program  Descriptive part –  Descriptive part – описательная часть  Executive part  – исполнительная часть Executive part –

What is a file? What is a file? Файл в Паскале Файл в Паскале данных (integer,real данных ( Состоит из однотипных Состоит из однотипных integer,real и т.д.). и т.д.). С данными файла можно С данными файла можно производить две основные производить две основные операции: запись и чтение. запись и чтение. операции: Как записать в файл данные  Как записать в файл данные  разного рода (цифры,  разного рода (цифры,  буквы?) буквы?)

1. 1. File description File description Описание файла производится в разделе  описания  Описание файла производится в разделе  описания  переменных, при этом указывается имя файловой  переменных, при этом указывается имя файловой  переменной (логическое имя файла) и ее тип.  переменной (логическое имя файла) и ее тип.  Например:  Var f1:text;   Var f1:text; Например: илиили Var fVar f  ::    file of integer;  file of integer;

22. . Matching the logical and Matching the logical and physical file name physical file name Assign((логическое имя, логическое имя, Assign физическое имя)) физическое имя Например, , Например f,’data.txt’));; assign((f,’data.txt’ assign

Write to file / read from file Write to file / read from file 3. Rewrite(f); ­  ­ открытие  3. Rewrite(f); открытие  нового файла для записи. нового файла для записи. 4. Reset(f); ­ ­ открытие файла  4. Reset(f);  открытие файла  для чтения.  для чтения.  5. Write((f,af,a);); ­ запись в фай 5. Write  ­ запись в файлл.. 6. Read(f,a); ­  ­ чтение из файла. 6. Read(f,a); чтение из файла.

77. Закрытие файла . Закрытие файла Close(f); Close(f); Производится после Производится после окончания работы с файлом, окончания работы с файлом, отсутствие этой операции отсутствие этой операции приведет к неправильной приведет к неправильной работе программы работе программы

8. 8. Проверка конца Проверка конца Eof(f) – логическая функция,  Eof(f)  – логическая функция,  файла файла ее значение – «истина», если курсор  ее значение – «истина», если курсор  находится в конце файла и  находится в конце файла и  «ложно», если это не так. «ложно», если это не так. While not EOF (f) do begin –  пока не достигнут конец  файла выполнять тело  цикла

EXAMPLE: Write to the file Data.txt? 10 digits  Write to the file Data.txt? 10 digits  entered by the user? From the  entered by the user? From the  keyboard. keyboard. Подсчитать количество букв «а» в тексте..

program Example1; var  Begin for i:=1 to n do begin b:=copy(t,i,1); {Вырезка одного символа} if (b='a')or(b='A')then k:=k+1; {Сравнение символа с буквой а} end; End.

ПРОГРАММА ПРОГРАММА Arrange the program lines in the  Writeln(‘введите Writeln(‘ введите 10 Read(a); Read(a); Begin Begin Close(f); Close(f); a,i:integer; correct order! 10 цифр цифр’);’); End. End. Begin Begin Assign(f,’data.txt’); Assign(f,’data.txt’); Var F:text; Rewrite(f); Rewrite(f); Write(f,a) Write(f,a) End; End; For i:=1 to 10 do For i:=1 to 10 do

Var F:text; a,i:integer; Begin Begin Assign(f,’date.txt Assign(f, Rewrite(f); Rewrite(f); Writeln(‘введите Writeln(‘ For i:=1 to 10 do For i:=1 to 10 do Read(a); Read(a); Write(f,a) Write(f,a) End; End; Close(f); Close(f); End. End. введите 10 ’date.txt’);’); цифр’);’); 10 цифр begin begin

good work !

Homework: Homework: Given a file of 10 integers.  Copy the even elements to the file  chet.txt, and odd ­ to the file  nechet.txt. Перепишите четные элементы в файл chet.txt, а нечетные – в Перепишите четные элементы в файл chet.txt, а нечетные – в Дан файл из 10 Дан файл из 10 целых чисел. целых чисел. файл nechet.txt. файл nechet.txt.

РЕФЛЕКСИЯ РЕФЛЕКСИЯ  Что узнал, чему научился Что узнал, чему научился  Что осталось  непонятным Что осталось  непонятным  Над чем необходимо работать Над чем необходимо работать

ПРИМЕР ПРИМЕР Написать программу  Написать программу  сложения 5 чисел,  сложения 5 чисел,  записанных в файле. записанных в файле.

ПРОГРАММА ПРОГРАММА Var a,s,i:integer; Var a,s,i:integer; F:text; F:text; Begin Begin Assign(f,’primer2.txt’); Assign(f,’primer2.txt’); Reset(f); Reset(f); S:=0; S:=0; While While not eof(f) Begin Begin Read(f,a); Read(f,a); S:=S+a; S:=S+a; End; End; Close(f); Close(f); Writeln(‘Cумма= Writeln(‘C end. end. not eof(f) do do умма=’,s) ’,s)

Задание на работу Задание на работу Составить программу,  Составить программу,  записывающую в файл только  записывающую в файл только  четные числа из тех чисел,  четные числа из тех чисел,  которые вводит пользователь. которые вводит пользователь. Составить программу,  Составить программу,  вычисляющую произведение 5  вычисляющую произведение 5   в файле.  чисел, записанных в файле.  чисел, записанных