Программирование 9 класс
2017-2018 учебный год
Дополнительные материалы и
ссылки
Урок 23 21.04.2018
Тема урока: Типизированные файлы
1.
Программа 1 читает двоичный файл (исполняемый файл
программы) по байтам и выводит
прочитанные байты и, символы, ASCII-коды
которых соответствуют этим байтам, на
экран
Рисунок 1 Исходный текст программы
1
Рисунок 2 Результат работы программы 1
1.
Программа 2,читает из двоичного файла
байт под номером 2 (счет идет с нуля) и выводит на экран прочитанный байт,
символ, ASCII-код
которого равен этому байту и положение указателя чтения.
Использует процедуру
Seek(<файловая
переменная>,<позиция>)
И функцию
FilePos(<файловая переменная>)
File Edit Search Run
Compile Debug Tools
Options Window Help
┌────────
F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas ──1─────┐
│╔═[■]════
F:\projects\1436..Программирование9\ПРограммы\18042103.pas ═══2═[↑]═╗
│║program
p18042101;
▲
│║var ▓
│║ b:byte;
▓
│║ f:file
of byte;
▓
│║ i:integer; ▓
│║ fn:string;
▓
│║begin
▓
│║ Readln(fn);
▓
│║ Assign(f,fn);
▓
│║ Reset(f);
▓
│║ Seek(f,2);
▓
│║ Read(f,b);
▓
│║ Writeln(i,' ',b,' ',chr(b),'
',FilePos(f)); ▓
│║end.
▓
│║ ▓
│║
▓
┌║
▓
│║ ▓
│║
▓
│║
▼
│╚══════
11:17 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
Рисунок 3 Исходный текст программы
2
Рисунок 4 Результат работы программы 2
3. Программа 3, записывает в файл целые числа
от 1 до 10
File Edit Search Run
Compile Debug Tools
Options Window Help
┌────────
F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas
──1─────┐
│┌─[■]────
F:\projects\1436..Программирование9\ПРограммы\18042104.pas ───2─[]─┐
││program
p18042101;
‑
││var ▓
││ b:byte;
▓
││ f:file
of integer;
▓
││ i:integer; ▓
││ fn:string;
▓
││begin
▓
││ Readln(fn);
▓
││ Assign(f,fn);
▓
││ Rewrite(f);
▓
││ for i:=1 to 10 do ▓
││ Write(f,i);
▓
││ Close(f);
▓
││end.
▓
││
▓
││
▓
┌│
▓
││
▓
││
▓
││
│└──────
14:1 ─■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒┘
F1 Help Cursor Move Shift+Cursor
Size ─┘ Done Esc Cancel
Рисунок 5 Исходный текст программы
3
Рисунок 6 Содержание созданного файла
4. Программа 4, читает из файла целые числа от
1 до 10 и выводит их на экран
File Edit Search Run
Compile Debug Tools
Options Window Help
┌────────
F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas ──1─────┐
│╔═[■]════
F:\projects\1436..Программирование9\ПРограммы\18042104.pas ═══2═[]═╗
│║program
p18042104;
‑
│║var
▓
│║ b:integer;
▓
│║ f:file
of integer;
▓
│║ i:integer;
▓
│║ fn:string;
▓
│║begin ▓
│║ Readln(fn);
▓
│║ Assign(f,fn);
▓
│║ Reset(f); ▓
│║ for i:=1 to 10 do
▓
│║ begin
▓
│║ Read(f,b); ▓
│║ Writeln(b); ▓
│║ end;
▓
│║ Close(f); ▓
┌║end.
▓
│║
▓
│║
▓
│║
│╚══════
15:21 ■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒┘
F1 Help F2 Save F3 Open
Alt+F9 Compile F9 Make Alt+F10 Local
Menu
Рисунок 7 Исходный текст программы
4
Рисунок 8 Результат работы программы 4
Running
"f:\projects\1436\2017-2018\Программирование9\ПРограммы\18042101.exe
"
18042101.txt
1 1 ☺
2 0
3 2 ☻
4 0
5 3 ♥
6 0
7 4 ♦
8 0
9 5 ♣
10 0
11 6 ♠
12 0
13 7
14 0
15 8
Рисунок 9 Результат результат
чтения файла целых чисел побайтово программой 1