Публикация содержит презентацию по теме "Работа с файлами в Паскале". Презентация построена с использованием CLIL-технологии. Изучение нового материала, закрепление материала собиранием программы отдельными операторами, домашнее задание. Определение темы по технологии четыре картинки, одно слово. работа в группах. задания на построение слов в игре Бинго.
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
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
в файле.
чисел, записанных в файле.
чисел, записанных
Работа с файлами в паскале.ppt
